/**
 ** This file was automatically generated by the Cyclone scheme compiler
 ** http://justinethier.github.io/cyclone/
 **
 ** (c) 2014-2017 Justin Ethier
 ** Version 0.5.3 
 **
 **/

/* 
"---------------- input program:"
 */
/* 
((import
   (scheme base)
   (scheme cxr)
   (scheme read)
   (scheme write)
   (scheme time))
 (define (main)
   (let* ((count (read))
          (input (read))
          (output (read))
          (s2 (number->string count))
          (s1 (number->string input))
          (name "sboyer"))
     (run-r7rs-benchmark
       (string-append name ":" s1 ":" s2)
       count
       (lambda ()
         (setup-boyer)
         (test-boyer alist term (hide count input)))
       (lambda (rewrites)
         (and (number? rewrites) (= rewrites output))))))
 (define alist
   '((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
   '(implies
      (and (implies x y)
           (and (implies y z)
                (and (implies z u) (implies u w))))
      (implies x w)))
 (define (setup-boyer) #t)
 (define (test-boyer) #t)
 (let ()
   (define (setup)
     (add-lemma-lst
       '((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) 'equal)
                 (pair? (cadr term)))
            (put (car (cadr term))
                 'lemmas
                 (cons (translate-term term)
                       (get (car (cadr term)) '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) '())
           (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* '())
   (define (make-symbol-record sym)
     (vector sym '()))
   (define (put-lemmas! symbol-record lemmas)
     (vector-set! symbol-record 1 lemmas))
   (define (get-lemmas symbol-record)
     (vector-ref symbol-record 1))
   (define (get-name symbol-record)
     (vector-ref symbol-record 0))
   (define (symbol-record-equal? r1 r2) (eq? r1 r2))
   (define (test alist term n)
     (let ((term (apply-subst
                   (translate-alist alist)
                   (translate-term
                     (do ((term term (list 'or term '(f))) (n n (- n 1)))
                         ((zero? n) term))))))
       (tautp term)))
   (define (translate-alist alist)
     (cond ((null? alist) '())
           (else
            (cons (cons (caar alist) (translate-term (cdar alist)))
                  (translate-alist (cdr alist))))))
   (define (apply-subst alist term)
     (cond ((not (pair? term))
            (let ((temp-temp (assq term alist)))
              (if temp-temp (cdr temp-temp) term)))
           (else
            (cons (car term)
                  (apply-subst-lst alist (cdr term))))))
   (define (apply-subst-lst alist lst)
     (cond ((null? lst) '())
           (else
            (cons (apply-subst alist (car lst))
                  (apply-subst-lst alist (cdr lst))))))
   (define (tautp x)
     (tautologyp (rewrite x) '() '()))
   (define (tautologyp x true-lst false-lst)
     (cond ((truep x true-lst) #t)
           ((falsep x false-lst) #f)
           ((not (pair? x)) #f)
           ((eq? (car x) if-constructor)
            (cond ((truep (cadr x) true-lst)
                   (tautologyp (caddr x) true-lst false-lst))
                  ((falsep (cadr x) false-lst)
                   (tautologyp (cadddr x) true-lst false-lst))
                  (else
                   (and (tautologyp
                          (caddr x)
                          (cons (cadr x) true-lst)
                          false-lst)
                        (tautologyp
                          (cadddr x)
                          true-lst
                          (cons (cadr x) false-lst))))))
           (else #f)))
   (define if-constructor '*)
   (define rewrite-count 0)
   (define (scons x y original)
     (if (and (eq? x (car original))
              (eq? y (cdr original)))
       original
       (cons x y)))
   (define (rewrite term)
     (set! rewrite-count (+ rewrite-count 1))
     (cond ((not (pair? term)) term)
           (else
            (rewrite-with-lemmas
              (scons (car term) (rewrite-args (cdr term)) term)
              (get-lemmas (car term))))))
   (define (rewrite-args lst)
     (cond ((null? lst) '())
           (else
            (scons (rewrite (car lst))
                   (rewrite-args (cdr lst))
                   lst))))
   (define (rewrite-with-lemmas term lst)
     (cond ((null? lst) term)
           ((one-way-unify term (cadr (car lst)))
            (rewrite
              (apply-subst unify-subst (caddr (car lst)))))
           (else (rewrite-with-lemmas term (cdr lst)))))
   (define unify-subst '*)
   (define (one-way-unify term1 term2)
     (begin
       (set! unify-subst '())
       (one-way-unify1 term1 term2)))
   (define (one-way-unify1 term1 term2)
     (cond ((not (pair? term2))
            (let ((temp-temp (assq term2 unify-subst)))
              (cond (temp-temp (term-equal? term1 (cdr temp-temp)))
                    ((number? term2) (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 '*)
   (define true-term '*)
   (define (trans-of-implies n)
     (translate-term
       (list 'implies
             (trans-of-implies1 n)
             (list 'implies 0 n))))
   (define (trans-of-implies1 n)
     (cond ((equal? n 1) (list 'implies 0 1))
           (else
            (list 'and
                  (list '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* '())
       (set! if-constructor (symbol->symbol-record 'if))
       (set! false-term (translate-term '(f)))
       (set! true-term (translate-term '(t)))
       (setup)))
   (set! test-boyer
     (lambda (alist term n)
       (set! rewrite-count 0)
       (let ((answer (test alist term n)))
         (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 (current-output-port))
   (let* ((j/s (jiffies-per-second))
          (t0 (current-second))
          (j0 (current-jiffy)))
     (let loop ((i 0) (result #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)
                (display "+!CSVLINE!+")
                (display (this-scheme-implementation-name))
                (display ",")
                (display name)
                (display ",")
                (display secs)
                (newline)
                (flush-output-port (current-output-port)))
              result)
             (else
              (display "ERROR: returned incorrect result: ")
              (write result)
              (newline)
              (flush-output-port (current-output-port))
              result)))))
 (define (this-scheme-implementation-name)
   (string-append "cyclone-" (Cyc-version)))
 (main))
 */
/* 
"inline candidates:"
 */
/* 
()
 */
/* 
"imports:"
 */
/* 
((scheme base)
 (scheme cxr)
 (scheme read)
 (scheme write)
 (scheme time))
 */
/* 
"resolved imports:"
 */
/* 
((member scheme base)
 (assoc scheme base)
 (cons-source scheme base)
 (syntax-rules scheme base)
 (letrec* scheme base)
 (guard scheme base)
 (guard-aux scheme base)
 (define-record-type scheme base)
 (record? scheme base)
 (register-simple-type scheme base)
 (make-type-predicate scheme base)
 (make-constructor scheme base)
 (make-getter scheme base)
 (make-setter scheme base)
 (slot-set! scheme base)
 (type-slot-offset 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-integer-sqrt scheme base)
 (exact? scheme base)
 (inexact? scheme base)
 (odd? scheme base)
 (complex? scheme base)
 (rational? scheme base)
 (bignum? 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-handler 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)
 (get-output-string scheme base)
 (open-output-string scheme base)
 (open-input-string scheme base)
 (get-output-bytevector scheme base)
 (open-input-bytevector scheme base)
 (open-output-bytevector scheme base)
 (features scheme base)
 (Cyc-version scheme base)
 (any scheme base)
 (every scheme base)
 (and scheme base)
 (or scheme base)
 (let scheme base)
 (let* scheme base)
 (letrec scheme base)
 (let*-values scheme base)
 (let-values 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)
 (bytevector-copy! scheme base)
 (utf8->string scheme base)
 (string->utf8 scheme base)
 (denominator scheme base)
 (numerator scheme base)
 (parameterize scheme base)
 (caar scheme cxr)
 (cadr scheme cxr)
 (cdar scheme cxr)
 (cddr scheme cxr)
 (caaar scheme cxr)
 (caadr scheme cxr)
 (cadar scheme cxr)
 (caddr scheme cxr)
 (cdaar scheme cxr)
 (cdadr scheme cxr)
 (cddar scheme cxr)
 (cdddr scheme cxr)
 (caaaar scheme cxr)
 (caaadr scheme cxr)
 (caadar scheme cxr)
 (caaddr scheme cxr)
 (cadaar scheme cxr)
 (cadadr scheme cxr)
 (caddar scheme cxr)
 (cadddr scheme cxr)
 (cdaaar scheme cxr)
 (cdaadr scheme cxr)
 (cdadar scheme cxr)
 (cdaddr scheme cxr)
 (cddaar scheme cxr)
 (cddadr scheme cxr)
 (cdddar scheme cxr)
 (cddddr scheme cxr)
 (caaaaar scheme cxr)
 (read scheme read)
 (read-all scheme read)
 (include scheme read)
 (include-ci scheme read)
 (display scheme write)
 (write scheme write)
 (write-shared scheme write)
 (write-simple scheme write)
 (current-second scheme time)
 (current-jiffy scheme time)
 (jiffies-per-second scheme time))
 */
/* 
"resolved macros:"
 */
/* 
()
 */
/* 
"---------------- after macro expansion:"
 */
/* 
((define main
   (lambda ()
     ((lambda (count)
        ((lambda (input)
           ((lambda (output)
              ((lambda (s2)
                 ((lambda (s1)
                    ((lambda (name)
                       ((lambda ()
                          (run-r7rs-benchmark
                            (string-append name ":" s1 ":" s2)
                            count
                            (lambda ()
                              (setup-boyer)
                              (test-boyer alist term (hide count input)))
                            (lambda (rewrites)
                              (if (number? rewrites)
                                (= rewrites output)
                                #f))))))
                     "sboyer"))
                  (number->string input)))
               (number->string count)))
            (read)))
         (read)))
      (read))))
 (define alist
   '((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
   '(implies
      (and (implies x y)
           (and (implies y z)
                (and (implies z u) (implies u w))))
      (implies x w)))
 (define setup-boyer (lambda () #t))
 (define test-boyer (lambda () #t))
 ((lambda ()
    (define setup
      (lambda ()
        (add-lemma-lst
          '((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) 'equal)
                (pair? (cadr term))
                #f)
              #f)
          ((lambda ()
             (put (car (cadr term))
                  'lemmas
                  (cons (translate-term term)
                        (get (car (cadr term)) '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 () '()))
          ((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* '())
    (define make-symbol-record
      (lambda (sym) (vector sym '())))
    (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$37)
                   (set! lp$37
                     (lambda (term n)
                       (if (zero? n)
                         term
                         (lp$37 (list 'or term '(f)) (- n 1)))))
                   (lp$37 term n))
                 #f))
              term
              n))))))
    (define translate-alist
      (lambda (alist)
        (if (null? alist)
          ((lambda () '()))
          ((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 () '()))
          ((lambda ()
             (cons (apply-subst alist (car lst))
                   (apply-subst-lst alist (cdr lst))))))))
    (define tautp
      (lambda (x) (tautologyp (rewrite x) '() '())))
    (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 '*)
    (define rewrite-count 0)
    (define scons
      (lambda (x y original)
        (if (if (eq? x (car original))
              (eq? y (cdr original))
              #f)
          original
          (cons x y))))
    (define rewrite
      (lambda (term)
        (set! rewrite-count (+ rewrite-count 1))
        (if (not (pair? term))
          ((lambda () term))
          ((lambda ()
             (rewrite-with-lemmas
               (scons (car term) (rewrite-args (cdr term)) term)
               (get-lemmas (car term))))))))
    (define rewrite-args
      (lambda (lst)
        (if (null? lst)
          ((lambda () '()))
          ((lambda ()
             (scons (rewrite (car lst))
                    (rewrite-args (cdr lst))
                    lst))))))
    (define rewrite-with-lemmas
      (lambda (term lst)
        (if (null? lst)
          ((lambda () term))
          (if (one-way-unify term (cadr (car lst)))
            ((lambda ()
               (rewrite
                 (apply-subst unify-subst (caddr (car lst))))))
            ((lambda () (rewrite-with-lemmas term (cdr lst))))))))
    (define unify-subst '*)
    (define one-way-unify
      (lambda (term1 term2)
        (set! unify-subst '())
        (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$117)
           (if tmp$117 tmp$117 (term-member? x lst)))
         (term-equal? x false-term))))
    (define truep
      (lambda (x lst)
        ((lambda (tmp$120)
           (if tmp$120 tmp$120 (term-member? x lst)))
         (term-equal? x true-term))))
    (define false-term '*)
    (define true-term '*)
    (define trans-of-implies
      (lambda (n)
        (translate-term
          (list 'implies
                (trans-of-implies1 n)
                (list 'implies 0 n)))))
    (define trans-of-implies1
      (lambda (n)
        (if (equal? n 1)
          ((lambda () (list 'implies 0 1)))
          ((lambda ()
             (list 'and
                   (list '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* '())
        (set! if-constructor (symbol->symbol-record 'if))
        (set! false-term (translate-term '(f)))
        (set! true-term (translate-term '(t)))
        (setup)))
    (set! test-boyer
      (lambda (alist term n)
        (set! rewrite-count 0)
        ((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 (current-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)
                                                    (display "+!CSVLINE!+")
                                                    (display
                                                      (this-scheme-implementation-name))
                                                    (display ",")
                                                    (display name)
                                                    (display ",")
                                                    (display secs)
                                                    (newline)
                                                    (flush-output-port
                                                      (current-output-port)))))
                                               (rounded (- t1 t0))))
                                            (inexact (/ jifs j/s))))
                                         (- j1 j0)))
                                      (current-second)))
                                   (current-jiffy))
                                  result))
                               ((lambda ()
                                  (display "ERROR: returned incorrect result: ")
                                  (write result)
                                  (newline)
                                  (flush-output-port (current-output-port))
                                  result))))))
                       (loop i result))
                     #f))
                  0
                  #f))))
            (current-jiffy)))
         (current-second)))
      (jiffies-per-second))))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 (main))
 */
/* 
"---------------- after macro expansion cleanup:"
 */
/* 
((define main
   (lambda ()
     ((lambda (count)
        ((lambda (input)
           ((lambda (output)
              ((lambda (s2)
                 ((lambda (s1)
                    ((lambda (name)
                       ((lambda ()
                          (run-r7rs-benchmark
                            (string-append name ":" s1 ":" s2)
                            count
                            (lambda ()
                              (setup-boyer)
                              (test-boyer alist term (hide count input)))
                            (lambda (rewrites)
                              (if (number? rewrites)
                                (= rewrites output)
                                #f))))))
                     "sboyer"))
                  (number->string input)))
               (number->string count)))
            (read)))
         (read)))
      (read))))
 (define alist
   '((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
   '(implies
      (and (implies x y)
           (and (implies y z)
                (and (implies z u) (implies u w))))
      (implies x w)))
 (define setup-boyer (lambda () #t))
 (define test-boyer (lambda () #t))
 ((lambda ()
    (define setup
      (lambda ()
        (add-lemma-lst
          '((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) 'equal)
                (pair? (cadr term))
                #f)
              #f)
          ((lambda ()
             (put (car (cadr term))
                  'lemmas
                  (cons (translate-term term)
                        (get (car (cadr term)) '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 () '()))
          ((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* '())
    (define make-symbol-record
      (lambda (sym) (vector sym '())))
    (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$37)
                   (set! lp$37
                     (lambda (term n)
                       (if (zero? n)
                         term
                         (lp$37 (list 'or term '(f)) (- n 1)))))
                   (lp$37 term n))
                 #f))
              term
              n))))))
    (define translate-alist
      (lambda (alist)
        (if (null? alist)
          ((lambda () '()))
          ((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 () '()))
          ((lambda ()
             (cons (apply-subst alist (car lst))
                   (apply-subst-lst alist (cdr lst))))))))
    (define tautp
      (lambda (x) (tautologyp (rewrite x) '() '())))
    (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 '*)
    (define rewrite-count 0)
    (define scons
      (lambda (x y original)
        (if (if (eq? x (car original))
              (eq? y (cdr original))
              #f)
          original
          (cons x y))))
    (define rewrite
      (lambda (term)
        (set! rewrite-count (+ rewrite-count 1))
        (if (not (pair? term))
          ((lambda () term))
          ((lambda ()
             (rewrite-with-lemmas
               (scons (car term) (rewrite-args (cdr term)) term)
               (get-lemmas (car term))))))))
    (define rewrite-args
      (lambda (lst)
        (if (null? lst)
          ((lambda () '()))
          ((lambda ()
             (scons (rewrite (car lst))
                    (rewrite-args (cdr lst))
                    lst))))))
    (define rewrite-with-lemmas
      (lambda (term lst)
        (if (null? lst)
          ((lambda () term))
          (if (one-way-unify term (cadr (car lst)))
            ((lambda ()
               (rewrite
                 (apply-subst unify-subst (caddr (car lst))))))
            ((lambda () (rewrite-with-lemmas term (cdr lst))))))))
    (define unify-subst '*)
    (define one-way-unify
      (lambda (term1 term2)
        (set! unify-subst '())
        (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$117)
           (if tmp$117 tmp$117 (term-member? x lst)))
         (term-equal? x false-term))))
    (define truep
      (lambda (x lst)
        ((lambda (tmp$120)
           (if tmp$120 tmp$120 (term-member? x lst)))
         (term-equal? x true-term))))
    (define false-term '*)
    (define true-term '*)
    (define trans-of-implies
      (lambda (n)
        (translate-term
          (list 'implies
                (trans-of-implies1 n)
                (list 'implies 0 n)))))
    (define trans-of-implies1
      (lambda (n)
        (if (equal? n 1)
          ((lambda () (list 'implies 0 1)))
          ((lambda ()
             (list 'and
                   (list '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* '())
        (set! if-constructor (symbol->symbol-record 'if))
        (set! false-term (translate-term '(f)))
        (set! true-term (translate-term '(t)))
        (setup)))
    (set! test-boyer
      (lambda (alist term n)
        (set! rewrite-count 0)
        ((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 (current-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)
                                                    (display "+!CSVLINE!+")
                                                    (display
                                                      (this-scheme-implementation-name))
                                                    (display ",")
                                                    (display name)
                                                    (display ",")
                                                    (display secs)
                                                    (newline)
                                                    (flush-output-port
                                                      (current-output-port)))))
                                               (rounded (- t1 t0))))
                                            (inexact (/ jifs j/s))))
                                         (- j1 j0)))
                                      (current-second)))
                                   (current-jiffy))
                                  result))
                               ((lambda ()
                                  (display "ERROR: returned incorrect result: ")
                                  (write result)
                                  (newline)
                                  (flush-output-port (current-output-port))
                                  result))))))
                       (loop i result))
                     #f))
                  0
                  #f))))
            (current-jiffy)))
         (current-second)))
      (jiffies-per-second))))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 (main))
 */
/* 
"---------------- after processing globals"
 */
/* 
((define main
   (lambda ()
     ((lambda (count)
        ((lambda (input)
           ((lambda (output)
              ((lambda (s2)
                 ((lambda (s1)
                    ((lambda (name)
                       ((lambda ()
                          (run-r7rs-benchmark
                            (string-append name ":" s1 ":" s2)
                            count
                            (lambda ()
                              (setup-boyer)
                              (test-boyer alist term (hide count input)))
                            (lambda (rewrites)
                              (if (number? rewrites)
                                (= rewrites output)
                                #f))))))
                     "sboyer"))
                  (number->string input)))
               (number->string count)))
            (read)))
         (read)))
      (read))))
 (define alist #f)
 (define term #f)
 (define setup-boyer (lambda () #t))
 (define test-boyer (lambda () #t))
 (define hide
   (lambda (r x)
     (call-with-values
       (lambda ()
         (values
           (vector values (lambda (x) x))
           (if (< r 100) 0 1)))
       (lambda (v i) ((vector-ref v i) x)))))
 (define run-r7rs-benchmark
   (lambda (name count thunk ok?)
     (define rounded
       (lambda (x) (/ (round (* 1000 x)) 1000)))
     (display "Running ")
     (display name)
     (newline)
     (flush-output-port (current-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)
                                                    (display "+!CSVLINE!+")
                                                    (display
                                                      (this-scheme-implementation-name))
                                                    (display ",")
                                                    (display name)
                                                    (display ",")
                                                    (display secs)
                                                    (newline)
                                                    (flush-output-port
                                                      (current-output-port)))))
                                               (rounded (- t1 t0))))
                                            (inexact (/ jifs j/s))))
                                         (- j1 j0)))
                                      (current-second)))
                                   (current-jiffy))
                                  result))
                               ((lambda ()
                                  (display "ERROR: returned incorrect result: ")
                                  (write result)
                                  (newline)
                                  (flush-output-port (current-output-port))
                                  result))))))
                       (loop i result))
                     #f))
                  0
                  #f))))
            (current-jiffy)))
         (current-second)))
      (jiffies-per-second))))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 ((lambda ()
    0
    (set! alist
      '((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
      '(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
             '((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) 'equal)
                   (pair? (cadr term))
                   #f)
                 #f)
             ((lambda ()
                (put (car (cadr term))
                     'lemmas
                     (cons (translate-term term)
                           (get (car (cadr term)) '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 () '()))
             ((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* '())
       (define make-symbol-record
         (lambda (sym) (vector sym '())))
       (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$37)
                      (set! lp$37
                        (lambda (term n)
                          (if (zero? n)
                            term
                            (lp$37 (list 'or term '(f)) (- n 1)))))
                      (lp$37 term n))
                    #f))
                 term
                 n))))))
       (define translate-alist
         (lambda (alist)
           (if (null? alist)
             ((lambda () '()))
             ((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 () '()))
             ((lambda ()
                (cons (apply-subst alist (car lst))
                      (apply-subst-lst alist (cdr lst))))))))
       (define tautp
         (lambda (x) (tautologyp (rewrite x) '() '())))
       (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 '*)
       (define rewrite-count 0)
       (define scons
         (lambda (x y original)
           (if (if (eq? x (car original))
                 (eq? y (cdr original))
                 #f)
             original
             (cons x y))))
       (define rewrite
         (lambda (term)
           (set! rewrite-count (+ rewrite-count 1))
           (if (not (pair? term))
             ((lambda () term))
             ((lambda ()
                (rewrite-with-lemmas
                  (scons (car term) (rewrite-args (cdr term)) term)
                  (get-lemmas (car term))))))))
       (define rewrite-args
         (lambda (lst)
           (if (null? lst)
             ((lambda () '()))
             ((lambda ()
                (scons (rewrite (car lst))
                       (rewrite-args (cdr lst))
                       lst))))))
       (define rewrite-with-lemmas
         (lambda (term lst)
           (if (null? lst)
             ((lambda () term))
             (if (one-way-unify term (cadr (car lst)))
               ((lambda ()
                  (rewrite
                    (apply-subst unify-subst (caddr (car lst))))))
               ((lambda () (rewrite-with-lemmas term (cdr lst))))))))
       (define unify-subst '*)
       (define one-way-unify
         (lambda (term1 term2)
           (set! unify-subst '())
           (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$117)
              (if tmp$117 tmp$117 (term-member? x lst)))
            (term-equal? x false-term))))
       (define truep
         (lambda (x lst)
           ((lambda (tmp$120)
              (if tmp$120 tmp$120 (term-member? x lst)))
            (term-equal? x true-term))))
       (define false-term '*)
       (define true-term '*)
       (define trans-of-implies
         (lambda (n)
           (translate-term
             (list 'implies
                   (trans-of-implies1 n)
                   (list 'implies 0 n)))))
       (define trans-of-implies1
         (lambda (n)
           (if (equal? n 1)
             ((lambda () (list 'implies 0 1)))
             ((lambda ()
                (list 'and
                      (list '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* '())
           (set! if-constructor (symbol->symbol-record 'if))
           (set! false-term (translate-term '(f)))
           (set! true-term (translate-term '(t)))
           (setup)))
       (set! test-boyer
         (lambda (alist term n)
           (set! rewrite-count 0)
           ((lambda (answer) (if answer rewrite-count #f))
            (test alist term n))))))
    (main))))
 */
/* 
"pass thru exports:"
 */
/* 
()
 */
/* 
"---------------- after alpha conversion:"
 */
/* 
((define main
   (lambda ()
     ((lambda (count$352)
        ((lambda (input$353)
           ((lambda (output$354)
              ((lambda (s2$355)
                 ((lambda (s1$356)
                    ((lambda (name$357)
                       ((lambda ()
                          (run-r7rs-benchmark
                            (string-append name$357 ":" s1$356 ":" s2$355)
                            count$352
                            (lambda ()
                              (setup-boyer)
                              (test-boyer
                                alist
                                term
                                (hide count$352 input$353)))
                            (lambda (rewrites$358)
                              (if (number? rewrites$358)
                                (Cyc-fast-eq rewrites$358 output$354)
                                #f))))))
                     "sboyer"))
                  (number->string input$353)))
               (number->string count$352)))
            (read)))
         (read)))
      (read))))
 (define alist #f)
 (define term #f)
 (define setup-boyer (lambda () #t))
 (define test-boyer (lambda () #t))
 (define hide
   (lambda (r$348 x$347)
     (call-with-values
       (lambda ()
         (values
           (vector values (lambda (x$351) x$351))
           (if (Cyc-fast-lt r$348 100) 0 1)))
       (lambda (v$350 i$349)
         ((vector-ref v$350 i$349) x$347)))))
 (define run-r7rs-benchmark
   (lambda (name$329 count$328 thunk$327 ok?$326)
     ((lambda (rounded$331)
        ((lambda (rounded$332)
           (set! rounded$331
             (lambda (x$346)
               (Cyc-fast-div
                 (round (Cyc-fast-mul 1000 x$346))
                 1000)))
           (display "Running ")
           (display name$329)
           (newline)
           (flush-output-port (current-output-port))
           ((lambda (j/s$333)
              ((lambda (t0$334)
                 ((lambda (j0$335)
                    ((lambda ()
                       ((lambda (i$337 result$336)
                          ((lambda (loop$338)
                             (set! loop$338
                               (lambda (i$340 result$339)
                                 (if (Cyc-fast-lt i$340 count$328)
                                   ((lambda ()
                                      (loop$338
                                        (Cyc-fast-plus i$340 1)
                                        (thunk$327))))
                                   (if (ok?$326 result$339)
                                     ((lambda ()
                                        ((lambda (j1$341)
                                           ((lambda (t1$342)
                                              ((lambda (jifs$343)
                                                 ((lambda (secs$344)
                                                    ((lambda (secs2$345)
                                                       ((lambda ()
                                                          (display
                                                            "Elapsed time: ")
                                                          (write secs$344)
                                                          (display " seconds (")
                                                          (write secs2$345)
                                                          (display ") for ")
                                                          (display name$329)
                                                          (newline)
                                                          (display
                                                            "+!CSVLINE!+")
                                                          (display
                                                            (this-scheme-implementation-name))
                                                          (display ",")
                                                          (display name$329)
                                                          (display ",")
                                                          (display secs$344)
                                                          (newline)
                                                          (flush-output-port
                                                            (current-output-port)))))
                                                     (rounded$331
                                                       (Cyc-fast-sub
                                                         t1$342
                                                         t0$334))))
                                                  (inexact
                                                    (Cyc-fast-div
                                                      jifs$343
                                                      j/s$333))))
                                               (Cyc-fast-sub j1$341 j0$335)))
                                            (current-second)))
                                         (current-jiffy))
                                        result$339))
                                     ((lambda ()
                                        (display
                                          "ERROR: returned incorrect result: ")
                                        (write result$339)
                                        (newline)
                                        (flush-output-port
                                          (current-output-port))
                                        result$339))))))
                             (loop$338 i$337 result$336))
                           #f))
                        0
                        #f))))
                  (current-jiffy)))
               (current-second)))
            (jiffies-per-second)))
         #f))
      #f)))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 ((lambda (*symbol-records-alist*$214
           add-lemma$213
           add-lemma-lst$212
           apply-subst$211
           apply-subst-lst$210
           false-term$209
           falsep$208
           get$207
           get-lemmas$206
           get-name$205
           if-constructor$204
           make-symbol-record$203
           one-way-unify$202
           one-way-unify1$201
           one-way-unify1-lst$200
           put$199
           put-lemmas!$198
           rewrite$197
           rewrite-args$196
           rewrite-count$195
           rewrite-with-lemmas$194
           scons$193
           setup$192
           symbol->symbol-record$191
           symbol-record-equal?$190
           tautologyp$189
           tautp$188
           term-args-equal?$187
           term-equal?$186
           term-member?$185
           test$184
           trans-of-implies$183
           trans-of-implies1$182
           translate-alist$181
           translate-args$180
           translate-term$179
           true-term$178
           truep$177
           unify-subst$176
           untranslate-term$175)
    ((lambda ()
       0
       (set! alist
         '((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
         '(implies
            (and (implies x y)
                 (and (implies y z)
                      (and (implies z u) (implies u w))))
            (implies x w)))
       ((lambda ()
          ((lambda (setup$254
                    add-lemma-lst$253
                    add-lemma$252
                    translate-term$251
                    translate-args$250
                    untranslate-term$249
                    put$248
                    get$247
                    symbol->symbol-record$246
                    *symbol-records-alist*$245
                    make-symbol-record$244
                    put-lemmas!$243
                    get-lemmas$242
                    get-name$241
                    symbol-record-equal?$240
                    test$239
                    translate-alist$238
                    apply-subst$237
                    apply-subst-lst$236
                    tautp$235
                    tautologyp$234
                    if-constructor$233
                    rewrite-count$232
                    scons$231
                    rewrite$230
                    rewrite-args$229
                    rewrite-with-lemmas$228
                    unify-subst$227
                    one-way-unify$226
                    one-way-unify1$225
                    one-way-unify1-lst$224
                    falsep$223
                    truep$222
                    false-term$221
                    true-term$220
                    trans-of-implies$219
                    trans-of-implies1$218
                    term-equal?$217
                    term-args-equal?$216
                    term-member?$215)
             (set! setup$254
               (lambda ()
                 (add-lemma-lst$253
                   '((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$253
               (lambda (lst$325)
                 (if (null? lst$325)
                   ((lambda () #t))
                   ((lambda ()
                      (add-lemma$252 (car lst$325))
                      (add-lemma-lst$253 (cdr lst$325)))))))
             (set! add-lemma$252
               (lambda (term$324)
                 (if (if (pair? term$324)
                       (if (eq? (car term$324) 'equal)
                         (pair? (cadr term$324))
                         #f)
                       #f)
                   ((lambda ()
                      (put$248
                        (car (cadr term$324))
                        'lemmas
                        (cons (translate-term$251 term$324)
                              (get$247 (car (cadr term$324)) 'lemmas)))))
                   ((lambda ()
                      (error #f
                             "ADD-LEMMA did not like term:  "
                             term$324))))))
             (set! translate-term$251
               (lambda (term$323)
                 (if (pair? term$323)
                   ((lambda ()
                      (cons (symbol->symbol-record$246 (car term$323))
                            (translate-args$250 (cdr term$323)))))
                   ((lambda () term$323)))))
             (set! translate-args$250
               (lambda (lst$322)
                 (if (null? lst$322)
                   ((lambda () '()))
                   ((lambda ()
                      (cons (translate-term$251 (car lst$322))
                            (translate-args$250 (cdr lst$322))))))))
             (set! untranslate-term$249
               (lambda (term$321)
                 (if (pair? term$321)
                   ((lambda ()
                      (cons (get-name$241 (car term$321))
                            (map untranslate-term$249 (cdr term$321)))))
                   ((lambda () term$321)))))
             (set! put$248
               (lambda (sym$320 property$319 value$318)
                 (put-lemmas!$243
                   (symbol->symbol-record$246 sym$320)
                   value$318)))
             (set! get$247
               (lambda (sym$317 property$316)
                 (get-lemmas$242
                   (symbol->symbol-record$246 sym$317))))
             (set! symbol->symbol-record$246
               (lambda (sym$313)
                 ((lambda (x$314)
                    (if x$314
                      (cdr x$314)
                      ((lambda (r$315)
                         (set! *symbol-records-alist*$245
                           (cons (cons sym$313 r$315)
                                 *symbol-records-alist*$245))
                         r$315)
                       (make-symbol-record$244 sym$313))))
                  (assq sym$313 *symbol-records-alist*$245))))
             (set! *symbol-records-alist*$245 '())
             (set! make-symbol-record$244
               (lambda (sym$312) (vector sym$312 '())))
             (set! put-lemmas!$243
               (lambda (symbol-record$311 lemmas$310)
                 (vector-set! symbol-record$311 1 lemmas$310)))
             (set! get-lemmas$242
               (lambda (symbol-record$309)
                 (vector-ref symbol-record$309 1)))
             (set! get-name$241
               (lambda (symbol-record$308)
                 (vector-ref symbol-record$308 0)))
             (set! symbol-record-equal?$240
               (lambda (r1$307 r2$306) (eq? r1$307 r2$306)))
             (set! test$239
               (lambda (alist$299 term$298 n$297)
                 ((lambda (term$305) (tautp$235 term$305))
                  (apply-subst$237
                    (translate-alist$238 alist$299)
                    (translate-term$251
                      ((lambda (term$301 n$300)
                         ((lambda (lp$37$302)
                            (set! lp$37$302
                              (lambda (term$304 n$303)
                                (if (zero? n$303)
                                  term$304
                                  (lp$37$302
                                    (list 'or term$304 '(f))
                                    (Cyc-fast-sub n$303 1)))))
                            (lp$37$302 term$301 n$300))
                          #f))
                       term$298
                       n$297))))))
             (set! translate-alist$238
               (lambda (alist$296)
                 (if (null? alist$296)
                   ((lambda () '()))
                   ((lambda ()
                      (cons (cons (caar alist$296)
                                  (translate-term$251 (cdar alist$296)))
                            (translate-alist$238 (cdr alist$296))))))))
             (set! apply-subst$237
               (lambda (alist$294 term$293)
                 (if (pair? term$293)
                   ((lambda ()
                      (cons (car term$293)
                            (apply-subst-lst$236 alist$294 (cdr term$293)))))
                   ((lambda ()
                      ((lambda (temp-temp$295)
                         (if temp-temp$295 (cdr temp-temp$295) term$293))
                       (assq term$293 alist$294)))))))
             (set! apply-subst-lst$236
               (lambda (alist$292 lst$291)
                 (if (null? lst$291)
                   ((lambda () '()))
                   ((lambda ()
                      (cons (apply-subst$237 alist$292 (car lst$291))
                            (apply-subst-lst$236 alist$292 (cdr lst$291))))))))
             (set! tautp$235
               (lambda (x$290)
                 (tautologyp$234 (rewrite$230 x$290) '() '())))
             (set! tautologyp$234
               (lambda (x$289 true-lst$288 false-lst$287)
                 (if (truep$222 x$289 true-lst$288)
                   ((lambda () #t))
                   (if (falsep$223 x$289 false-lst$287)
                     ((lambda () #f))
                     (if (pair? x$289)
                       (if (eq? (car x$289) if-constructor$233)
                         ((lambda ()
                            (if (truep$222 (cadr x$289) true-lst$288)
                              ((lambda ()
                                 (tautologyp$234
                                   (caddr x$289)
                                   true-lst$288
                                   false-lst$287)))
                              (if (falsep$223 (cadr x$289) false-lst$287)
                                ((lambda ()
                                   (tautologyp$234
                                     (cadddr x$289)
                                     true-lst$288
                                     false-lst$287)))
                                ((lambda ()
                                   (if (tautologyp$234
                                         (caddr x$289)
                                         (cons (cadr x$289) true-lst$288)
                                         false-lst$287)
                                     (tautologyp$234
                                       (cadddr x$289)
                                       true-lst$288
                                       (cons (cadr x$289) false-lst$287))
                                     #f)))))))
                         ((lambda () #f)))
                       ((lambda () #f)))))))
             (set! if-constructor$233 '*)
             (set! rewrite-count$232 0)
             (set! scons$231
               (lambda (x$286 y$285 original$284)
                 (if (if (eq? x$286 (car original$284))
                       (eq? y$285 (cdr original$284))
                       #f)
                   original$284
                   (cons x$286 y$285))))
             (set! rewrite$230
               (lambda (term$283)
                 (set! rewrite-count$232
                   (Cyc-fast-plus rewrite-count$232 1))
                 (if (pair? term$283)
                   ((lambda ()
                      (rewrite-with-lemmas$228
                        (scons$231
                          (car term$283)
                          (rewrite-args$229 (cdr term$283))
                          term$283)
                        (get-lemmas$242 (car term$283)))))
                   ((lambda () term$283)))))
             (set! rewrite-args$229
               (lambda (lst$282)
                 (if (null? lst$282)
                   ((lambda () '()))
                   ((lambda ()
                      (scons$231
                        (rewrite$230 (car lst$282))
                        (rewrite-args$229 (cdr lst$282))
                        lst$282))))))
             (set! rewrite-with-lemmas$228
               (lambda (term$281 lst$280)
                 (if (null? lst$280)
                   ((lambda () term$281))
                   (if (one-way-unify$226 term$281 (cadr (car lst$280)))
                     ((lambda ()
                        (rewrite$230
                          (apply-subst$237
                            unify-subst$227
                            (caddr (car lst$280))))))
                     ((lambda ()
                        (rewrite-with-lemmas$228 term$281 (cdr lst$280))))))))
             (set! unify-subst$227 '*)
             (set! one-way-unify$226
               (lambda (term1$279 term2$278)
                 (set! unify-subst$227 '())
                 (one-way-unify1$225 term1$279 term2$278)))
             (set! one-way-unify1$225
               (lambda (term1$276 term2$275)
                 (if (pair? term2$275)
                   (if (pair? term1$276)
                     (if (eq? (car term1$276) (car term2$275))
                       ((lambda ()
                          (one-way-unify1-lst$224
                            (cdr term1$276)
                            (cdr term2$275))))
                       ((lambda () #f)))
                     ((lambda () #f)))
                   ((lambda ()
                      ((lambda (temp-temp$277)
                         (if temp-temp$277
                           ((lambda ()
                              (term-equal?$217 term1$276 (cdr temp-temp$277))))
                           (if (number? term2$275)
                             ((lambda () (equal? term1$276 term2$275)))
                             ((lambda ()
                                (set! unify-subst$227
                                  (cons (cons term2$275 term1$276)
                                        unify-subst$227))
                                #t)))))
                       (assq term2$275 unify-subst$227)))))))
             (set! one-way-unify1-lst$224
               (lambda (lst1$274 lst2$273)
                 (if (null? lst1$274)
                   ((lambda () (null? lst2$273)))
                   (if (null? lst2$273)
                     ((lambda () #f))
                     (if (one-way-unify1$225
                           (car lst1$274)
                           (car lst2$273))
                       ((lambda ()
                          (one-way-unify1-lst$224
                            (cdr lst1$274)
                            (cdr lst2$273))))
                       ((lambda () #f)))))))
             (set! falsep$223
               (lambda (x$271 lst$270)
                 ((lambda (tmp$117$272)
                    (if tmp$117$272
                      tmp$117$272
                      (term-member?$215 x$271 lst$270)))
                  (term-equal?$217 x$271 false-term$221))))
             (set! truep$222
               (lambda (x$268 lst$267)
                 ((lambda (tmp$120$269)
                    (if tmp$120$269
                      tmp$120$269
                      (term-member?$215 x$268 lst$267)))
                  (term-equal?$217 x$268 true-term$220))))
             (set! false-term$221 '*)
             (set! true-term$220 '*)
             (set! trans-of-implies$219
               (lambda (n$266)
                 (translate-term$251
                   (list 'implies
                         (trans-of-implies1$218 n$266)
                         (list 'implies 0 n$266)))))
             (set! trans-of-implies1$218
               (lambda (n$265)
                 (if (equal? n$265 1)
                   ((lambda () (list 'implies 0 1)))
                   ((lambda ()
                      (list 'and
                            (list 'implies (Cyc-fast-sub n$265 1) n$265)
                            (trans-of-implies1$218 (Cyc-fast-sub n$265 1))))))))
             (set! term-equal?$217
               (lambda (x$264 y$263)
                 (if (pair? x$264)
                   ((lambda ()
                      (if (pair? y$263)
                        (if (symbol-record-equal?$240
                              (car x$264)
                              (car y$263))
                          (term-args-equal?$216 (cdr x$264) (cdr y$263))
                          #f)
                        #f)))
                   ((lambda () (equal? x$264 y$263))))))
             (set! term-args-equal?$216
               (lambda (lst1$262 lst2$261)
                 (if (null? lst1$262)
                   ((lambda () (null? lst2$261)))
                   (if (null? lst2$261)
                     ((lambda () #f))
                     (if (term-equal?$217 (car lst1$262) (car lst2$261))
                       ((lambda ()
                          (term-args-equal?$216
                            (cdr lst1$262)
                            (cdr lst2$261))))
                       ((lambda () #f)))))))
             (set! term-member?$215
               (lambda (x$260 lst$259)
                 (if (null? lst$259)
                   ((lambda () #f))
                   (if (term-equal?$217 x$260 (car lst$259))
                     ((lambda () #t))
                     ((lambda ()
                        (term-member?$215 x$260 (cdr lst$259))))))))
             (set! setup-boyer
               (lambda ()
                 (set! *symbol-records-alist*$245 '())
                 (set! if-constructor$233
                   (symbol->symbol-record$246 'if))
                 (set! false-term$221 (translate-term$251 '(f)))
                 (set! true-term$220 (translate-term$251 '(t)))
                 (setup$254)))
             (set! test-boyer
               (lambda (alist$257 term$256 n$255)
                 (set! rewrite-count$232 0)
                 ((lambda (answer$258)
                    (if answer$258 rewrite-count$232 #f))
                  (test$239 alist$257 term$256 n$255)))))
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f)))
       (main))))
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f))
 */
/* 
"---------------- after func->primitive conversion:"
 */
/* 
((define main
   (lambda ()
     ((lambda (count$352)
        ((lambda (input$353)
           ((lambda (output$354)
              ((lambda (s2$355)
                 ((lambda (s1$356)
                    ((lambda (name$357)
                       ((lambda ()
                          (run-r7rs-benchmark
                            (string-append name$357 ":" s1$356 ":" s2$355)
                            count$352
                            (lambda ()
                              (setup-boyer)
                              (test-boyer
                                alist
                                term
                                (hide count$352 input$353)))
                            (lambda (rewrites$358)
                              (if (number? rewrites$358)
                                (Cyc-fast-eq rewrites$358 output$354)
                                #f))))))
                     "sboyer"))
                  (number->string input$353)))
               (number->string count$352)))
            (read)))
         (read)))
      (read))))
 (define alist #f)
 (define term #f)
 (define setup-boyer (lambda () #t))
 (define test-boyer (lambda () #t))
 (define hide
   (lambda (r$348 x$347)
     (call-with-values
       (lambda ()
         (values
           (vector values (lambda (x$351) x$351))
           (if (Cyc-fast-lt r$348 100) 0 1)))
       (lambda (v$350 i$349)
         ((vector-ref v$350 i$349) x$347)))))
 (define run-r7rs-benchmark
   (lambda (name$329 count$328 thunk$327 ok?$326)
     ((lambda (rounded$331)
        ((lambda (rounded$332)
           (set! rounded$331
             (lambda (x$346)
               (Cyc-fast-div
                 (round__inline__ (Cyc-fast-mul 1000 x$346))
                 1000)))
           (display "Running ")
           (display name$329)
           (newline)
           (flush-output-port (current-output-port))
           ((lambda (j/s$333)
              ((lambda (t0$334)
                 ((lambda (j0$335)
                    ((lambda ()
                       ((lambda (i$337 result$336)
                          ((lambda (loop$338)
                             (set! loop$338
                               (lambda (i$340 result$339)
                                 (if (Cyc-fast-lt i$340 count$328)
                                   ((lambda ()
                                      (loop$338
                                        (Cyc-fast-plus i$340 1)
                                        (thunk$327))))
                                   (if (ok?$326 result$339)
                                     ((lambda ()
                                        ((lambda (j1$341)
                                           ((lambda (t1$342)
                                              ((lambda (jifs$343)
                                                 ((lambda (secs$344)
                                                    ((lambda (secs2$345)
                                                       ((lambda ()
                                                          (display
                                                            "Elapsed time: ")
                                                          (write secs$344)
                                                          (display " seconds (")
                                                          (write secs2$345)
                                                          (display ") for ")
                                                          (display name$329)
                                                          (newline)
                                                          (display
                                                            "+!CSVLINE!+")
                                                          (display
                                                            (this-scheme-implementation-name))
                                                          (display ",")
                                                          (display name$329)
                                                          (display ",")
                                                          (display secs$344)
                                                          (newline)
                                                          (flush-output-port
                                                            (current-output-port)))))
                                                     (rounded$331
                                                       (Cyc-fast-sub
                                                         t1$342
                                                         t0$334))))
                                                  (inexact__inline__
                                                    (Cyc-fast-div
                                                      jifs$343
                                                      j/s$333))))
                                               (Cyc-fast-sub j1$341 j0$335)))
                                            (current-second)))
                                         (current-jiffy))
                                        result$339))
                                     ((lambda ()
                                        (display
                                          "ERROR: returned incorrect result: ")
                                        (write result$339)
                                        (newline)
                                        (flush-output-port
                                          (current-output-port))
                                        result$339))))))
                             (loop$338 i$337 result$336))
                           #f))
                        0
                        #f))))
                  (current-jiffy)))
               (current-second)))
            (jiffies-per-second)))
         #f))
      #f)))
 (define this-scheme-implementation-name
   (lambda ()
     (string-append "cyclone-" (Cyc-version))))
 ((lambda (*symbol-records-alist*$214
           add-lemma$213
           add-lemma-lst$212
           apply-subst$211
           apply-subst-lst$210
           false-term$209
           falsep$208
           get$207
           get-lemmas$206
           get-name$205
           if-constructor$204
           make-symbol-record$203
           one-way-unify$202
           one-way-unify1$201
           one-way-unify1-lst$200
           put$199
           put-lemmas!$198
           rewrite$197
           rewrite-args$196
           rewrite-count$195
           rewrite-with-lemmas$194
           scons$193
           setup$192
           symbol->symbol-record$191
           symbol-record-equal?$190
           tautologyp$189
           tautp$188
           term-args-equal?$187
           term-equal?$186
           term-member?$185
           test$184
           trans-of-implies$183
           trans-of-implies1$182
           translate-alist$181
           translate-args$180
           translate-term$179
           true-term$178
           truep$177
           unify-subst$176
           untranslate-term$175)
    ((lambda ()
       0
       (set! alist
         '((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
         '(implies
            (and (implies x y)
                 (and (implies y z)
                      (and (implies z u) (implies u w))))
            (implies x w)))
       ((lambda ()
          ((lambda (setup$254
                    add-lemma-lst$253
                    add-lemma$252
                    translate-term$251
                    translate-args$250
                    untranslate-term$249
                    put$248
                    get$247
                    symbol->symbol-record$246
                    *symbol-records-alist*$245
                    make-symbol-record$244
                    put-lemmas!$243
                    get-lemmas$242
                    get-name$241
                    symbol-record-equal?$240
                    test$239
                    translate-alist$238
                    apply-subst$237
                    apply-subst-lst$236
                    tautp$235
                    tautologyp$234
                    if-constructor$233
                    rewrite-count$232
                    scons$231
                    rewrite$230
                    rewrite-args$229
                    rewrite-with-lemmas$228
                    unify-subst$227
                    one-way-unify$226
                    one-way-unify1$225
                    one-way-unify1-lst$224
                    falsep$223
                    truep$222
                    false-term$221
                    true-term$220
                    trans-of-implies$219
                    trans-of-implies1$218
                    term-equal?$217
                    term-args-equal?$216
                    term-member?$215)
             (set! setup$254
               (lambda ()
                 (add-lemma-lst$253
                   '((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$253
               (lambda (lst$325)
                 (if (null? lst$325)
                   ((lambda () #t))
                   ((lambda ()
                      (add-lemma$252 (car lst$325))
                      (add-lemma-lst$253 (cdr lst$325)))))))
             (set! add-lemma$252
               (lambda (term$324)
                 (if (if (pair? term$324)
                       (if (eq? (car term$324) 'equal)
                         (pair? (cadr term$324))
                         #f)
                       #f)
                   ((lambda ()
                      (put$248
                        (car (cadr term$324))
                        'lemmas
                        (cons (translate-term$251 term$324)
                              (get$247 (car (cadr term$324)) 'lemmas)))))
                   ((lambda ()
                      (error #f
                             "ADD-LEMMA did not like term:  "
                             term$324))))))
             (set! translate-term$251
               (lambda (term$323)
                 (if (pair? term$323)
                   ((lambda ()
                      (cons (symbol->symbol-record$246 (car term$323))
                            (translate-args$250 (cdr term$323)))))
                   ((lambda () term$323)))))
             (set! translate-args$250
               (lambda (lst$322)
                 (if (null? lst$322)
                   ((lambda () '()))
                   ((lambda ()
                      (cons (translate-term$251 (car lst$322))
                            (translate-args$250 (cdr lst$322))))))))
             (set! untranslate-term$249
               (lambda (term$321)
                 (if (pair? term$321)
                   ((lambda ()
                      (cons (get-name$241 (car term$321))
                            (map untranslate-term$249 (cdr term$321)))))
                   ((lambda () term$321)))))
             (set! put$248
               (lambda (sym$320 property$319 value$318)
                 (put-lemmas!$243
                   (symbol->symbol-record$246 sym$320)
                   value$318)))
             (set! get$247
               (lambda (sym$317 property$316)
                 (get-lemmas$242
                   (symbol->symbol-record$246 sym$317))))
             (set! symbol->symbol-record$246
               (lambda (sym$313)
                 ((lambda (x$314)
                    (if x$314
                      (cdr x$314)
                      ((lambda (r$315)
                         (set! *symbol-records-alist*$245
                           (cons (cons sym$313 r$315)
                                 *symbol-records-alist*$245))
                         r$315)
                       (make-symbol-record$244 sym$313))))
                  (assq sym$313 *symbol-records-alist*$245))))
             (set! *symbol-records-alist*$245 '())
             (set! make-symbol-record$244
               (lambda (sym$312) (vector sym$312 '())))
             (set! put-lemmas!$243
               (lambda (symbol-record$311 lemmas$310)
                 (vector-set! symbol-record$311 1 lemmas$310)))
             (set! get-lemmas$242
               (lambda (symbol-record$309)
                 (vector-ref symbol-record$309 1)))
             (set! get-name$241
               (lambda (symbol-record$308)
                 (vector-ref symbol-record$308 0)))
             (set! symbol-record-equal?$240
               (lambda (r1$307 r2$306) (eq? r1$307 r2$306)))
             (set! test$239
               (lambda (alist$299 term$298 n$297)
                 ((lambda (term$305) (tautp$235 term$305))
                  (apply-subst$237
                    (translate-alist$238 alist$299)
                    (translate-term$251
                      ((lambda (term$301 n$300)
                         ((lambda (lp$37$302)
                            (set! lp$37$302
                              (lambda (term$304 n$303)
                                (if (zero?__inline__ n$303)
                                  term$304
                                  (lp$37$302
                                    (list 'or term$304 '(f))
                                    (Cyc-fast-sub n$303 1)))))
                            (lp$37$302 term$301 n$300))
                          #f))
                       term$298
                       n$297))))))
             (set! translate-alist$238
               (lambda (alist$296)
                 (if (null? alist$296)
                   ((lambda () '()))
                   ((lambda ()
                      (cons (cons (caar alist$296)
                                  (translate-term$251 (cdar alist$296)))
                            (translate-alist$238 (cdr alist$296))))))))
             (set! apply-subst$237
               (lambda (alist$294 term$293)
                 (if (pair? term$293)
                   ((lambda ()
                      (cons (car term$293)
                            (apply-subst-lst$236 alist$294 (cdr term$293)))))
                   ((lambda ()
                      ((lambda (temp-temp$295)
                         (if temp-temp$295 (cdr temp-temp$295) term$293))
                       (assq term$293 alist$294)))))))
             (set! apply-subst-lst$236
               (lambda (alist$292 lst$291)
                 (if (null? lst$291)
                   ((lambda () '()))
                   ((lambda ()
                      (cons (apply-subst$237 alist$292 (car lst$291))
                            (apply-subst-lst$236 alist$292 (cdr lst$291))))))))
             (set! tautp$235
               (lambda (x$290)
                 (tautologyp$234 (rewrite$230 x$290) '() '())))
             (set! tautologyp$234
               (lambda (x$289 true-lst$288 false-lst$287)
                 (if (truep$222 x$289 true-lst$288)
                   ((lambda () #t))
                   (if (falsep$223 x$289 false-lst$287)
                     ((lambda () #f))
                     (if (pair? x$289)
                       (if (eq? (car x$289) if-constructor$233)
                         ((lambda ()
                            (if (truep$222 (cadr x$289) true-lst$288)
                              ((lambda ()
                                 (tautologyp$234
                                   (caddr x$289)
                                   true-lst$288
                                   false-lst$287)))
                              (if (falsep$223 (cadr x$289) false-lst$287)
                                ((lambda ()
                                   (tautologyp$234
                                     (cadddr x$289)
                                     true-lst$288
                                     false-lst$287)))
                                ((lambda ()
                                   (if (tautologyp$234
                                         (caddr x$289)
                                         (cons (cadr x$289) true-lst$288)
                                         false-lst$287)
                                     (tautologyp$234
                                       (cadddr x$289)
                                       true-lst$288
                                       (cons (cadr x$289) false-lst$287))
                                     #f)))))))
                         ((lambda () #f)))
                       ((lambda () #f)))))))
             (set! if-constructor$233 '*)
             (set! rewrite-count$232 0)
             (set! scons$231
               (lambda (x$286 y$285 original$284)
                 (if (if (eq? x$286 (car original$284))
                       (eq? y$285 (cdr original$284))
                       #f)
                   original$284
                   (cons x$286 y$285))))
             (set! rewrite$230
               (lambda (term$283)
                 (set! rewrite-count$232
                   (Cyc-fast-plus rewrite-count$232 1))
                 (if (pair? term$283)
                   ((lambda ()
                      (rewrite-with-lemmas$228
                        (scons$231
                          (car term$283)
                          (rewrite-args$229 (cdr term$283))
                          term$283)
                        (get-lemmas$242 (car term$283)))))
                   ((lambda () term$283)))))
             (set! rewrite-args$229
               (lambda (lst$282)
                 (if (null? lst$282)
                   ((lambda () '()))
                   ((lambda ()
                      (scons$231
                        (rewrite$230 (car lst$282))
                        (rewrite-args$229 (cdr lst$282))
                        lst$282))))))
             (set! rewrite-with-lemmas$228
               (lambda (term$281 lst$280)
                 (if (null? lst$280)
                   ((lambda () term$281))
                   (if (one-way-unify$226 term$281 (cadr (car lst$280)))
                     ((lambda ()
                        (rewrite$230
                          (apply-subst$237
                            unify-subst$227
                            (caddr (car lst$280))))))
                     ((lambda ()
                        (rewrite-with-lemmas$228 term$281 (cdr lst$280))))))))
             (set! unify-subst$227 '*)
             (set! one-way-unify$226
               (lambda (term1$279 term2$278)
                 (set! unify-subst$227 '())
                 (one-way-unify1$225 term1$279 term2$278)))
             (set! one-way-unify1$225
               (lambda (term1$276 term2$275)
                 (if (pair? term2$275)
                   (if (pair? term1$276)
                     (if (eq? (car term1$276) (car term2$275))
                       ((lambda ()
                          (one-way-unify1-lst$224
                            (cdr term1$276)
                            (cdr term2$275))))
                       ((lambda () #f)))
                     ((lambda () #f)))
                   ((lambda ()
                      ((lambda (temp-temp$277)
                         (if temp-temp$277
                           ((lambda ()
                              (term-equal?$217 term1$276 (cdr temp-temp$277))))
                           (if (number? term2$275)
                             ((lambda () (equal? term1$276 term2$275)))
                             ((lambda ()
                                (set! unify-subst$227
                                  (cons (cons term2$275 term1$276)
                                        unify-subst$227))
                                #t)))))
                       (assq term2$275 unify-subst$227)))))))
             (set! one-way-unify1-lst$224
               (lambda (lst1$274 lst2$273)
                 (if (null? lst1$274)
                   ((lambda () (null? lst2$273)))
                   (if (null? lst2$273)
                     ((lambda () #f))
                     (if (one-way-unify1$225
                           (car lst1$274)
                           (car lst2$273))
                       ((lambda ()
                          (one-way-unify1-lst$224
                            (cdr lst1$274)
                            (cdr lst2$273))))
                       ((lambda () #f)))))))
             (set! falsep$223
               (lambda (x$271 lst$270)
                 ((lambda (tmp$117$272)
                    (if tmp$117$272
                      tmp$117$272
                      (term-member?$215 x$271 lst$270)))
                  (term-equal?$217 x$271 false-term$221))))
             (set! truep$222
               (lambda (x$268 lst$267)
                 ((lambda (tmp$120$269)
                    (if tmp$120$269
                      tmp$120$269
                      (term-member?$215 x$268 lst$267)))
                  (term-equal?$217 x$268 true-term$220))))
             (set! false-term$221 '*)
             (set! true-term$220 '*)
             (set! trans-of-implies$219
               (lambda (n$266)
                 (translate-term$251
                   (list 'implies
                         (trans-of-implies1$218 n$266)
                         (list 'implies 0 n$266)))))
             (set! trans-of-implies1$218
               (lambda (n$265)
                 (if (equal? n$265 1)
                   ((lambda () (list 'implies 0 1)))
                   ((lambda ()
                      (list 'and
                            (list 'implies (Cyc-fast-sub n$265 1) n$265)
                            (trans-of-implies1$218 (Cyc-fast-sub n$265 1))))))))
             (set! term-equal?$217
               (lambda (x$264 y$263)
                 (if (pair? x$264)
                   ((lambda ()
                      (if (pair? y$263)
                        (if (symbol-record-equal?$240
                              (car x$264)
                              (car y$263))
                          (term-args-equal?$216 (cdr x$264) (cdr y$263))
                          #f)
                        #f)))
                   ((lambda () (equal? x$264 y$263))))))
             (set! term-args-equal?$216
               (lambda (lst1$262 lst2$261)
                 (if (null? lst1$262)
                   ((lambda () (null? lst2$261)))
                   (if (null? lst2$261)
                     ((lambda () #f))
                     (if (term-equal?$217 (car lst1$262) (car lst2$261))
                       ((lambda ()
                          (term-args-equal?$216
                            (cdr lst1$262)
                            (cdr lst2$261))))
                       ((lambda () #f)))))))
             (set! term-member?$215
               (lambda (x$260 lst$259)
                 (if (null? lst$259)
                   ((lambda () #f))
                   (if (term-equal?$217 x$260 (car lst$259))
                     ((lambda () #t))
                     ((lambda ()
                        (term-member?$215 x$260 (cdr lst$259))))))))
             (set! setup-boyer
               (lambda ()
                 (set! *symbol-records-alist*$245 '())
                 (set! if-constructor$233
                   (symbol->symbol-record$246 'if))
                 (set! false-term$221 (translate-term$251 '(f)))
                 (set! true-term$220 (translate-term$251 '(t)))
                 (setup$254)))
             (set! test-boyer
               (lambda (alist$257 term$256 n$255)
                 (set! rewrite-count$232 0)
                 ((lambda (answer$258)
                    (if answer$258 rewrite-count$232 #f))
                  (test$239 alist$257 term$256 n$255)))))
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f
           #f)))
       (main))))
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f))
 */
/* 
"---------------- results of inlinable-top-level-lambda analysis: "
 */
/* 
()
 */
/* 
"---------------- after CPS:"
 */
/* 
((define main
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(484
       (k$754)
       ((read #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(483
                  (r$755)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(482
                        (count$352)
                        ((read #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(481
                                   (r$756)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(480
                                         (input$353)
                                         ((read #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(479
                                                    (r$757)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(478
                                                          (output$354)
                                                          ((#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(477
                                                                (r$758)
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(476
                                                                      (s2$355)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(475
                                                                            (r$759)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(474
                                                                                  (s1$356)
                                                                                  ((#((record-marker)
                                                                                      #((record-marker)
                                                                                        #f
                                                                                        (id args
                                                                                            body
                                                                                            has-cont))
                                                                                      #(473
                                                                                        (name$357)
                                                                                        ((#((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(472
                                                                                              ()
                                                                                              ((#((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(471
                                                                                                    (r$760)
                                                                                                    ((#((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(467
                                                                                                          (r$761)
                                                                                                          ((#((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(464
                                                                                                                (r$762)
                                                                                                                ((run-r7rs-benchmark
                                                                                                                   k$754
                                                                                                                   r$760
                                                                                                                   count$352
                                                                                                                   r$761
                                                                                                                   r$762))
                                                                                                                #f))
                                                                                                            #((record-marker)
                                                                                                              #((record-marker)
                                                                                                                #f
                                                                                                                (id args
                                                                                                                    body
                                                                                                                    has-cont))
                                                                                                              #(466
                                                                                                                (k$763 rewrites$358)
                                                                                                                ((#((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(465
                                                                                                                      (r$764)
                                                                                                                      ((if r$764
                                                                                                                         (k$763 (Cyc-fast-eq
                                                                                                                                  rewrites$358
                                                                                                                                  output$354))
                                                                                                                         (k$763 #f)))
                                                                                                                      #f))
                                                                                                                  (number?
                                                                                                                    rewrites$358)))
                                                                                                                #t))))
                                                                                                          #f))
                                                                                                      #((record-marker)
                                                                                                        #((record-marker)
                                                                                                          #f
                                                                                                          (id args
                                                                                                              body
                                                                                                              has-cont))
                                                                                                        #(470
                                                                                                          (k$765)
                                                                                                          ((setup-boyer
                                                                                                             #((record-marker)
                                                                                                               #((record-marker)
                                                                                                                 #f
                                                                                                                 (id args
                                                                                                                     body
                                                                                                                     has-cont))
                                                                                                               #(469
                                                                                                                 (r$766)
                                                                                                                 ((hide #((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(468
                                                                                                                            (r$767)
                                                                                                                            ((test-boyer
                                                                                                                               k$765
                                                                                                                               alist
                                                                                                                               term
                                                                                                                               r$767))
                                                                                                                            #f))
                                                                                                                        count$352
                                                                                                                        input$353))
                                                                                                                 #f))))
                                                                                                          #t))))
                                                                                                    #f))
                                                                                                (string-append
                                                                                                  name$357
                                                                                                  ":"
                                                                                                  s1$356
                                                                                                  ":"
                                                                                                  s2$355)))
                                                                                              #f))))
                                                                                        #f))
                                                                                    "sboyer"))
                                                                                  #f))
                                                                              r$759))
                                                                            #f))
                                                                        (number->string
                                                                          input$353)))
                                                                      #f))
                                                                  r$758))
                                                                #f))
                                                            (number->string
                                                              count$352)))
                                                          #f))
                                                      r$757))
                                                    #f))))
                                         #f))
                                     r$756))
                                   #f))))
                        #f))
                    r$755))
                  #f))))
       #t)))
 (define alist #f)
 (define term #f)
 (define setup-boyer
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(463 (k$747) ((k$747 #t)) #t)))
 (define test-boyer
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(462 (k$744) ((k$744 #t)) #t)))
 (define hide
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(461
       (k$730 r$348 x$347)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(453
             (r$731)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(450
                   (r$732)
                   ((call-with-values k$730 r$731 r$732))
                   #f))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(452
                   (k$733 v$350 i$349)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(451 (r$734) ((r$734 k$733 x$347)) #f))
                     (vector-ref v$350 i$349)))
                   #t))))
             #f))
         #((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(460
             (k$735)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(458
                   (r$740)
                   ((vector
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(457
                          (r$736)
                          ((#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(456
                                (k$738)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(455
                                      (r$739)
                                      ((if r$739 (k$738 0) (k$738 1)))
                                      #f))
                                  (Cyc-fast-lt r$348 100)))
                                #t))
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(454 (r$737) ((values k$735 r$736 r$737)) #f))))
                          #f))
                      values
                      r$740))
                   #f))
               #((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(459 (k$741 x$351) ((k$741 x$351)) #t))))
             #t))))
       #t)))
 (define run-r7rs-benchmark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(449
       (k$678 name$329 count$328 thunk$327 ok?$326)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(448
             (rounded$331)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(447
                   (rounded$332)
                   ((#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(443
                         (r$724)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(442
                               (r$679)
                               ((display
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(441
                                      (r$680)
                                      ((display
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(440
                                             (r$681)
                                             ((newline
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(439
                                                    (r$682)
                                                    ((current-output-port
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(438
                                                           (r$723)
                                                           ((flush-output-port
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(437
                                                                  (r$683)
                                                                  ((jiffies-per-second
                                                                     #((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(436
                                                                         (r$684)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(435
                                                                               (j/s$333)
                                                                               ((current-second
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(434
                                                                                      (r$685)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(433
                                                                                            (t0$334)
                                                                                            ((current-jiffy
                                                                                               #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(432
                                                                                                   (r$686)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(431
                                                                                                         (j0$335)
                                                                                                         ((#((record-marker)
                                                                                                             #((record-marker)
                                                                                                               #f
                                                                                                               (id args
                                                                                                                   body
                                                                                                                   has-cont))
                                                                                                             #(430
                                                                                                               ()
                                                                                                               ((#((record-marker)
                                                                                                                   #((record-marker)
                                                                                                                     #f
                                                                                                                     (id args
                                                                                                                         body
                                                                                                                         has-cont))
                                                                                                                   #(429
                                                                                                                     (i$337 result$336)
                                                                                                                     ((#((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(428
                                                                                                                           (loop$338)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(384
                                                                                                                                 (r$688)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(383
                                                                                                                                       (r$687)
                                                                                                                                       ((loop$338
                                                                                                                                          k$678
                                                                                                                                          i$337
                                                                                                                                          result$336))
                                                                                                                                       #f))
                                                                                                                                   (set! loop$338
                                                                                                                                     r$688)))
                                                                                                                                 #f))
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(427
                                                                                                                                 (k$689 i$340
                                                                                                                                        result$339)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(426
                                                                                                                                       (r$690)
                                                                                                                                       ((if r$690
                                                                                                                                          (#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(387
                                                                                                                                               ()
                                                                                                                                               ((#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(386
                                                                                                                                                     (r$691)
                                                                                                                                                     ((thunk$327
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(385
                                                                                                                                                            (r$692)
                                                                                                                                                            ((loop$338
                                                                                                                                                               k$689
                                                                                                                                                               r$691
                                                                                                                                                               r$692))
                                                                                                                                                            #f))))
                                                                                                                                                     #f))
                                                                                                                                                 (Cyc-fast-plus
                                                                                                                                                   i$340
                                                                                                                                                   1)))
                                                                                                                                               #f)))
                                                                                                                                          (ok?$326
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(425
                                                                                                                                                (r$693)
                                                                                                                                                ((if r$693
                                                                                                                                                   (#((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(418
                                                                                                                                                        ()
                                                                                                                                                        ((current-jiffy
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(417
                                                                                                                                                               (r$695)
                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #f
                                                                                                                                                                     (id args
                                                                                                                                                                         body
                                                                                                                                                                         has-cont))
                                                                                                                                                                   #(416
                                                                                                                                                                     (j1$341)
                                                                                                                                                                     ((current-second
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #((record-marker)
                                                                                                                                                                            #f
                                                                                                                                                                            (id args
                                                                                                                                                                                body
                                                                                                                                                                                has-cont))
                                                                                                                                                                          #(415
                                                                                                                                                                            (r$696)
                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(414
                                                                                                                                                                                  (t1$342)
                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(413
                                                                                                                                                                                        (r$697)
                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #f
                                                                                                                                                                                              (id args
                                                                                                                                                                                                  body
                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                            #(412
                                                                                                                                                                                              (jifs$343)
                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #f
                                                                                                                                                                                                    (id args
                                                                                                                                                                                                        body
                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                  #(411
                                                                                                                                                                                                    (r$717)
                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                          #f
                                                                                                                                                                                                          (id args
                                                                                                                                                                                                              body
                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                        #(410
                                                                                                                                                                                                          (r$698)
                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(409
                                                                                                                                                                                                                (secs$344)
                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                          body
                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                    #(408
                                                                                                                                                                                                                      (r$716)
                                                                                                                                                                                                                      ((rounded$331
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                           #(407
                                                                                                                                                                                                                             (r$699)
                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                 #(406
                                                                                                                                                                                                                                   (secs2$345)
                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                       #(405
                                                                                                                                                                                                                                         ()
                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(404
                                                                                                                                                                                                                                                (r$700)
                                                                                                                                                                                                                                                ((write #((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(403
                                                                                                                                                                                                                                                            (r$701)
                                                                                                                                                                                                                                                            ((display
                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                 #(402
                                                                                                                                                                                                                                                                   (r$702)
                                                                                                                                                                                                                                                                   ((write #((record-marker)
                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                             #(401
                                                                                                                                                                                                                                                                               (r$703)
                                                                                                                                                                                                                                                                               ((display
                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(400
                                                                                                                                                                                                                                                                                      (r$704)
                                                                                                                                                                                                                                                                                      ((display
                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(399
                                                                                                                                                                                                                                                                                             (r$705)
                                                                                                                                                                                                                                                                                             ((newline
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                  #(398
                                                                                                                                                                                                                                                                                                    (r$706)
                                                                                                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                         #(397
                                                                                                                                                                                                                                                                                                           (r$707)
                                                                                                                                                                                                                                                                                                           ((this-scheme-implementation-name
                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                #(396
                                                                                                                                                                                                                                                                                                                  (r$715)
                                                                                                                                                                                                                                                                                                                  ((display
                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                       #(395
                                                                                                                                                                                                                                                                                                                         (r$708)
                                                                                                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                              #(394
                                                                                                                                                                                                                                                                                                                                (r$709)
                                                                                                                                                                                                                                                                                                                                ((display
                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                     #(393
                                                                                                                                                                                                                                                                                                                                       (r$710)
                                                                                                                                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                            #(392
                                                                                                                                                                                                                                                                                                                                              (r$711)
                                                                                                                                                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                   #(391
                                                                                                                                                                                                                                                                                                                                                     (r$712)
                                                                                                                                                                                                                                                                                                                                                     ((newline
                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                          #(390
                                                                                                                                                                                                                                                                                                                                                            (r$713)
                                                                                                                                                                                                                                                                                                                                                            ((current-output-port
                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                                                 #(389
                                                                                                                                                                                                                                                                                                                                                                   (r$714)
                                                                                                                                                                                                                                                                                                                                                                   ((flush-output-port
                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                        #(388
                                                                                                                                                                                                                                                                                                                                                                          (r$694)
                                                                                                                                                                                                                                                                                                                                                                          ((k$689 result$339))
                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                      r$714))
                                                                                                                                                                                                                                                                                                                                                                   #f))))
                                                                                                                                                                                                                                                                                                                                                            #f))))
                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                 secs$344))
                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                          ","))
                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                   name$329))
                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                            ","))
                                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                                     r$715))
                                                                                                                                                                                                                                                                                                                  #f))))
                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                       "+!CSVLINE!+"))
                                                                                                                                                                                                                                                                                                    #f))))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         name$329))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  ") for "))
                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                           secs2$345))
                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                               " seconds ("))
                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                        secs$344))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            "Elapsed time: "))
                                                                                                                                                                                                                                         #f))))
                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                               r$699))
                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                         r$716))
                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                                                                                    t1$342
                                                                                                                                                                                                                    t0$334)))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            r$698))
                                                                                                                                                                                                          #f))
                                                                                                                                                                                                      (inexact__inline__
                                                                                                                                                                                                        r$717)))
                                                                                                                                                                                                    #f))
                                                                                                                                                                                                (Cyc-fast-div
                                                                                                                                                                                                  jifs$343
                                                                                                                                                                                                  j/s$333)))
                                                                                                                                                                                              #f))
                                                                                                                                                                                          r$697))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                                      j1$341
                                                                                                                                                                                      j0$335)))
                                                                                                                                                                                  #f))
                                                                                                                                                                              r$696))
                                                                                                                                                                            #f))))
                                                                                                                                                                     #f))
                                                                                                                                                                 r$695))
                                                                                                                                                               #f))))
                                                                                                                                                        #f)))
                                                                                                                                                   (#((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(424
                                                                                                                                                        ()
                                                                                                                                                        ((display
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(423
                                                                                                                                                               (r$718)
                                                                                                                                                               ((write #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(422
                                                                                                                                                                           (r$719)
                                                                                                                                                                           ((newline
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(421
                                                                                                                                                                                  (r$720)
                                                                                                                                                                                  ((current-output-port
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(420
                                                                                                                                                                                         (r$722)
                                                                                                                                                                                         ((flush-output-port
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(419
                                                                                                                                                                                                (r$721)
                                                                                                                                                                                                ((k$689 result$339))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            r$722))
                                                                                                                                                                                         #f))))
                                                                                                                                                                                  #f))))
                                                                                                                                                                           #f))
                                                                                                                                                                       result$339))
                                                                                                                                                               #f))
                                                                                                                                                           "ERROR: returned incorrect result: "))
                                                                                                                                                        #f)))))
                                                                                                                                                #f))
                                                                                                                                            result$339)))
                                                                                                                                       #f))
                                                                                                                                   (Cyc-fast-lt
                                                                                                                                     i$340
                                                                                                                                     count$328)))
                                                                                                                                 #t))))
                                                                                                                           #f))
                                                                                                                       #f))
                                                                                                                     #f))
                                                                                                                 0
                                                                                                                 #f))
                                                                                                               #f))))
                                                                                                         #f))
                                                                                                     r$686))
                                                                                                   #f))))
                                                                                            #f))
                                                                                        r$685))
                                                                                      #f))))
                                                                               #f))
                                                                           r$684))
                                                                         #f))))
                                                                  #f))
                                                              r$723))
                                                           #f))))
                                                    #f))))
                                             #f))
                                         name$329))
                                      #f))
                                  "Running "))
                               #f))
                           (set! rounded$331 r$724)))
                         #f))
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(446
                         (k$725 x$346)
                         ((#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(445
                               (r$727)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(444
                                     (r$726)
                                     ((k$725 (Cyc-fast-div r$726 1000)))
                                     #f))
                                 (round__inline__ r$727)))
                               #f))
                           (Cyc-fast-mul 1000 x$346)))
                         #t))))
                   #f))
               #f))
             #f))
         #f))
       #t)))
 (define this-scheme-implementation-name
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(382
       (k$674)
       ((Cyc-version
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(381
              (r$675)
              ((k$674 (string-append "cyclone-" r$675)))
              #f))))
       #t)))
 (#((record-marker)
    #((record-marker) #f (id args body has-cont))
    #(380
      (*symbol-records-alist*$214
        add-lemma$213
        add-lemma-lst$212
        apply-subst$211
        apply-subst-lst$210
        false-term$209
        falsep$208
        get$207
        get-lemmas$206
        get-name$205
        if-constructor$204
        make-symbol-record$203
        one-way-unify$202
        one-way-unify1$201
        one-way-unify1-lst$200
        put$199
        put-lemmas!$198
        rewrite$197
        rewrite-args$196
        rewrite-count$195
        rewrite-with-lemmas$194
        scons$193
        setup$192
        symbol->symbol-record$191
        symbol-record-equal?$190
        tautologyp$189
        tautp$188
        term-args-equal?$187
        term-equal?$186
        term-member?$185
        test$184
        trans-of-implies$183
        trans-of-implies1$182
        translate-alist$181
        translate-args$180
        translate-term$179
        true-term$178
        truep$177
        unify-subst$176
        untranslate-term$175)
      ((#((record-marker)
          #((record-marker) #f (id args body has-cont))
          #(379
            ()
            ((#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(378
                  (r$359)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(377
                        (r$671)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(376
                              (r$360)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(375
                                    (r$670)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(374
                                          (r$361)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(373
                                                ()
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(372
                                                      (setup$254
                                                        add-lemma-lst$253
                                                        add-lemma$252
                                                        translate-term$251
                                                        translate-args$250
                                                        untranslate-term$249
                                                        put$248
                                                        get$247
                                                        symbol->symbol-record$246
                                                        *symbol-records-alist*$245
                                                        make-symbol-record$244
                                                        put-lemmas!$243
                                                        get-lemmas$242
                                                        get-name$241
                                                        symbol-record-equal?$240
                                                        test$239
                                                        translate-alist$238
                                                        apply-subst$237
                                                        apply-subst-lst$236
                                                        tautp$235
                                                        tautologyp$234
                                                        if-constructor$233
                                                        rewrite-count$232
                                                        scons$231
                                                        rewrite$230
                                                        rewrite-args$229
                                                        rewrite-with-lemmas$228
                                                        unify-subst$227
                                                        one-way-unify$226
                                                        one-way-unify1$225
                                                        one-way-unify1-lst$224
                                                        falsep$223
                                                        truep$222
                                                        false-term$221
                                                        true-term$220
                                                        trans-of-implies$219
                                                        trans-of-implies1$218
                                                        term-equal?$217
                                                        term-args-equal?$216
                                                        term-member?$215)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(369
                                                            (r$667)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(368
                                                                  (r$363)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(360
                                                                        (r$661)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(359
                                                                              (r$364)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(339
                                                                                    (r$643)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(338
                                                                                          (r$365)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(329
                                                                                                (r$636)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(328
                                                                                                      (r$366)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(319
                                                                                                            (r$629)
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(318
                                                                                                                  (r$367)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(309
                                                                                                                        (r$622)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(308
                                                                                                                              (r$368)
                                                                                                                              ((#((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(305
                                                                                                                                    (r$619)
                                                                                                                                    ((#((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(304
                                                                                                                                          (r$369)
                                                                                                                                          ((#((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(301
                                                                                                                                                (r$616)
                                                                                                                                                ((#((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(300
                                                                                                                                                      (r$370)
                                                                                                                                                      ((#((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(291
                                                                                                                                                            (r$609)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(290
                                                                                                                                                                  (r$371)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(289
                                                                                                                                                                        (r$608)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(288
                                                                                                                                                                              (r$372)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(285
                                                                                                                                                                                    (r$605)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(284
                                                                                                                                                                                          (r$373)
                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(282
                                                                                                                                                                                                (r$603)
                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(281
                                                                                                                                                                                                      (r$374)
                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(279
                                                                                                                                                                                                            (r$601)
                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                      body
                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                #(278
                                                                                                                                                                                                                  (r$375)
                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                            body
                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                      #(276
                                                                                                                                                                                                                        (r$599)
                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(275
                                                                                                                                                                                                                              (r$376)
                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                  #(273
                                                                                                                                                                                                                                    (r$597)
                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(272
                                                                                                                                                                                                                                          (r$377)
                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(255
                                                                                                                                                                                                                                                (r$583)
                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                    #(254
                                                                                                                                                                                                                                                      (r$378)
                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(243
                                                                                                                                                                                                                                                            (r$574)
                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                #(242
                                                                                                                                                                                                                                                                  (r$379)
                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                      #(232
                                                                                                                                                                                                                                                                        (r$567)
                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(231
                                                                                                                                                                                                                                                                              (r$380)
                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                  #(222
                                                                                                                                                                                                                                                                                    (r$560)
                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                        #(221
                                                                                                                                                                                                                                                                                          (r$381)
                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                              #(216
                                                                                                                                                                                                                                                                                                (r$555)
                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                    #(215
                                                                                                                                                                                                                                                                                                      (r$382)
                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                          #(187
                                                                                                                                                                                                                                                                                                            (r$535)
                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                #(186
                                                                                                                                                                                                                                                                                                                  (r$383)
                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                      #(185
                                                                                                                                                                                                                                                                                                                        (r$534)
                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                            #(184
                                                                                                                                                                                                                                                                                                                              (r$384)
                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                  #(183
                                                                                                                                                                                                                                                                                                                                    (r$385)
                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                        #(176
                                                                                                                                                                                                                                                                                                                                          (r$527)
                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                              #(175
                                                                                                                                                                                                                                                                                                                                                (r$386)
                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                    #(162
                                                                                                                                                                                                                                                                                                                                                      (r$516)
                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                          #(161
                                                                                                                                                                                                                                                                                                                                                            (r$387)
                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                #(152
                                                                                                                                                                                                                                                                                                                                                                  (r$509)
                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                      #(151
                                                                                                                                                                                                                                                                                                                                                                        (r$388)
                                                                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                            #(138
                                                                                                                                                                                                                                                                                                                                                                              (r$499)
                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                  #(137
                                                                                                                                                                                                                                                                                                                                                                                    (r$389)
                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                        #(136
                                                                                                                                                                                                                                                                                                                                                                                          (r$498)
                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                              #(135
                                                                                                                                                                                                                                                                                                                                                                                                (r$390)
                                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                    #(131
                                                                                                                                                                                                                                                                                                                                                                                                      (r$494)
                                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                          #(130
                                                                                                                                                                                                                                                                                                                                                                                                            (r$391)
                                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                #(107
                                                                                                                                                                                                                                                                                                                                                                                                                  (r$479)
                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                      #(106
                                                                                                                                                                                                                                                                                                                                                                                                                        (r$392)
                                                                                                                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                            #(93
                                                                                                                                                                                                                                                                                                                                                                                                                              (r$470)
                                                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                  #(92
                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$393)
                                                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                        #(88
                                                                                                                                                                                                                                                                                                                                                                                                                                          (r$467)
                                                                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                              #(87
                                                                                                                                                                                                                                                                                                                                                                                                                                                (r$394)
                                                                                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #(83
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r$464)
                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(82
                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r$395)
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(81
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r$463)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(80
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$396)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #(79
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r$462)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(78
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$397)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(71
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r$455)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #(70
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r$398)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #(58
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r$445)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(57
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r$399)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(46
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r$436)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(45
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$400)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #(32
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r$427)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(31
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$401)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(22
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r$421)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #(21
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r$402)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #(8
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r$408)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(7
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r$403)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(2
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r$404)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(1
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$362)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((main %halt))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (set! test-boyer
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r$404)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(6
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (k$405 alist$257
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         term$256
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         n$255)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(5
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$406)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((test$239
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #(4
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r$407)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #(3
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (answer$258)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ((if answer$258
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (k$405 rewrite-count$232)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (k$405 #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r$407))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           alist$257
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           term$256
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           n$255))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (set! rewrite-count$232
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      0)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (set! setup-boyer
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          r$408)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #(20
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (k$409)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(19
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r$420)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(18
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r$410)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(17
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$419)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((symbol->symbol-record$246
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #(16
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r$418)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #(15
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r$411)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #(14
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r$417)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ((translate-term$251
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(13
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r$416)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(12
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$412)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #(11
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r$415)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ((translate-term$251
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #(10
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r$414)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #(9
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r$413)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ((setup$254
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              k$409))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (set! true-term$220
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         r$414)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r$415))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          '(t)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (set! false-term$221
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r$416)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              r$417))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       '(f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (set! if-constructor$233
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   r$418)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r$419))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    'if))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (set! *symbol-records-alist*$245
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r$420)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        '()))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (set! term-member?$215
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              r$421)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(30
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (k$422 x$260
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 lst$259)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #(29
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r$423)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ((if r$423
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(23
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((k$422 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(28
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$426)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((term-equal?$217
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #(27
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r$424)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ((if r$424
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #(24
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ((k$422 #t))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #(26
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #(25
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r$425)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ((term-member?$215
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                k$422
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                x$260
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                r$425))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (cdr lst$259)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           x$260
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r$426))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (car lst$259))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (null? lst$259)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (set! term-args-equal?$216
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r$427)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #(44
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (k$428 lst1$262
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     lst2$261)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(43
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$429)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((if r$429
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(33
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((k$428 (null? lst2$261)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(42
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r$430)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((if r$430
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(34
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((k$428 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(41
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$434)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(40
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r$435)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((term-equal?$217
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #(39
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r$431)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ((if r$431
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #(37
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #(36
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r$432)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #(35
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r$433)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ((term-args-equal?$216
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        k$428
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        r$432
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        r$433))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (cdr lst2$261)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (cdr lst1$262)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #(38
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ((k$428 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             r$434
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             r$435))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (car lst2$261)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (car lst1$262))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (null? lst2$261))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (null? lst1$262)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (set! term-equal?$217
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r$436)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(56
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (k$437 x$264
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         y$263)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(55
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$438)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((if r$438
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #(53
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #(52
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r$439)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((if r$439
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #(51
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r$443)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(50
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$444)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((symbol-record-equal?$240
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #(49
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (r$440)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ((if r$440
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #(48
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r$441)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #(47
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (r$442)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ((term-args-equal?$216
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            k$437
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            r$441
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            r$442))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (cdr y$263)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (cdr x$264))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (k$437 #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       r$443
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       r$444))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (car y$263)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (car x$264))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (k$437 #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (pair? y$263)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #(54
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ((k$437 (equal?
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          x$264
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          y$263)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (pair? x$264)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (set! trans-of-implies1$218
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          r$445)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #(69
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (k$446 n$265)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(68
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (r$447)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((if r$447
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(60
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(59
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r$448)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((list k$446
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r$448
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 0
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 1))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      'implies))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(67
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(66
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r$449)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #(65
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r$453)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #(64
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (r$454)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((list #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #(63
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r$450)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #(62
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r$452)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ((trans-of-implies1$218
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #(61
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r$451)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ((list k$446
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r$449
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r$450
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     r$451))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          r$452))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     n$265
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             r$453
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             r$454
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             n$265))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    n$265
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            'implies))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      'and))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (equal?
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          n$265
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          1)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            (set! trans-of-implies$219
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              r$455)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(77
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (k$456 n$266)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #(76
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (r$458)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ((trans-of-implies1$218
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #(75
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (r$459)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           #(74
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r$461)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ((list #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(73
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$460)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((list #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #(72
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (r$457)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ((translate-term$251
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      k$456
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r$457))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               r$458
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               r$459
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               r$460))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    r$461
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    0
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    n$266))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         'implies))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   n$266))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            'implies))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                (set! true-term$220
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r$462)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          '*))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (set! false-term$221
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r$463)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                              '*))
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (set! truep$222
                                                                                                                                                                                                                                                                                                                                                                                                                                                          r$464)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #(86
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (k$465 x$268
                                                                                                                                                                                                                                                                                                                                                                                                                                                             lst$267)
                                                                                                                                                                                                                                                                                                                                                                                                                                                      ((term-equal?$217
                                                                                                                                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                           #(85
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (r$466)
                                                                                                                                                                                                                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #(84
                                                                                                                                                                                                                                                                                                                                                                                                                                                                   (tmp$120$269)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                   ((if tmp$120$269
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (k$465 tmp$120$269)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      (term-member?$215
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        k$465
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        x$268
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        lst$267)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                               r$466))
                                                                                                                                                                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                         x$268
                                                                                                                                                                                                                                                                                                                                                                                                                                                         true-term$220))
                                                                                                                                                                                                                                                                                                                                                                                                                                                      #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                            (set! falsep$223
                                                                                                                                                                                                                                                                                                                                                                                                                                              r$467)))
                                                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                        #(91
                                                                                                                                                                                                                                                                                                                                                                                                                                          (k$468 x$271
                                                                                                                                                                                                                                                                                                                                                                                                                                                 lst$270)
                                                                                                                                                                                                                                                                                                                                                                                                                                          ((term-equal?$217
                                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                               #(90
                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r$469)
                                                                                                                                                                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                     #(89
                                                                                                                                                                                                                                                                                                                                                                                                                                                       (tmp$117$272)
                                                                                                                                                                                                                                                                                                                                                                                                                                                       ((if tmp$117$272
                                                                                                                                                                                                                                                                                                                                                                                                                                                          (k$468 tmp$117$272)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          (term-member?$215
                                                                                                                                                                                                                                                                                                                                                                                                                                                            k$468
                                                                                                                                                                                                                                                                                                                                                                                                                                                            x$271
                                                                                                                                                                                                                                                                                                                                                                                                                                                            lst$270)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                   r$469))
                                                                                                                                                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                             x$271
                                                                                                                                                                                                                                                                                                                                                                                                                                             false-term$221))
                                                                                                                                                                                                                                                                                                                                                                                                                                          #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                (set! one-way-unify1-lst$224
                                                                                                                                                                                                                                                                                                                                                                                                                                  r$470)))
                                                                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                            #(105
                                                                                                                                                                                                                                                                                                                                                                                                                              (k$471 lst1$274
                                                                                                                                                                                                                                                                                                                                                                                                                                     lst2$273)
                                                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                  #(104
                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$472)
                                                                                                                                                                                                                                                                                                                                                                                                                                    ((if r$472
                                                                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                          #(94
                                                                                                                                                                                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                                                                                                                                                                                            ((k$471 (null? lst2$273)))
                                                                                                                                                                                                                                                                                                                                                                                                                                            #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                          #(103
                                                                                                                                                                                                                                                                                                                                                                                                                                            (r$473)
                                                                                                                                                                                                                                                                                                                                                                                                                                            ((if r$473
                                                                                                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(95
                                                                                                                                                                                                                                                                                                                                                                                                                                                    ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((k$471 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(102
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$477)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(101
                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r$478)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((one-way-unify1$225
                                                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                               #(100
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (r$474)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ((if r$474
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #(98
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                             #(97
                                                                                                                                                                                                                                                                                                                                                                                                                                                                               (r$475)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   #(96
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (r$476)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ((one-way-unify1-lst$224
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        k$471
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        r$475
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        r$476))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 (cdr lst2$273)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                           (cdr lst1$274)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       #(99
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ((k$471 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                             r$477
                                                                                                                                                                                                                                                                                                                                                                                                                                                             r$478))
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (car lst2$273)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                (car lst1$274))))
                                                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                        (null? lst2$273))))
                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                (null? lst1$274)))
                                                                                                                                                                                                                                                                                                                                                                                                                              #t))))
                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                    (set! one-way-unify1$225
                                                                                                                                                                                                                                                                                                                                                                                                                      r$479)))
                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                #(129
                                                                                                                                                                                                                                                                                                                                                                                                                  (k$480 term1$276
                                                                                                                                                                                                                                                                                                                                                                                                                         term2$275)
                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                      #(128
                                                                                                                                                                                                                                                                                                                                                                                                                        (r$481)
                                                                                                                                                                                                                                                                                                                                                                                                                        ((if r$481
                                                                                                                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                              #(116
                                                                                                                                                                                                                                                                                                                                                                                                                                (r$482)
                                                                                                                                                                                                                                                                                                                                                                                                                                ((if r$482
                                                                                                                                                                                                                                                                                                                                                                                                                                   (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                      #(114
                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$486)
                                                                                                                                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                            #(113
                                                                                                                                                                                                                                                                                                                                                                                                                                              (r$487)
                                                                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(112
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$483)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((if r$483
                                                                                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(110
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(109
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r$484)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(108
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$485)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((one-way-unify1-lst$224
                                                                                                                                                                                                                                                                                                                                                                                                                                                                           k$480
                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r$484
                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r$485))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (cdr term2$275)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                              (cdr term1$276)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(111
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((k$480 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                (eq? r$486
                                                                                                                                                                                                                                                                                                                                                                                                                                                     r$487)))
                                                                                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                          (car term2$275)))
                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                    (car term1$276))
                                                                                                                                                                                                                                                                                                                                                                                                                                   (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                      #(115
                                                                                                                                                                                                                                                                                                                                                                                                                                        ()
                                                                                                                                                                                                                                                                                                                                                                                                                                        ((k$480 #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                        #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                                            (pair? term1$276))
                                                                                                                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                              #(127
                                                                                                                                                                                                                                                                                                                                                                                                                                ()
                                                                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                    #(126
                                                                                                                                                                                                                                                                                                                                                                                                                                      (r$488)
                                                                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                          #(125
                                                                                                                                                                                                                                                                                                                                                                                                                                            (temp-temp$277)
                                                                                                                                                                                                                                                                                                                                                                                                                                            ((if temp-temp$277
                                                                                                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(118
                                                                                                                                                                                                                                                                                                                                                                                                                                                    ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                        #(117
                                                                                                                                                                                                                                                                                                                                                                                                                                                          (r$489)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((term-equal?$217
                                                                                                                                                                                                                                                                                                                                                                                                                                                             k$480
                                                                                                                                                                                                                                                                                                                                                                                                                                                             term1$276
                                                                                                                                                                                                                                                                                                                                                                                                                                                             r$489))
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (cdr temp-temp$277)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                  #(124
                                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$490)
                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((if r$490
                                                                                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(119
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((k$480 (equal?
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      term1$276
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      term2$275)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                          #(123
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                #(122
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (r$493)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      #(121
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        (r$492)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            #(120
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              (r$491)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ((k$480 #t))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          (set! unify-subst$227
                                                                                                                                                                                                                                                                                                                                                                                                                                                                            r$492)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    (cons r$493
                                                                                                                                                                                                                                                                                                                                                                                                                                                                          unify-subst$227)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                              (cons term2$275
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    term1$276)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                            #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                                (number?
                                                                                                                                                                                                                                                                                                                                                                                                                                                  term2$275))))
                                                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                        r$488))
                                                                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                  (assq term2$275
                                                                                                                                                                                                                                                                                                                                                                                                                                        unify-subst$227)))
                                                                                                                                                                                                                                                                                                                                                                                                                                #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                                                                    (pair? term2$275)))
                                                                                                                                                                                                                                                                                                                                                                                                                  #t))))
                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                        (set! one-way-unify$226
                                                                                                                                                                                                                                                                                                                                                                                                          r$494)))
                                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                    #(134
                                                                                                                                                                                                                                                                                                                                                                                                      (k$495 term1$279
                                                                                                                                                                                                                                                                                                                                                                                                             term2$278)
                                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                          #(133
                                                                                                                                                                                                                                                                                                                                                                                                            (r$497)
                                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                #(132
                                                                                                                                                                                                                                                                                                                                                                                                                  (r$496)
                                                                                                                                                                                                                                                                                                                                                                                                                  ((one-way-unify1$225
                                                                                                                                                                                                                                                                                                                                                                                                                     k$495
                                                                                                                                                                                                                                                                                                                                                                                                                     term1$279
                                                                                                                                                                                                                                                                                                                                                                                                                     term2$278))
                                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                                              (set! unify-subst$227
                                                                                                                                                                                                                                                                                                                                                                                                                r$497)))
                                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                                        '()))
                                                                                                                                                                                                                                                                                                                                                                                                      #t))))
                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                            (set! unify-subst$227
                                                                                                                                                                                                                                                                                                                                                                                              r$498)))
                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                      '*))
                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                (set! rewrite-with-lemmas$228
                                                                                                                                                                                                                                                                                                                                                                                  r$499)))
                                                                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                            #(150
                                                                                                                                                                                                                                                                                                                                                                              (k$500 term$281
                                                                                                                                                                                                                                                                                                                                                                                     lst$280)
                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                  #(149
                                                                                                                                                                                                                                                                                                                                                                                    (r$501)
                                                                                                                                                                                                                                                                                                                                                                                    ((if r$501
                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                          #(139
                                                                                                                                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                                                                                                                                            ((k$500 term$281))
                                                                                                                                                                                                                                                                                                                                                                                            #f)))
                                                                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                          #(148
                                                                                                                                                                                                                                                                                                                                                                                            (r$508)
                                                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                #(147
                                                                                                                                                                                                                                                                                                                                                                                                  (r$507)
                                                                                                                                                                                                                                                                                                                                                                                                  ((one-way-unify$226
                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                       #(146
                                                                                                                                                                                                                                                                                                                                                                                                         (r$502)
                                                                                                                                                                                                                                                                                                                                                                                                         ((if r$502
                                                                                                                                                                                                                                                                                                                                                                                                            (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                               #(143
                                                                                                                                                                                                                                                                                                                                                                                                                 ()
                                                                                                                                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                     #(142
                                                                                                                                                                                                                                                                                                                                                                                                                       (r$505)
                                                                                                                                                                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                           #(141
                                                                                                                                                                                                                                                                                                                                                                                                                             (r$504)
                                                                                                                                                                                                                                                                                                                                                                                                                             ((apply-subst$237
                                                                                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                  #(140
                                                                                                                                                                                                                                                                                                                                                                                                                                    (r$503)
                                                                                                                                                                                                                                                                                                                                                                                                                                    ((rewrite$230
                                                                                                                                                                                                                                                                                                                                                                                                                                       k$500
                                                                                                                                                                                                                                                                                                                                                                                                                                       r$503))
                                                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                unify-subst$227
                                                                                                                                                                                                                                                                                                                                                                                                                                r$504))
                                                                                                                                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                                                                                                                                         (caddr r$505)))
                                                                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                                                                   (car lst$280)))
                                                                                                                                                                                                                                                                                                                                                                                                                 #f)))
                                                                                                                                                                                                                                                                                                                                                                                                            (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                               #(145
                                                                                                                                                                                                                                                                                                                                                                                                                 ()
                                                                                                                                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                     #(144
                                                                                                                                                                                                                                                                                                                                                                                                                       (r$506)
                                                                                                                                                                                                                                                                                                                                                                                                                       ((rewrite-with-lemmas$228
                                                                                                                                                                                                                                                                                                                                                                                                                          k$500
                                                                                                                                                                                                                                                                                                                                                                                                                          term$281
                                                                                                                                                                                                                                                                                                                                                                                                                          r$506))
                                                                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                                                                   (cdr lst$280)))
                                                                                                                                                                                                                                                                                                                                                                                                                 #f)))))
                                                                                                                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                                                                                                                     term$281
                                                                                                                                                                                                                                                                                                                                                                                                     r$507))
                                                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                                                              (cadr r$508)))
                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                        (car lst$280))))
                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                (null? lst$280)))
                                                                                                                                                                                                                                                                                                                                                                              #t))))
                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                    (set! rewrite-args$229
                                                                                                                                                                                                                                                                                                                                                                      r$509)))
                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                #(160
                                                                                                                                                                                                                                                                                                                                                                  (k$510 lst$282)
                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                      #(159
                                                                                                                                                                                                                                                                                                                                                                        (r$511)
                                                                                                                                                                                                                                                                                                                                                                        ((if r$511
                                                                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                              #(153
                                                                                                                                                                                                                                                                                                                                                                                ()
                                                                                                                                                                                                                                                                                                                                                                                ((k$510 '()))
                                                                                                                                                                                                                                                                                                                                                                                #f)))
                                                                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                              #(158
                                                                                                                                                                                                                                                                                                                                                                                ()
                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                    #(157
                                                                                                                                                                                                                                                                                                                                                                                      (r$515)
                                                                                                                                                                                                                                                                                                                                                                                      ((rewrite$230
                                                                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                                                                                                           #(156
                                                                                                                                                                                                                                                                                                                                                                                             (r$512)
                                                                                                                                                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                 #(155
                                                                                                                                                                                                                                                                                                                                                                                                   (r$514)
                                                                                                                                                                                                                                                                                                                                                                                                   ((rewrite-args$229
                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                        #(154
                                                                                                                                                                                                                                                                                                                                                                                                          (r$513)
                                                                                                                                                                                                                                                                                                                                                                                                          ((scons$231
                                                                                                                                                                                                                                                                                                                                                                                                             k$510
                                                                                                                                                                                                                                                                                                                                                                                                             r$512
                                                                                                                                                                                                                                                                                                                                                                                                             r$513
                                                                                                                                                                                                                                                                                                                                                                                                             lst$282))
                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                      r$514))
                                                                                                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                                                                                                               (cdr lst$282)))
                                                                                                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                                                                                                         r$515))
                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                  (car lst$282)))
                                                                                                                                                                                                                                                                                                                                                                                #f)))))
                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                    (null? lst$282)))
                                                                                                                                                                                                                                                                                                                                                                  #t))))
                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                        (set! rewrite$230
                                                                                                                                                                                                                                                                                                                                                          r$516)))
                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                    #(174
                                                                                                                                                                                                                                                                                                                                                      (k$517 term$283)
                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                          #(173
                                                                                                                                                                                                                                                                                                                                                            (r$526)
                                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                                #(172
                                                                                                                                                                                                                                                                                                                                                                  (r$518)
                                                                                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                                                                                      #(171
                                                                                                                                                                                                                                                                                                                                                                        (r$519)
                                                                                                                                                                                                                                                                                                                                                                        ((if r$519
                                                                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                              #(169
                                                                                                                                                                                                                                                                                                                                                                                ()
                                                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                    #(168
                                                                                                                                                                                                                                                                                                                                                                                      (r$523)
                                                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                                                          #(167
                                                                                                                                                                                                                                                                                                                                                                                            (r$525)
                                                                                                                                                                                                                                                                                                                                                                                            ((rewrite-args$229
                                                                                                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                 #(166
                                                                                                                                                                                                                                                                                                                                                                                                   (r$524)
                                                                                                                                                                                                                                                                                                                                                                                                   ((scons$231
                                                                                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                        #(165
                                                                                                                                                                                                                                                                                                                                                                                                          (r$520)
                                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                              #(164
                                                                                                                                                                                                                                                                                                                                                                                                                (r$522)
                                                                                                                                                                                                                                                                                                                                                                                                                ((get-lemmas$242
                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                     #(163
                                                                                                                                                                                                                                                                                                                                                                                                                       (r$521)
                                                                                                                                                                                                                                                                                                                                                                                                                       ((rewrite-with-lemmas$228
                                                                                                                                                                                                                                                                                                                                                                                                                          k$517
                                                                                                                                                                                                                                                                                                                                                                                                                          r$520
                                                                                                                                                                                                                                                                                                                                                                                                                          r$521))
                                                                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                                                                   r$522))
                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                            (car term$283)))
                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                      r$523
                                                                                                                                                                                                                                                                                                                                                                                                      r$524
                                                                                                                                                                                                                                                                                                                                                                                                      term$283))
                                                                                                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                                                                                                               r$525))
                                                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                                                        (cdr term$283)))
                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                  (car term$283)))
                                                                                                                                                                                                                                                                                                                                                                                #f)))
                                                                                                                                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                              #(170
                                                                                                                                                                                                                                                                                                                                                                                ()
                                                                                                                                                                                                                                                                                                                                                                                ((k$517 term$283))
                                                                                                                                                                                                                                                                                                                                                                                #f)))))
                                                                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                                                                    (pair? term$283)))
                                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                                              (set! rewrite-count$232
                                                                                                                                                                                                                                                                                                                                                                r$526)))
                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                        (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                                                                          rewrite-count$232
                                                                                                                                                                                                                                                                                                                                                          1)))
                                                                                                                                                                                                                                                                                                                                                      #t))))
                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                            (set! scons$231
                                                                                                                                                                                                                                                                                                                                              r$527)))
                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                        #(182
                                                                                                                                                                                                                                                                                                                                          (k$528 x$286
                                                                                                                                                                                                                                                                                                                                                 y$285
                                                                                                                                                                                                                                                                                                                                                 original$284)
                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                              #(181
                                                                                                                                                                                                                                                                                                                                                (k$530)
                                                                                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                    #(180
                                                                                                                                                                                                                                                                                                                                                      (r$533)
                                                                                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                                          #(179
                                                                                                                                                                                                                                                                                                                                                            (r$531)
                                                                                                                                                                                                                                                                                                                                                            ((if r$531
                                                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                  #(178
                                                                                                                                                                                                                                                                                                                                                                    (r$532)
                                                                                                                                                                                                                                                                                                                                                                    ((k$530 (eq? y$285
                                                                                                                                                                                                                                                                                                                                                                                 r$532)))
                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                (cdr original$284))
                                                                                                                                                                                                                                                                                                                                                               (k$530 #f)))
                                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                                        (eq? x$286
                                                                                                                                                                                                                                                                                                                                                             r$533)))
                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                  (car original$284)))
                                                                                                                                                                                                                                                                                                                                                #t))
                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                              #(177
                                                                                                                                                                                                                                                                                                                                                (r$529)
                                                                                                                                                                                                                                                                                                                                                ((if r$529
                                                                                                                                                                                                                                                                                                                                                   (k$528 original$284)
                                                                                                                                                                                                                                                                                                                                                   (k$528 (cons x$286
                                                                                                                                                                                                                                                                                                                                                                y$285))))
                                                                                                                                                                                                                                                                                                                                                #f))))
                                                                                                                                                                                                                                                                                                                                          #t))))
                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                (set! rewrite-count$232
                                                                                                                                                                                                                                                                                                                                  0)))
                                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                                          (set! if-constructor$233
                                                                                                                                                                                                                                                                                                                            r$534)))
                                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                                    '*))
                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                              (set! tautologyp$234
                                                                                                                                                                                                                                                                                                                r$535)))
                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                          #(214
                                                                                                                                                                                                                                                                                                            (k$536 x$289
                                                                                                                                                                                                                                                                                                                   true-lst$288
                                                                                                                                                                                                                                                                                                                   false-lst$287)
                                                                                                                                                                                                                                                                                                            ((truep$222
                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                 #(213
                                                                                                                                                                                                                                                                                                                   (r$537)
                                                                                                                                                                                                                                                                                                                   ((if r$537
                                                                                                                                                                                                                                                                                                                      (#((record-marker)
                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                         #(188
                                                                                                                                                                                                                                                                                                                           ()
                                                                                                                                                                                                                                                                                                                           ((k$536 #t))
                                                                                                                                                                                                                                                                                                                           #f)))
                                                                                                                                                                                                                                                                                                                      (falsep$223
                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                          #(212
                                                                                                                                                                                                                                                                                                                            (r$538)
                                                                                                                                                                                                                                                                                                                            ((if r$538
                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                  #(189
                                                                                                                                                                                                                                                                                                                                    ()
                                                                                                                                                                                                                                                                                                                                    ((k$536 #f))
                                                                                                                                                                                                                                                                                                                                    #f)))
                                                                                                                                                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                  #(211
                                                                                                                                                                                                                                                                                                                                    (r$539)
                                                                                                                                                                                                                                                                                                                                    ((if r$539
                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                          #(209
                                                                                                                                                                                                                                                                                                                                            (r$554)
                                                                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                #(208
                                                                                                                                                                                                                                                                                                                                                  (r$540)
                                                                                                                                                                                                                                                                                                                                                  ((if r$540
                                                                                                                                                                                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                        #(206
                                                                                                                                                                                                                                                                                                                                                          ()
                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                              #(205
                                                                                                                                                                                                                                                                                                                                                                (r$553)
                                                                                                                                                                                                                                                                                                                                                                ((truep$222
                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                     #(204
                                                                                                                                                                                                                                                                                                                                                                       (r$541)
                                                                                                                                                                                                                                                                                                                                                                       ((if r$541
                                                                                                                                                                                                                                                                                                                                                                          (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                                                                                             #(191
                                                                                                                                                                                                                                                                                                                                                                               ()
                                                                                                                                                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                   #(190
                                                                                                                                                                                                                                                                                                                                                                                     (r$542)
                                                                                                                                                                                                                                                                                                                                                                                     ((tautologyp$234
                                                                                                                                                                                                                                                                                                                                                                                        k$536
                                                                                                                                                                                                                                                                                                                                                                                        r$542
                                                                                                                                                                                                                                                                                                                                                                                        true-lst$288
                                                                                                                                                                                                                                                                                                                                                                                        false-lst$287))
                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                 (caddr x$289)))
                                                                                                                                                                                                                                                                                                                                                                               #f)))
                                                                                                                                                                                                                                                                                                                                                                          (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                                                                                             #(203
                                                                                                                                                                                                                                                                                                                                                                               (r$552)
                                                                                                                                                                                                                                                                                                                                                                               ((falsep$223
                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                                                                                    #(202
                                                                                                                                                                                                                                                                                                                                                                                      (r$543)
                                                                                                                                                                                                                                                                                                                                                                                      ((if r$543
                                                                                                                                                                                                                                                                                                                                                                                         (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                            #(193
                                                                                                                                                                                                                                                                                                                                                                                              ()
                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                  #(192
                                                                                                                                                                                                                                                                                                                                                                                                    (r$544)
                                                                                                                                                                                                                                                                                                                                                                                                    ((tautologyp$234
                                                                                                                                                                                                                                                                                                                                                                                                       k$536
                                                                                                                                                                                                                                                                                                                                                                                                       r$544
                                                                                                                                                                                                                                                                                                                                                                                                       true-lst$288
                                                                                                                                                                                                                                                                                                                                                                                                       false-lst$287))
                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                (cadddr
                                                                                                                                                                                                                                                                                                                                                                                                  x$289)))
                                                                                                                                                                                                                                                                                                                                                                                              #f)))
                                                                                                                                                                                                                                                                                                                                                                                         (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                                            #(201
                                                                                                                                                                                                                                                                                                                                                                                              ()
                                                                                                                                                                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                  #(200
                                                                                                                                                                                                                                                                                                                                                                                                    (r$549)
                                                                                                                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                        #(199
                                                                                                                                                                                                                                                                                                                                                                                                          (r$551)
                                                                                                                                                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                              #(198
                                                                                                                                                                                                                                                                                                                                                                                                                (r$550)
                                                                                                                                                                                                                                                                                                                                                                                                                ((tautologyp$234
                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                     #(197
                                                                                                                                                                                                                                                                                                                                                                                                                       (r$545)
                                                                                                                                                                                                                                                                                                                                                                                                                       ((if r$545
                                                                                                                                                                                                                                                                                                                                                                                                                          (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                             #(196
                                                                                                                                                                                                                                                                                                                                                                                                                               (r$546)
                                                                                                                                                                                                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                   #(195
                                                                                                                                                                                                                                                                                                                                                                                                                                     (r$548)
                                                                                                                                                                                                                                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                                                                                                                                         #(194
                                                                                                                                                                                                                                                                                                                                                                                                                                           (r$547)
                                                                                                                                                                                                                                                                                                                                                                                                                                           ((tautologyp$234
                                                                                                                                                                                                                                                                                                                                                                                                                                              k$536
                                                                                                                                                                                                                                                                                                                                                                                                                                              r$546
                                                                                                                                                                                                                                                                                                                                                                                                                                              true-lst$288
                                                                                                                                                                                                                                                                                                                                                                                                                                              r$547))
                                                                                                                                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                       (cons r$548
                                                                                                                                                                                                                                                                                                                                                                                                                                             false-lst$287)))
                                                                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                                                                 (cadr x$289)))
                                                                                                                                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                                                                                                                                           (cadddr
                                                                                                                                                                                                                                                                                                                                                                                                                             x$289))
                                                                                                                                                                                                                                                                                                                                                                                                                          (k$536 #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                                                                   r$549
                                                                                                                                                                                                                                                                                                                                                                                                                   r$550
                                                                                                                                                                                                                                                                                                                                                                                                                   false-lst$287))
                                                                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                                                                            (cons r$551
                                                                                                                                                                                                                                                                                                                                                                                                                  true-lst$288)))
                                                                                                                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                                                                                                                      (cadr x$289)))
                                                                                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                                                                                (caddr x$289)))
                                                                                                                                                                                                                                                                                                                                                                                              #f)))))
                                                                                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                                                                                  r$552
                                                                                                                                                                                                                                                                                                                                                                                  false-lst$287))
                                                                                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                                                                                           (cadr x$289))))
                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                   r$553
                                                                                                                                                                                                                                                                                                                                                                   true-lst$288))
                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                            (cadr x$289)))
                                                                                                                                                                                                                                                                                                                                                          #f)))
                                                                                                                                                                                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                                                                        #(207
                                                                                                                                                                                                                                                                                                                                                          ()
                                                                                                                                                                                                                                                                                                                                                          ((k$536 #f))
                                                                                                                                                                                                                                                                                                                                                          #f)))))
                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                              (eq? r$554
                                                                                                                                                                                                                                                                                                                                                   if-constructor$233)))
                                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                                        (car x$289))
                                                                                                                                                                                                                                                                                                                                       (#((record-marker)
                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                                          #(210
                                                                                                                                                                                                                                                                                                                                            ()
                                                                                                                                                                                                                                                                                                                                            ((k$536 #f))
                                                                                                                                                                                                                                                                                                                                            #f)))))
                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                (pair? x$289))))
                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                        x$289
                                                                                                                                                                                                                                                                                                                        false-lst$287)))
                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                               x$289
                                                                                                                                                                                                                                                                                                               true-lst$288))
                                                                                                                                                                                                                                                                                                            #t))))
                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                  (set! tautp$235
                                                                                                                                                                                                                                                                                                    r$555)))
                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                              #(220
                                                                                                                                                                                                                                                                                                (k$556 x$290)
                                                                                                                                                                                                                                                                                                ((rewrite$230
                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                     #(219
                                                                                                                                                                                                                                                                                                       (r$557)
                                                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                           #(218
                                                                                                                                                                                                                                                                                                             (r$558)
                                                                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                                 #(217
                                                                                                                                                                                                                                                                                                                   (r$559)
                                                                                                                                                                                                                                                                                                                   ((tautologyp$234
                                                                                                                                                                                                                                                                                                                      k$556
                                                                                                                                                                                                                                                                                                                      r$557
                                                                                                                                                                                                                                                                                                                      r$558
                                                                                                                                                                                                                                                                                                                      r$559))
                                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                                               '()))
                                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                                         '()))
                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                   x$290))
                                                                                                                                                                                                                                                                                                #t))))
                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                      (set! apply-subst-lst$236
                                                                                                                                                                                                                                                                                        r$560)))
                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                  #(230
                                                                                                                                                                                                                                                                                    (k$561 alist$292
                                                                                                                                                                                                                                                                                           lst$291)
                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                        #(229
                                                                                                                                                                                                                                                                                          (r$562)
                                                                                                                                                                                                                                                                                          ((if r$562
                                                                                                                                                                                                                                                                                             (#((record-marker)
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                #(223
                                                                                                                                                                                                                                                                                                  ()
                                                                                                                                                                                                                                                                                                  ((k$561 '()))
                                                                                                                                                                                                                                                                                                  #f)))
                                                                                                                                                                                                                                                                                             (#((record-marker)
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                #(228
                                                                                                                                                                                                                                                                                                  ()
                                                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                      #(227
                                                                                                                                                                                                                                                                                                        (r$566)
                                                                                                                                                                                                                                                                                                        ((apply-subst$237
                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                             #(226
                                                                                                                                                                                                                                                                                                               (r$563)
                                                                                                                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                   #(225
                                                                                                                                                                                                                                                                                                                     (r$565)
                                                                                                                                                                                                                                                                                                                     ((apply-subst-lst$236
                                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                                                          #(224
                                                                                                                                                                                                                                                                                                                            (r$564)
                                                                                                                                                                                                                                                                                                                            ((k$561 (cons r$563
                                                                                                                                                                                                                                                                                                                                          r$564)))
                                                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                                                        alist$292
                                                                                                                                                                                                                                                                                                                        r$565))
                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                 (cdr lst$291)))
                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                           alist$292
                                                                                                                                                                                                                                                                                                           r$566))
                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                    (car lst$291)))
                                                                                                                                                                                                                                                                                                  #f)))))
                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                      (null? lst$291)))
                                                                                                                                                                                                                                                                                    #t))))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          (set! apply-subst$237
                                                                                                                                                                                                                                                                            r$567)))
                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                      #(241
                                                                                                                                                                                                                                                                        (k$568 alist$294
                                                                                                                                                                                                                                                                               term$293)
                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(240
                                                                                                                                                                                                                                                                              (r$569)
                                                                                                                                                                                                                                                                              ((if r$569
                                                                                                                                                                                                                                                                                 (#((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(236
                                                                                                                                                                                                                                                                                      ()
                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                          #(235
                                                                                                                                                                                                                                                                                            (r$570)
                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                #(234
                                                                                                                                                                                                                                                                                                  (r$572)
                                                                                                                                                                                                                                                                                                  ((apply-subst-lst$236
                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                       #(233
                                                                                                                                                                                                                                                                                                         (r$571)
                                                                                                                                                                                                                                                                                                         ((k$568 (cons r$570
                                                                                                                                                                                                                                                                                                                       r$571)))
                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                     alist$294
                                                                                                                                                                                                                                                                                                     r$572))
                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                              (cdr term$293)))
                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                        (car term$293)))
                                                                                                                                                                                                                                                                                      #f)))
                                                                                                                                                                                                                                                                                 (#((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(239
                                                                                                                                                                                                                                                                                      ()
                                                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                                                          #(238
                                                                                                                                                                                                                                                                                            (r$573)
                                                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                #(237
                                                                                                                                                                                                                                                                                                  (temp-temp$295)
                                                                                                                                                                                                                                                                                                  ((if temp-temp$295
                                                                                                                                                                                                                                                                                                     (k$568 (cdr temp-temp$295))
                                                                                                                                                                                                                                                                                                     (k$568 term$293)))
                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                              r$573))
                                                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                                                        (assq term$293
                                                                                                                                                                                                                                                                                              alist$294)))
                                                                                                                                                                                                                                                                                      #f)))))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          (pair? term$293)))
                                                                                                                                                                                                                                                                        #t))))
                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                              (set! translate-alist$238
                                                                                                                                                                                                                                                                r$574)))
                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(253
                                                                                                                                                                                                                                                            (k$575 alist$296)
                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                #(252
                                                                                                                                                                                                                                                                  (r$576)
                                                                                                                                                                                                                                                                  ((if r$576
                                                                                                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                        #(244
                                                                                                                                                                                                                                                                          ()
                                                                                                                                                                                                                                                                          ((k$575 '()))
                                                                                                                                                                                                                                                                          #f)))
                                                                                                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                        #(251
                                                                                                                                                                                                                                                                          ()
                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                              #(250
                                                                                                                                                                                                                                                                                (r$580)
                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(249
                                                                                                                                                                                                                                                                                      (r$582)
                                                                                                                                                                                                                                                                                      ((translate-term$251
                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(248
                                                                                                                                                                                                                                                                                             (r$581)
                                                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                                                 #(247
                                                                                                                                                                                                                                                                                                   (r$577)
                                                                                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                       #(246
                                                                                                                                                                                                                                                                                                         (r$579)
                                                                                                                                                                                                                                                                                                         ((translate-alist$238
                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                              #(245
                                                                                                                                                                                                                                                                                                                (r$578)
                                                                                                                                                                                                                                                                                                                ((k$575 (cons r$577
                                                                                                                                                                                                                                                                                                                              r$578)))
                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                            r$579))
                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                     (cdr alist$296)))
                                                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                                                               (cons r$580
                                                                                                                                                                                                                                                                                                     r$581)))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         r$582))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  (cdar alist$296)))
                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                            (caar alist$296)))
                                                                                                                                                                                                                                                                          #f)))))
                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                              (null? alist$296)))
                                                                                                                                                                                                                                                            #t))))
                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                  (set! test$239
                                                                                                                                                                                                                                                    r$583)))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(271
                                                                                                                                                                                                                                                (k$584 alist$299
                                                                                                                                                                                                                                                       term$298
                                                                                                                                                                                                                                                       n$297)
                                                                                                                                                                                                                                                ((translate-alist$238
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                     #(270
                                                                                                                                                                                                                                                       (r$586)
                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                           #(269
                                                                                                                                                                                                                                                             (term$301
                                                                                                                                                                                                                                                               n$300)
                                                                                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                 #(268
                                                                                                                                                                                                                                                                   (lp$37$302)
                                                                                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                       #(261
                                                                                                                                                                                                                                                                         (r$590)
                                                                                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                             #(260
                                                                                                                                                                                                                                                                               (r$589)
                                                                                                                                                                                                                                                                               ((lp$37$302
                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(259
                                                                                                                                                                                                                                                                                      (r$588)
                                                                                                                                                                                                                                                                                      ((translate-term$251
                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(258
                                                                                                                                                                                                                                                                                             (r$587)
                                                                                                                                                                                                                                                                                             ((apply-subst$237
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                  #(257
                                                                                                                                                                                                                                                                                                    (r$585)
                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                        #(256
                                                                                                                                                                                                                                                                                                          (term$305)
                                                                                                                                                                                                                                                                                                          ((tautp$235
                                                                                                                                                                                                                                                                                                             k$584
                                                                                                                                                                                                                                                                                                             term$305))
                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                      r$585))
                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                r$586
                                                                                                                                                                                                                                                                                                r$587))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         r$588))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  term$301
                                                                                                                                                                                                                                                                                  n$300))
                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                           (set! lp$37$302
                                                                                                                                                                                                                                                                             r$590)))
                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                       #(267
                                                                                                                                                                                                                                                                         (k$591 term$304
                                                                                                                                                                                                                                                                                n$303)
                                                                                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                             #(266
                                                                                                                                                                                                                                                                               (r$592)
                                                                                                                                                                                                                                                                               ((if r$592
                                                                                                                                                                                                                                                                                  (k$591 term$304)
                                                                                                                                                                                                                                                                                  (#((record-marker)
                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                     #(265
                                                                                                                                                                                                                                                                                       (r$595)
                                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(264
                                                                                                                                                                                                                                                                                             (r$596)
                                                                                                                                                                                                                                                                                             ((list #((record-marker)
                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                      #(263
                                                                                                                                                                                                                                                                                                        (r$593)
                                                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                            #(262
                                                                                                                                                                                                                                                                                                              (r$594)
                                                                                                                                                                                                                                                                                                              ((lp$37$302
                                                                                                                                                                                                                                                                                                                 k$591
                                                                                                                                                                                                                                                                                                                 r$593
                                                                                                                                                                                                                                                                                                                 r$594))
                                                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                                                          (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                            n$303
                                                                                                                                                                                                                                                                                                            1)))
                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                    r$595
                                                                                                                                                                                                                                                                                                    term$304
                                                                                                                                                                                                                                                                                                    r$596))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         '(f)))
                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                   'or)))
                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                           (zero?__inline__
                                                                                                                                                                                                                                                                             n$303)))
                                                                                                                                                                                                                                                                         #t))))
                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                         term$298
                                                                                                                                                                                                                                                         n$297))
                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                   alist$299))
                                                                                                                                                                                                                                                #t))))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      (set! symbol-record-equal?$240
                                                                                                                                                                                                                                        r$597)))
                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                  #(274
                                                                                                                                                                                                                                    (k$598 r1$307
                                                                                                                                                                                                                                           r2$306)
                                                                                                                                                                                                                                    ((k$598 (eq? r1$307
                                                                                                                                                                                                                                                 r2$306)))
                                                                                                                                                                                                                                    #t))))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          (set! get-name$241
                                                                                                                                                                                                                            r$599)))
                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                            body
                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                      #(277
                                                                                                                                                                                                                        (k$600 symbol-record$308)
                                                                                                                                                                                                                        ((k$600 (vector-ref
                                                                                                                                                                                                                                  symbol-record$308
                                                                                                                                                                                                                                  0)))
                                                                                                                                                                                                                        #t))))
                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                              (set! get-lemmas$242
                                                                                                                                                                                                                r$601)))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(280
                                                                                                                                                                                                            (k$602 symbol-record$309)
                                                                                                                                                                                                            ((k$602 (vector-ref
                                                                                                                                                                                                                      symbol-record$309
                                                                                                                                                                                                                      1)))
                                                                                                                                                                                                            #t))))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  (set! put-lemmas!$243
                                                                                                                                                                                                    r$603)))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(283
                                                                                                                                                                                                (k$604 symbol-record$311
                                                                                                                                                                                                       lemmas$310)
                                                                                                                                                                                                ((k$604 (vector-set!
                                                                                                                                                                                                          symbol-record$311
                                                                                                                                                                                                          1
                                                                                                                                                                                                          lemmas$310)))
                                                                                                                                                                                                #t))))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      (set! make-symbol-record$244
                                                                                                                                                                                        r$605)))
                                                                                                                                                                                    #f))
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(287
                                                                                                                                                                                    (k$606 sym$312)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(286
                                                                                                                                                                                          (r$607)
                                                                                                                                                                                          ((vector
                                                                                                                                                                                             k$606
                                                                                                                                                                                             sym$312
                                                                                                                                                                                             r$607))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      '()))
                                                                                                                                                                                    #t))))
                                                                                                                                                                              #f))
                                                                                                                                                                          (set! *symbol-records-alist*$245
                                                                                                                                                                            r$608)))
                                                                                                                                                                        #f))
                                                                                                                                                                    '()))
                                                                                                                                                                  #f))
                                                                                                                                                              (set! symbol->symbol-record$246
                                                                                                                                                                r$609)))
                                                                                                                                                            #f))
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(299
                                                                                                                                                            (k$610 sym$313)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(298
                                                                                                                                                                  (r$611)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(297
                                                                                                                                                                        (x$314)
                                                                                                                                                                        ((if x$314
                                                                                                                                                                           (k$610 (cdr x$314))
                                                                                                                                                                           (make-symbol-record$244
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(296
                                                                                                                                                                                 (r$612)
                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(295
                                                                                                                                                                                       (r$315)
                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(294
                                                                                                                                                                                             (r$615)
                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                   #f
                                                                                                                                                                                                   (id args
                                                                                                                                                                                                       body
                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                 #(293
                                                                                                                                                                                                   (r$614)
                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(292
                                                                                                                                                                                                         (r$613)
                                                                                                                                                                                                         ((k$610 r$315))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     (set! *symbol-records-alist*$245
                                                                                                                                                                                                       r$614)))
                                                                                                                                                                                                   #f))
                                                                                                                                                                                               (cons r$615
                                                                                                                                                                                                     *symbol-records-alist*$245)))
                                                                                                                                                                                             #f))
                                                                                                                                                                                         (cons sym$313
                                                                                                                                                                                               r$315)))
                                                                                                                                                                                       #f))
                                                                                                                                                                                   r$612))
                                                                                                                                                                                 #f))
                                                                                                                                                                             sym$313)))
                                                                                                                                                                        #f))
                                                                                                                                                                    r$611))
                                                                                                                                                                  #f))
                                                                                                                                                              (assq sym$313
                                                                                                                                                                    *symbol-records-alist*$245)))
                                                                                                                                                            #t))))
                                                                                                                                                      #f))
                                                                                                                                                  (set! get$247
                                                                                                                                                    r$616)))
                                                                                                                                                #f))
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(303
                                                                                                                                                (k$617 sym$317
                                                                                                                                                       property$316)
                                                                                                                                                ((symbol->symbol-record$246
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(302
                                                                                                                                                       (r$618)
                                                                                                                                                       ((get-lemmas$242
                                                                                                                                                          k$617
                                                                                                                                                          r$618))
                                                                                                                                                       #f))
                                                                                                                                                   sym$317))
                                                                                                                                                #t))))
                                                                                                                                          #f))
                                                                                                                                      (set! put$248
                                                                                                                                        r$619)))
                                                                                                                                    #f))
                                                                                                                                #((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(307
                                                                                                                                    (k$620 sym$320
                                                                                                                                           property$319
                                                                                                                                           value$318)
                                                                                                                                    ((symbol->symbol-record$246
                                                                                                                                       #((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(306
                                                                                                                                           (r$621)
                                                                                                                                           ((put-lemmas!$243
                                                                                                                                              k$620
                                                                                                                                              r$621
                                                                                                                                              value$318))
                                                                                                                                           #f))
                                                                                                                                       sym$320))
                                                                                                                                    #t))))
                                                                                                                              #f))
                                                                                                                          (set! untranslate-term$249
                                                                                                                            r$622)))
                                                                                                                        #f))
                                                                                                                    #((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(317
                                                                                                                        (k$623 term$321)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(316
                                                                                                                              (r$624)
                                                                                                                              ((if r$624
                                                                                                                                 (#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(314
                                                                                                                                      ()
                                                                                                                                      ((#((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(313
                                                                                                                                            (r$628)
                                                                                                                                            ((get-name$241
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(312
                                                                                                                                                   (r$625)
                                                                                                                                                   ((#((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(311
                                                                                                                                                         (r$627)
                                                                                                                                                         ((map #((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(310
                                                                                                                                                                   (r$626)
                                                                                                                                                                   ((k$623 (cons r$625
                                                                                                                                                                                 r$626)))
                                                                                                                                                                   #f))
                                                                                                                                                               untranslate-term$249
                                                                                                                                                               r$627))
                                                                                                                                                         #f))
                                                                                                                                                     (cdr term$321)))
                                                                                                                                                   #f))
                                                                                                                                               r$628))
                                                                                                                                            #f))
                                                                                                                                        (car term$321)))
                                                                                                                                      #f)))
                                                                                                                                 (#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(315
                                                                                                                                      ()
                                                                                                                                      ((k$623 term$321))
                                                                                                                                      #f)))))
                                                                                                                              #f))
                                                                                                                          (pair? term$321)))
                                                                                                                        #t))))
                                                                                                                  #f))
                                                                                                              (set! translate-args$250
                                                                                                                r$629)))
                                                                                                            #f))
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(327
                                                                                                            (k$630 lst$322)
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(326
                                                                                                                  (r$631)
                                                                                                                  ((if r$631
                                                                                                                     (#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(320
                                                                                                                          ()
                                                                                                                          ((k$630 '()))
                                                                                                                          #f)))
                                                                                                                     (#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(325
                                                                                                                          ()
                                                                                                                          ((#((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(324
                                                                                                                                (r$635)
                                                                                                                                ((translate-term$251
                                                                                                                                   #((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(323
                                                                                                                                       (r$632)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(322
                                                                                                                                             (r$634)
                                                                                                                                             ((translate-args$250
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(321
                                                                                                                                                    (r$633)
                                                                                                                                                    ((k$630 (cons r$632
                                                                                                                                                                  r$633)))
                                                                                                                                                    #f))
                                                                                                                                                r$634))
                                                                                                                                             #f))
                                                                                                                                         (cdr lst$322)))
                                                                                                                                       #f))
                                                                                                                                   r$635))
                                                                                                                                #f))
                                                                                                                            (car lst$322)))
                                                                                                                          #f)))))
                                                                                                                  #f))
                                                                                                              (null? lst$322)))
                                                                                                            #t))))
                                                                                                      #f))
                                                                                                  (set! translate-term$251
                                                                                                    r$636)))
                                                                                                #f))
                                                                                            #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(337
                                                                                                (k$637 term$323)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(336
                                                                                                      (r$638)
                                                                                                      ((if r$638
                                                                                                         (#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(334
                                                                                                              ()
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(333
                                                                                                                    (r$642)
                                                                                                                    ((symbol->symbol-record$246
                                                                                                                       #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(332
                                                                                                                           (r$639)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(331
                                                                                                                                 (r$641)
                                                                                                                                 ((translate-args$250
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(330
                                                                                                                                        (r$640)
                                                                                                                                        ((k$637 (cons r$639
                                                                                                                                                      r$640)))
                                                                                                                                        #f))
                                                                                                                                    r$641))
                                                                                                                                 #f))
                                                                                                                             (cdr term$323)))
                                                                                                                           #f))
                                                                                                                       r$642))
                                                                                                                    #f))
                                                                                                                (car term$323)))
                                                                                                              #f)))
                                                                                                         (#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(335
                                                                                                              ()
                                                                                                              ((k$637 term$323))
                                                                                                              #f)))))
                                                                                                      #f))
                                                                                                  (pair? term$323)))
                                                                                                #t))))
                                                                                          #f))
                                                                                      (set! add-lemma$252
                                                                                        r$643)))
                                                                                    #f))
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(358
                                                                                    (k$644 term$324)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(357
                                                                                          (k$655)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(356
                                                                                                (r$656)
                                                                                                ((if r$656
                                                                                                   (#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(355
                                                                                                        (r$659)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(354
                                                                                                              (r$660)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(353
                                                                                                                    (r$657)
                                                                                                                    ((if r$657
                                                                                                                       (#((record-marker)
                                                                                                                          #((record-marker)
                                                                                                                            #f
                                                                                                                            (id args
                                                                                                                                body
                                                                                                                                has-cont))
                                                                                                                          #(352
                                                                                                                            (r$658)
                                                                                                                            ((k$655 (pair? r$658)))
                                                                                                                            #f))
                                                                                                                        (cadr term$324))
                                                                                                                       (k$655 #f)))
                                                                                                                    #f))
                                                                                                                (eq? r$659
                                                                                                                     r$660)))
                                                                                                              #f))
                                                                                                          'equal))
                                                                                                        #f))
                                                                                                    (car term$324))
                                                                                                   (k$655 #f)))
                                                                                                #f))
                                                                                            (pair? term$324)))
                                                                                          #t))
                                                                                      #((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(351
                                                                                          (r$645)
                                                                                          ((if r$645
                                                                                             (#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(349
                                                                                                  ()
                                                                                                  ((#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(348
                                                                                                        (r$654)
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(347
                                                                                                              (r$646)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(346
                                                                                                                    (r$647)
                                                                                                                    ((translate-term$251
                                                                                                                       #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(345
                                                                                                                           (r$649)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(344
                                                                                                                                 (r$653)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(343
                                                                                                                                       (r$651)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(342
                                                                                                                                             (r$652)
                                                                                                                                             ((get$247
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(341
                                                                                                                                                    (r$650)
                                                                                                                                                    ((#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(340
                                                                                                                                                          (r$648)
                                                                                                                                                          ((put$248
                                                                                                                                                             k$644
                                                                                                                                                             r$646
                                                                                                                                                             r$647
                                                                                                                                                             r$648))
                                                                                                                                                          #f))
                                                                                                                                                      (cons r$649
                                                                                                                                                            r$650)))
                                                                                                                                                    #f))
                                                                                                                                                r$651
                                                                                                                                                r$652))
                                                                                                                                             #f))
                                                                                                                                         'lemmas))
                                                                                                                                       #f))
                                                                                                                                   (car r$653)))
                                                                                                                                 #f))
                                                                                                                             (cadr term$324)))
                                                                                                                           #f))
                                                                                                                       term$324))
                                                                                                                    #f))
                                                                                                                'lemmas))
                                                                                                              #f))
                                                                                                          (car r$654)))
                                                                                                        #f))
                                                                                                    (cadr term$324)))
                                                                                                  #f)))
                                                                                             (#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(350
                                                                                                  ()
                                                                                                  ((error k$644
                                                                                                          #f
                                                                                                          "ADD-LEMMA did not like term:  "
                                                                                                          term$324))
                                                                                                  #f)))))
                                                                                          #f))))
                                                                                    #t))))
                                                                              #f))
                                                                          (set! add-lemma-lst$253
                                                                            r$661)))
                                                                        #f))
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(367
                                                                        (k$662 lst$325)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(366
                                                                              (r$663)
                                                                              ((if r$663
                                                                                 (#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(361
                                                                                      ()
                                                                                      ((k$662 #t))
                                                                                      #f)))
                                                                                 (#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(365
                                                                                      ()
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(364
                                                                                            (r$666)
                                                                                            ((add-lemma$252
                                                                                               #((record-marker)
                                                                                                 #((record-marker)
                                                                                                   #f
                                                                                                   (id args
                                                                                                       body
                                                                                                       has-cont))
                                                                                                 #(363
                                                                                                   (r$664)
                                                                                                   ((#((record-marker)
                                                                                                       #((record-marker)
                                                                                                         #f
                                                                                                         (id args
                                                                                                             body
                                                                                                             has-cont))
                                                                                                       #(362
                                                                                                         (r$665)
                                                                                                         ((add-lemma-lst$253
                                                                                                            k$662
                                                                                                            r$665))
                                                                                                         #f))
                                                                                                     (cdr lst$325)))
                                                                                                   #f))
                                                                                               r$666))
                                                                                            #f))
                                                                                        (car lst$325)))
                                                                                      #f)))))
                                                                              #f))
                                                                          (null? lst$325)))
                                                                        #t))))
                                                                  #f))
                                                              (set! setup$254
                                                                r$667)))
                                                            #f))
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(371
                                                            (k$668)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(370
                                                                  (r$669)
                                                                  ((add-lemma-lst$253
                                                                     k$668
                                                                     r$669))
                                                                  #f))
                                                              '((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))))))
                                                            #t))))
                                                      #f))
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #f
                                                  #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$670)))
                                    #f))
                                '(implies
                                   (and (implies x y)
                                        (and (implies y z)
                                             (and (implies z u) (implies u w))))
                                   (implies x w))))
                              #f))
                          (set! alist r$671)))
                        #f))
                    '((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))))))
                  #f))
              0))
            #f))))
      #f))
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f
  #f))
 */
/* 
"---------------- cps analysis db:"
 */
/* 
#((record-marker)
  #((record-marker)
    #f
    (size hash compare associate entries))
  #(1112
    #[procedure]
    #[procedure]
    #[procedure]
    #(()
      ((1
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$637 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 337 #f #f #f 2 (335 330) #f #f 2 0 #t #f #t)))
       (2
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((3
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((4
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f)))
       (loop$338
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             428
             #f
             #f
             #f
             3
             (385 384 383)
             #f
             r$688
             2
             0
             #f
             #f
             #f))))
      ((5
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((6
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$404 test-boyer r$404) #t))))
      ((7
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((8
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((9
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((10
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((11
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((12
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((13
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((14
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((15
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((16
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (term2$275
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             129
             #f
             #f
             #f
             7
             (129 127 125 123 119 114 109)
             #f
             #f
             0
             7
             #t
             #f
             #f))))
      ((17
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((18
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((19
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (term2$278
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f))))
      ((20
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$408 setup-boyer r$408) #t)))
       (j1$341
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 416 #f #f #f 1 (414) #f r$695 0 1 #t #f #f))))
      ((21
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((22
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((23
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((24
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((25
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((26
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((27
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((28
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((29
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((30
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$421 term-member?$215 r$421) #f))))
      ((31
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((32
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((33
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((34
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((35
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$644 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 358 #f #f #f 2 (350 340) #f #f 0 2 #f #f #t)))
       (36
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((37
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((38
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((39
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((40
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((41
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((42
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((43
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((44
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$427 term-args-equal?$216 r$427) #f))))
      ((45
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((46
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((47
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((48
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((49
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((50
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((51
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((52
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((53
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((54
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((55
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (y$263 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (54 53 51 48)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((zero?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (267) #f #f 1 0 #t #f #f)))
       (56
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$436 term-equal?$217 r$436) #f))))
      ((57
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((58
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((59
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((60
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((61
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((62
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((63
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((64
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((65
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (get-lemmas$206
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((66
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((67
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((68
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((69
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$445 trans-of-implies1$218 r$445) #f))))
      ((70
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((71
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((72
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((73
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((74
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$655 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  357
                  #f
                  #f
                  #f
                  3
                  (356 353 352)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(351
                      (r$645)
                      ((if r$645
                         (#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(349
                              ()
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(348
                                    (r$654)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(347
                                          (r$646)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(346
                                                (r$647)
                                                ((translate-term$251
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(345
                                                       (r$649)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(344
                                                             (r$653)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(343
                                                                   (r$651)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(342
                                                                         (r$652)
                                                                         ((get$247
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(341
                                                                                (r$650)
                                                                                ((#((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(340
                                                                                      (r$648)
                                                                                      ((put$248
                                                                                         k$644
                                                                                         r$646
                                                                                         r$647
                                                                                         r$648))
                                                                                      #f))
                                                                                  (cons r$649
                                                                                        r$650)))
                                                                                #f))
                                                                            r$651
                                                                            r$652))
                                                                         #f))
                                                                     'lemmas))
                                                                   #f))
                                                               (car r$653)))
                                                             #f))
                                                         (cadr term$324)))
                                                       #f))
                                                   term$324))
                                                #f))
                                            'lemmas))
                                          #f))
                                      (car r$654)))
                                    #f))
                                (cadr term$324)))
                              #f)))
                         (#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(350
                              ()
                              ((error k$644
                                      #f
                                      "ADD-LEMMA did not like term:  "
                                      term$324))
                              #f)))))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t))))
      ((75
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((76
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((77
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$455 trans-of-implies$219 r$455) #f))))
      ((78
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((79
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((80
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((81
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((82
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((83
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((84
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((85
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((86
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$464 truep$222 r$464) #f))))
      ((87
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((88
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((89
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((90
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((91
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$467 falsep$223 r$467) #f))))
      ((92
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((93
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((94
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((95
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((96
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((97
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((98
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((99
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((100
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((101
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (Cyc-version
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (382) #f #f 1 0 #f #f #f))))
      ((102
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((103
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((104
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((105
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$470 one-way-unify1-lst$224 r$470) #f))))
      ((106
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((107
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((108
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$662 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 367 #f #f #f 2 (362 361) #f #f 1 1 #f #f #t))))
      ((109
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((110
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((111
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((112
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((113
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((114
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$668 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 371 #f #f #f 1 (370) #f #f 0 1 #f #f #t))))
      ((115
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((116
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((117
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (answer$258
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 3 #f #f #f 1 (3) #f r$407 0 0 #t #f #f))))
      ((118
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((119
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((120
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((121
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((122
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((123
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((124
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((125
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((126
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((127
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((128
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((129
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$479 one-way-unify1$225 r$479) #t))))
      ((130
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((131
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (y$285 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 178) #f #f 0 2 #t #f #f))))
      ((132
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((133
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((134
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$494 one-way-unify$226 r$494) #t))))
      ((135
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((136
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((137
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((138
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((139
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((140
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (apply-subst-lst$210
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((141
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((142
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((143
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((144
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((145
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((146
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((147
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$674 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 382 #f #f #f 1 (381) #f #f 1 0 #t #f #t))))
      ((148
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((149
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((150
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$499 rewrite-with-lemmas$228 r$499) #f))))
      ((k$678 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 449 #f #f #f 1 (383) #f #f 0 1 #f #f #t)))
       (151
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((152
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((153
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((154
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((155
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((156
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((157
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((158
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((159
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((160
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$509 rewrite-args$229 r$509) #f))))
      ((161
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((162
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((163
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((164
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((165
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((166
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((167
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (untranslate-term$175
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((168
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((169
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((170
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((171
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((172
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((173
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((174
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$516 rewrite$230 r$516) #t))))
      ((175
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((176
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((177
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$530) #f))))
      ((178
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((179
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((180
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (term-equal?$217
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (117 91 86 46 40 28)
             #f
             r$436
             5
             0
             #f
             #f
             #f))))
      ((181
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((182
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$527 scons$231 r$527) #f))))
      ((183
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((184
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((185
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((186
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((187
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (rewrite-args$229
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (167 155 152)
             #f
             r$509
             2
             0
             #f
             #f
             #f))))
      ((188
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((189
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$689 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  427
                  #f
                  #f
                  #f
                  3
                  (419 388 385)
                  #f
                  #f
                  2
                  1
                  #f
                  #f
                  #t))))
      ((190
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((191
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((192
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((193
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((194
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((195
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((196
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((197
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((198
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((199
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((200
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((201
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((202
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (tautologyp$189
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((value$318
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 1 (306) #f #f 0 1 #f #f #f)))
       (203
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (286 458) #f #f 2 0 #f #f #f)))
       (r$501 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  149
                  #f
                  #f
                  #f
                  1
                  (149)
                  #f
                  (null? lst$280)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((204
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$502 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 146 #f #f #f 1 (146) #f #f 0 0 #t #f #f))))
      ((205
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$503 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 140 #f #f #f 1 (140) #f #f 0 1 #t #f #f))))
      ((206
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$504 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  141
                  #f
                  #f
                  #f
                  1
                  (141)
                  #f
                  (caddr r$505)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((207
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$505 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  142
                  #f
                  #f
                  #f
                  1
                  (142)
                  #f
                  (car lst$280)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((208
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$506 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  144
                  #f
                  #f
                  #f
                  1
                  (144)
                  #f
                  (cdr lst$280)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((209
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (get-lemmas$242
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (302 279 164)
             #f
             r$601
             2
             0
             #f
             #f
             #f)))
       (r$507 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  147
                  #f
                  #f
                  #f
                  1
                  (147)
                  #f
                  (cadr r$508)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((210
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$508 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  148
                  #f
                  #f
                  #f
                  1
                  (148)
                  #f
                  (car lst$280)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((211
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$509 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  152
                  #f
                  #f
                  #f
                  1
                  (152)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(160
                      (k$510 lst$282)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(159
                            (r$511)
                            ((if r$511
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(153 () ((k$510 '())) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(158
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(157
                                          (r$515)
                                          ((rewrite$230
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(156
                                                 (r$512)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(155
                                                       (r$514)
                                                       ((rewrite-args$229
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(154
                                                              (r$513)
                                                              ((scons$231
                                                                 k$510
                                                                 r$512
                                                                 r$513
                                                                 lst$282))
                                                              #f))
                                                          r$514))
                                                       #f))
                                                   (cdr lst$282)))
                                                 #f))
                                             r$515))
                                          #f))
                                      (car lst$282)))
                                    #f)))))
                            #f))
                        (null? lst$282)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((212
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((213
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((214
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$535 tautologyp$234 r$535) #f))))
      ((215
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((216
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((217
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((218
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((219
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((220
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$555 tautp$235 r$555) #f)))
       (apply-subst-lst$236
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (234 225 222)
             #f
             r$560
             2
             0
             #f
             #f
             #f))))
      ((221
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((222
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((223
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((224
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((225
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((226
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((227
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((228
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((229
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((230
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$560 apply-subst-lst$236 r$560) #f))))
      ((231
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((232
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((233
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((234
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((235
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (string-append
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (381 472) #f #f 2 0 #t #f #f))))
      ((236
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((237
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((238
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f)))
       (unify-subst$176
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((239
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((240
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$511 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  159
                  #f
                  #f
                  #f
                  1
                  (159)
                  #f
                  (null? lst$282)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((241
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$567 apply-subst$237 r$567) #f)))
       (r$512 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 156 #f #f #f 1 (154) #f #f 0 1 #f #f #f))))
      ((242
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$513 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 154 #f #f #f 1 (154) #f #f 0 1 #t #f #f))))
      ((243
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$514 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  155
                  #f
                  #f
                  #f
                  1
                  (155)
                  #f
                  (cdr lst$282)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((244
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$515 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  157
                  #f
                  #f
                  #f
                  1
                  (157)
                  #f
                  (car lst$282)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((245
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$516 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  162
                  #f
                  #f
                  #f
                  1
                  (162)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(174
                      (k$517 term$283)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(173
                            (r$526)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(172
                                  (r$518)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(171
                                        (r$519)
                                        ((if r$519
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(169
                                                ()
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(168
                                                      (r$523)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(167
                                                            (r$525)
                                                            ((rewrite-args$229
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(166
                                                                   (r$524)
                                                                   ((scons$231
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(165
                                                                          (r$520)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(164
                                                                                (r$522)
                                                                                ((get-lemmas$242
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(163
                                                                                       (r$521)
                                                                                       ((rewrite-with-lemmas$228
                                                                                          k$517
                                                                                          r$520
                                                                                          r$521))
                                                                                       #f))
                                                                                   r$522))
                                                                                #f))
                                                                            (car term$283)))
                                                                          #f))
                                                                      r$523
                                                                      r$524
                                                                      term$283))
                                                                   #f))
                                                               r$525))
                                                            #f))
                                                        (cdr term$283)))
                                                      #f))
                                                  (car term$283)))
                                                #f)))
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(170
                                                ()
                                                ((k$517 term$283))
                                                #f)))))
                                        #f))
                                    (pair? term$283)))
                                  #f))
                              (set! rewrite-count$232 r$526)))
                            #f))
                        (Cyc-fast-plus rewrite-count$232 1)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((246
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((247
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$518 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  172
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 r$526)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((248
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$519 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  171
                  #f
                  #f
                  #f
                  1
                  (171)
                  #f
                  (pair? term$283)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((249
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((250
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((251
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((252
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((253
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$574 translate-alist$238 r$574) #f))))
      ((254
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((255
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (list .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 6
                 (264 73 74 61 64 59)
                 #f
                 #f
                 6
                 0
                 #f
                 #f
                 #f))))
      ((256
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((257
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((258
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((259
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((260
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((261
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((262
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((263
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((264
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((265
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((266
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((267
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$590 lp$37$302 r$590) #f))))
      ((268
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((269
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((270
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lst$259
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 30 #f #f #f 3 (30 29 26) #f #f 0 3 #t #f #f))))
      ((271
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$583 test$239 r$583) #t))))
      ((272
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((273
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((274
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$597 symbol-record-equal?$240 r$597) #f))))
      ((275
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((276
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$520 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 165 #f #f #f 1 (163) #f #f 0 1 #f #f #f))))
      ((277
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$599 get-name$241 r$599) #f)))
       (r$521 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 163 #f #f #f 1 (163) #f #f 0 1 #t #f #f))))
      ((278
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$522 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  164
                  #f
                  #f
                  #f
                  1
                  (164)
                  #f
                  (car term$283)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((279
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$523 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  168
                  #f
                  #f
                  #f
                  1
                  (166)
                  #f
                  (car term$283)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((280
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$601 get-lemmas$242 r$601) #f)))
       (r$524 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 166 #f #f #f 1 (166) #f #f 0 1 #t #f #f))))
      ((281
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$525 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  167
                  #f
                  #f
                  #f
                  1
                  (167)
                  #f
                  (cdr term$283)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((282
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$526 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  173
                  #f
                  #f
                  #f
                  1
                  (173)
                  #f
                  (Cyc-fast-plus rewrite-count$232 1)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((283
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$603 put-lemmas!$243 r$603) #t)))
       (r$527 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  176
                  #f
                  #f
                  #f
                  1
                  (176)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(182
                      (k$528 x$286 y$285 original$284)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(181
                            (k$530)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(180
                                  (r$533)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(179
                                        (r$531)
                                        ((if r$531
                                           (#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(178
                                                (r$532)
                                                ((k$530 (eq? y$285 r$532)))
                                                #f))
                                            (cdr original$284))
                                           (k$530 #f)))
                                        #f))
                                    (eq? x$286 r$533)))
                                  #f))
                              (car original$284)))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(177
                            (r$529)
                            ((if r$529
                               (k$528 original$284)
                               (k$528 (cons x$286 y$285))))
                            #f))))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((284
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((285
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$529 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 177 #f #f #f 1 (177) #f #f 0 0 #t #f #f))))
      ((286
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((287
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$605 make-symbol-record$244 r$605) #f))))
      ((288
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((289
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((290
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (translate-term$251
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             8
             (346 329 324 259 249 72 11 14)
             #f
             r$636
             7
             0
             #f
             #f
             #f))))
      ((291
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((292
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((293
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((294
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((295
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((296
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((297
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((298
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((299
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f
            ?
            (r$609 symbol->symbol-record$246 r$609)
            #t))))
      ((300
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((301
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((302
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((303
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$616 get$247 r$616) #f))))
      ((304
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((305
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lst$267
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 86 #f #f #f 1 (84) #f #f 0 1 #f #f #f))))
      ((306
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((307
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$619 put$248 r$619) #f))))
      ((308
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((309
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (term$256
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ((310
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((311
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((312
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((313
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((314
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$531 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  179
                  #f
                  #f
                  #f
                  1
                  (179)
                  #f
                  (eq? x$286 r$533)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((315
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$532 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  178
                  #f
                  #f
                  #f
                  1
                  (178)
                  #f
                  (cdr original$284)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((316
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$533 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  180
                  #f
                  #f
                  #f
                  1
                  (180)
                  #f
                  (car original$284)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((317
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$622 untranslate-term$249 r$622) #f)))
       (r$534 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 185 #f #f #f 1 (185) #f '* 0 0 #t #f #f))))
      ((318
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$535 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  187
                  #f
                  #f
                  #f
                  1
                  (187)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(214
                      (k$536 x$289 true-lst$288 false-lst$287)
                      ((truep$222
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(213
                             (r$537)
                             ((if r$537
                                (#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(188 () ((k$536 #t)) #f)))
                                (falsep$223
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(212
                                      (r$538)
                                      ((if r$538
                                         (#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(189 () ((k$536 #f)) #f)))
                                         (#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(211
                                              (r$539)
                                              ((if r$539
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(209
                                                      (r$554)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(208
                                                            (r$540)
                                                            ((if r$540
                                                               (#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(206
                                                                    ()
                                                                    ((#((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(205
                                                                          (r$553)
                                                                          ((truep$222
                                                                             #((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(204
                                                                                 (r$541)
                                                                                 ((if r$541
                                                                                    (#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(191
                                                                                         ()
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(190
                                                                                               (r$542)
                                                                                               ((tautologyp$234
                                                                                                  k$536
                                                                                                  r$542
                                                                                                  true-lst$288
                                                                                                  false-lst$287))
                                                                                               #f))
                                                                                           (caddr x$289)))
                                                                                         #f)))
                                                                                    (#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(203
                                                                                         (r$552)
                                                                                         ((falsep$223
                                                                                            #((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(202
                                                                                                (r$543)
                                                                                                ((if r$543
                                                                                                   (#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(193
                                                                                                        ()
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(192
                                                                                                              (r$544)
                                                                                                              ((tautologyp$234
                                                                                                                 k$536
                                                                                                                 r$544
                                                                                                                 true-lst$288
                                                                                                                 false-lst$287))
                                                                                                              #f))
                                                                                                          (cadddr
                                                                                                            x$289)))
                                                                                                        #f)))
                                                                                                   (#((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(201
                                                                                                        ()
                                                                                                        ((#((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(200
                                                                                                              (r$549)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(199
                                                                                                                    (r$551)
                                                                                                                    ((#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(198
                                                                                                                          (r$550)
                                                                                                                          ((tautologyp$234
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(197
                                                                                                                                 (r$545)
                                                                                                                                 ((if r$545
                                                                                                                                    (#((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(196
                                                                                                                                         (r$546)
                                                                                                                                         ((#((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(195
                                                                                                                                               (r$548)
                                                                                                                                               ((#((record-marker)
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #f
                                                                                                                                                     (id args
                                                                                                                                                         body
                                                                                                                                                         has-cont))
                                                                                                                                                   #(194
                                                                                                                                                     (r$547)
                                                                                                                                                     ((tautologyp$234
                                                                                                                                                        k$536
                                                                                                                                                        r$546
                                                                                                                                                        true-lst$288
                                                                                                                                                        r$547))
                                                                                                                                                     #f))
                                                                                                                                                 (cons r$548
                                                                                                                                                       false-lst$287)))
                                                                                                                                               #f))
                                                                                                                                           (cadr x$289)))
                                                                                                                                         #f))
                                                                                                                                     (cadddr
                                                                                                                                       x$289))
                                                                                                                                    (k$536 #f)))
                                                                                                                                 #f))
                                                                                                                             r$549
                                                                                                                             r$550
                                                                                                                             false-lst$287))
                                                                                                                          #f))
                                                                                                                      (cons r$551
                                                                                                                            true-lst$288)))
                                                                                                                    #f))
                                                                                                                (cadr x$289)))
                                                                                                              #f))
                                                                                                          (caddr x$289)))
                                                                                                        #f)))))
                                                                                                #f))
                                                                                            r$552
                                                                                            false-lst$287))
                                                                                         #f))
                                                                                     (cadr x$289))))
                                                                                 #f))
                                                                             r$553
                                                                             true-lst$288))
                                                                          #f))
                                                                      (cadr x$289)))
                                                                    #f)))
                                                               (#((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(207
                                                                    ()
                                                                    ((k$536 #f))
                                                                    #f)))))
                                                            #f))
                                                        (eq? r$554
                                                             if-constructor$233)))
                                                      #f))
                                                  (car x$289))
                                                 (#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(210
                                                      ()
                                                      ((k$536 #f))
                                                      #f)))))
                                              #f))
                                          (pair? x$289))))
                                      #f))
                                  x$289
                                  false-lst$287)))
                             #f))
                         x$289
                         true-lst$288))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((319
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((320
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$537 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 213 #f #f #f 1 (213) #f #f 0 0 #t #f #f))))
      ((321
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$538 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 212 #f #f #f 1 (212) #f #f 0 0 #t #f #f))))
      ((322
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$539 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  211
                  #f
                  #f
                  #f
                  1
                  (211)
                  #f
                  (pair? x$289)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((323
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((324
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((325
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((326
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((327
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$629 translate-args$250 r$629) #f))))
      ((328
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((329
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((330
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((331
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((332
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((333
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((334
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (lst1$262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 44 #f #f #f 3 (44 42 37) #f #f 0 3 #t #f #f))))
      ((335
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (lst$270
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 91 #f #f #f 1 (89) #f #f 0 1 #f #f #f))))
      ((336
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((337
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$636 translate-term$251 r$636) #f))))
      ((338
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((339
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((340
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((341
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (tmp$117$272
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 89 #f #f #f 2 (89 89) #f r$469 0 1 #t #f #f))))
      ((342
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((343
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((344
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((345
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((346
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((347
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((348
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((349
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((350
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$540 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  208
                  #f
                  #f
                  #f
                  1
                  (208)
                  #f
                  (eq? r$554 if-constructor$233)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((351
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$655) #f)))
       (r$541 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 204 #f #f #f 1 (204) #f #f 0 0 #t #f #f))))
      ((352
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$542 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  190
                  #f
                  #f
                  #f
                  1
                  (190)
                  #f
                  (caddr x$289)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((353
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$543 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 202 #f #f #f 1 (202) #f #f 0 0 #t #f #f))))
      ((354
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$544 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  192
                  #f
                  #f
                  #f
                  1
                  (192)
                  #f
                  (cadddr x$289)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((355
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$545 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 197 #f #f #f 1 (197) #f #f 0 0 #t #f #f))))
      ((356
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$546 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  196
                  #f
                  #f
                  #f
                  1
                  (194)
                  #f
                  (cadddr x$289)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((357
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$547 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  194
                  #f
                  #f
                  #f
                  1
                  (194)
                  #f
                  (cons r$548 false-lst$287)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((358
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$643 add-lemma$252 r$643) #f)))
       (r$548 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  195
                  #f
                  #f
                  #f
                  1
                  (195)
                  #f
                  (cadr x$289)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((359
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (output$354
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 478 #f #f #f 1 (465) #f r$757 0 1 #t #f #f)))
       (r$549 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  200
                  #f
                  #f
                  #f
                  1
                  (198)
                  #f
                  (caddr x$289)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((360
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (get-name$205
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((361
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((362
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((363
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((364
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((365
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((366
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((367
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$661 add-lemma-lst$253 r$661) #f))))
      ((368
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (symbol-record-equal?$190
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((369
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((370
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((371
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$667 setup$254 r$667) #f))))
      ((372
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lst$280
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             150
             #f
             #f
             #f
             4
             (150 149 145 143)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ((373
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lst1$274
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             3
             (105 103 98)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((374
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lst$282
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             160
             #f
             #f
             #f
             4
             (160 158 156 154)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ((375
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((376
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((377
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((378
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (make-symbol-record$203
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((379
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((380
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((381
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((382
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((383
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((384
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((385
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((386
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((387
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$550 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  198
                  #f
                  #f
                  #f
                  1
                  (198)
                  #f
                  (cons r$551 true-lst$288)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((388
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$551 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  199
                  #f
                  #f
                  #f
                  1
                  (199)
                  #f
                  (cadr x$289)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((389
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$552 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  203
                  #f
                  #f
                  #f
                  1
                  (203)
                  #f
                  (cadr x$289)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((390
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$553 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  205
                  #f
                  #f
                  #f
                  1
                  (205)
                  #f
                  (cadr x$289)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((391
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$554 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  209
                  #f
                  #f
                  #f
                  1
                  (209)
                  #f
                  (car x$289)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((392
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$555 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  216
                  #f
                  #f
                  #f
                  1
                  (216)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(220
                      (k$556 x$290)
                      ((rewrite$230
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(219
                             (r$557)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(218
                                   (r$558)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(217
                                         (r$559)
                                         ((tautologyp$234
                                            k$556
                                            r$557
                                            r$558
                                            r$559))
                                         #f))
                                     '()))
                                   #f))
                               '()))
                             #f))
                         x$290))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((393
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((394
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$557 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 219 #f #f #f 1 (217) #f #f 0 1 #f #f #f))))
      ((395
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$558 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 218 #f #f #f 1 (217) #f '() 0 1 #f #f #f))))
      ((396
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$559 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 217 #f #f #f 1 (217) #f '() 0 1 #t #f #f))))
      ((397
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((398
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((399
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((400
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (symbol->symbol-record$246
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (333 307 303 291 17)
             #f
             r$609
             4
             0
             #f
             #f
             #f))))
      ((401
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((402
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((403
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((404
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((405
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((406
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((407
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((408
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((409
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((410
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f)))
       (lst$291
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             230
             #f
             #f
             #f
             3
             (230 228 226)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((411
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((412
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((413
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f))))
      ((414
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((415
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f)))
       (term$281
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             150
             #f
             #f
             #f
             3
             (147 144 139)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ((416
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((417
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #f)))
       (term$283
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             174
             #f
             #f
             #f
             6
             (172 170 169 168 166 165)
             #f
             #f
             0
             6
             #f
             #f
             #f))))
      ((418
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((419
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((420
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((421
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((422
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((423
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((424
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$560 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  222
                  #f
                  #f
                  #f
                  1
                  (222)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(230
                      (k$561 alist$292 lst$291)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(229
                            (r$562)
                            ((if r$562
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(223 () ((k$561 '())) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(228
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(227
                                          (r$566)
                                          ((apply-subst$237
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(226
                                                 (r$563)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(225
                                                       (r$565)
                                                       ((apply-subst-lst$236
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(224
                                                              (r$564)
                                                              ((k$561 (cons r$563
                                                                            r$564)))
                                                              #f))
                                                          alist$292
                                                          r$565))
                                                       #f))
                                                   (cdr lst$291)))
                                                 #f))
                                             alist$292
                                             r$566))
                                          #f))
                                      (car lst$291)))
                                    #f)))))
                            #f))
                        (null? lst$291)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((425
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((426
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$562 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  229
                  #f
                  #f
                  #f
                  1
                  (229)
                  #f
                  (null? lst$291)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((427
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$688 loop$338 r$688) #f)))
       (r$563 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 226 #f #f #f 1 (224) #f #f 0 1 #t #f #f))))
      ((428
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$564 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 224 #f #f #f 1 (224) #f #f 0 1 #t #f #f))))
      ((429
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$565 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  225
                  #f
                  #f
                  #f
                  1
                  (225)
                  #f
                  (cdr lst$291)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((430
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$566 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  227
                  #f
                  #f
                  #f
                  1
                  (227)
                  #f
                  (car lst$291)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((431
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$567 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  232
                  #f
                  #f
                  #f
                  1
                  (232)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(241
                      (k$568 alist$294 term$293)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(240
                            (r$569)
                            ((if r$569
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(236
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(235
                                          (r$570)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(234
                                                (r$572)
                                                ((apply-subst-lst$236
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(233
                                                       (r$571)
                                                       ((k$568 (cons r$570
                                                                     r$571)))
                                                       #f))
                                                   alist$294
                                                   r$572))
                                                #f))
                                            (cdr term$293)))
                                          #f))
                                      (car term$293)))
                                    #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(239
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(238
                                          (r$573)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(237
                                                (temp-temp$295)
                                                ((if temp-temp$295
                                                   (k$568 (cdr temp-temp$295))
                                                   (k$568 term$293)))
                                                #f))
                                            r$573))
                                          #f))
                                      (assq term$293 alist$294)))
                                    #f)))))
                            #f))
                        (pair? term$293)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((432
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((test-boyer
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             462
             #f
             #f
             3
             (2 -1 468)
             #t
             r$404
             1
             0
             #f
             #f
             #f)))
       (433
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$569 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  240
                  #f
                  #f
                  #f
                  1
                  (240)
                  #f
                  (pair? term$293)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((434
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((435
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((436
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((437
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((438
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((439
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((440
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((441
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((442
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((443
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((444
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((445
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((446
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$724 rounded$331 r$724) #f)))
       (s1$356
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 474 #f #f #f 1 (472) #f r$759 0 1 #t #f #f))))
      ((447
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((448
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((449
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((450
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((451
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((452
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$732) #f))))
      ((453
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((454
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$738) #f)))
       (term$293
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             241
             #f
             #f
             #f
             5
             (241 239 237 236 235)
             #f
             #f
             0
             5
             #t
             #f
             #f))))
      ((455
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (alist$257
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ((456
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((457
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((458
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$298
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f)))
       (459
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$740) #f))))
      ((460
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$731) #f))))
      ((461
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$570 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  235
                  #f
                  #f
                  #f
                  1
                  (233)
                  #f
                  (car term$293)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((462
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$571 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 233 #f #f #f 1 (233) #f #f 0 1 #t #f #f))))
      ((463
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$572 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  234
                  #f
                  #f
                  #f
                  1
                  (234)
                  #f
                  (cdr term$293)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((464
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$573 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  238
                  #f
                  #f
                  #f
                  1
                  (238)
                  #f
                  (assq term$293 alist$294)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((465
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (secs2$345
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 406 #f #f #f 1 (402) #f r$699 0 1 #f #f #f)))
       (r$574 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  243
                  #f
                  #f
                  #f
                  1
                  (243)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(253
                      (k$575 alist$296)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(252
                            (r$576)
                            ((if r$576
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(244 () ((k$575 '())) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(251
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(250
                                          (r$580)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(249
                                                (r$582)
                                                ((translate-term$251
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(248
                                                       (r$581)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(247
                                                             (r$577)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(246
                                                                   (r$579)
                                                                   ((translate-alist$238
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(245
                                                                          (r$578)
                                                                          ((k$575 (cons r$577
                                                                                        r$578)))
                                                                          #f))
                                                                      r$579))
                                                                   #f))
                                                               (cdr alist$296)))
                                                             #f))
                                                         (cons r$580 r$581)))
                                                       #f))
                                                   r$582))
                                                #f))
                                            (cdar alist$296)))
                                          #f))
                                      (caar alist$296)))
                                    #f)))))
                            #f))
                        (null? alist$296)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((466
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$762) #f))))
      ((467
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$576 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  252
                  #f
                  #f
                  #f
                  1
                  (252)
                  #f
                  (null? alist$296)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((468
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$577 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  247
                  #f
                  #f
                  #f
                  1
                  (245)
                  #f
                  (cons r$580 r$581)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((469
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$578 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 245 #f #f #f 1 (245) #f #f 0 1 #t #f #f))))
      ((470
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (r$761) #f)))
       (result$336
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 429 #f #t #f 1 (383) #f #f 0 1 #f #f #f)))
       (r$579 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  246
                  #f
                  #f
                  #f
                  1
                  (246)
                  #f
                  (cdr alist$296)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((471
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((472
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((473
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (result$339
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             427
             #f
             #f
             #f
             4
             (426 423 419 388)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ((474
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((475
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((476
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((477
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((478
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((479
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((480
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((481
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((482
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((483
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#t ? () #t))))
      ((484
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((put$248
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (340 305)
             #f
             r$619
             1
             0
             #f
             #f
             #f)))
       (r$580 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  250
                  #f
                  #f
                  #f
                  1
                  (248)
                  #f
                  (caar alist$296)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$581 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 248 #f #f #f 1 (248) #f #f 0 1 #t #f #f))))
      ((r$582 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  249
                  #f
                  #f
                  #f
                  1
                  (249)
                  #f
                  (cdar alist$296)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$583 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  255
                  #f
                  #f
                  #f
                  1
                  (255)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(271
                      (k$584 alist$299 term$298 n$297)
                      ((translate-alist$238
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(270
                             (r$586)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(269
                                   (term$301 n$300)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(268
                                         (lp$37$302)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(261
                                               (r$590)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(260
                                                     (r$589)
                                                     ((lp$37$302
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(259
                                                            (r$588)
                                                            ((translate-term$251
                                                               #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(258
                                                                   (r$587)
                                                                   ((apply-subst$237
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(257
                                                                          (r$585)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(256
                                                                                (term$305)
                                                                                ((tautp$235
                                                                                   k$584
                                                                                   term$305))
                                                                                #f))
                                                                            r$585))
                                                                          #f))
                                                                      r$586
                                                                      r$587))
                                                                   #f))
                                                               r$588))
                                                            #f))
                                                        term$301
                                                        n$300))
                                                     #f))
                                                 (set! lp$37$302 r$590)))
                                               #f))
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(267
                                               (k$591 term$304 n$303)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(266
                                                     (r$592)
                                                     ((if r$592
                                                        (k$591 term$304)
                                                        (#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(265
                                                             (r$595)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(264
                                                                   (r$596)
                                                                   ((list #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(263
                                                                              (r$593)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(262
                                                                                    (r$594)
                                                                                    ((lp$37$302
                                                                                       k$591
                                                                                       r$593
                                                                                       r$594))
                                                                                    #f))
                                                                                (Cyc-fast-sub
                                                                                  n$303
                                                                                  1)))
                                                                              #f))
                                                                          r$595
                                                                          term$304
                                                                          r$596))
                                                                   #f))
                                                               '(f)))
                                                             #f))
                                                         'or)))
                                                     #f))
                                                 (zero?__inline__ n$303)))
                                               #t))))
                                         #f))
                                     #f))
                                   #f))
                               term$298
                               n$297))
                             #f))
                         alist$299))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$585 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 257 #f #f #f 1 (257) #f #f 0 1 #t #f #f))))
      ((r$586 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 270 #f #f #f 1 (258) #f #f 0 1 #f #f #f)))
       (get-name$241
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (313 276)
             #f
             r$599
             1
             0
             #f
             #f
             #f))))
      ((r$587 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f))))
      ((r$588 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 259 #f #f #f 1 (259) #f #f 0 1 #t #f #f))))
      ((r$589 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  260
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$37$302 r$590)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((make-symbol-record$244
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (297 285)
             #f
             r$605
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$590 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  261
                  #f
                  #f
                  #f
                  1
                  (261)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(267
                      (k$591 term$304 n$303)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(266
                            (r$592)
                            ((if r$592
                               (k$591 term$304)
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(265
                                    (r$595)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(264
                                          (r$596)
                                          ((list #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(263
                                                     (r$593)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(262
                                                           (r$594)
                                                           ((lp$37$302
                                                              k$591
                                                              r$593
                                                              r$594))
                                                           #f))
                                                       (Cyc-fast-sub n$303 1)))
                                                     #f))
                                                 r$595
                                                 term$304
                                                 r$596))
                                          #f))
                                      '(f)))
                                    #f))
                                'or)))
                            #f))
                        (zero?__inline__ n$303)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$592 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  266
                  #f
                  #f
                  #f
                  1
                  (266)
                  #f
                  (zero?__inline__ n$303)
                  0
                  0
                  #t
                  #f
                  #f)))
       (one-way-unify$202
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$593 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 263 #f #f #f 1 (262) #f #f 0 1 #f #f #f))))
      ((r$594 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  262
                  #f
                  #f
                  #f
                  1
                  (262)
                  #f
                  (Cyc-fast-sub n$303 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$595 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 265 #f #f #f 1 (264) #f 'or 0 1 #f #f #f))))
      ((r$596 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 264 #f #f #f 1 (264) #f '(f) 0 1 #t #f #f))))
      ((r$597 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  273
                  #f
                  #f
                  #f
                  1
                  (273)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(274
                      (k$598 r1$307 r2$306)
                      ((k$598 (eq? r1$307 r2$306)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$599 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  276
                  #f
                  #f
                  #f
                  1
                  (276)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(277
                      (k$600 symbol-record$308)
                      ((k$600 (vector-ref symbol-record$308 0)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((trans-of-implies1$182
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ((truep$222
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (205 214 83)
             #f
             r$464
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((rewrite$230
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (220 162 157 140)
             #f
             r$516
             3
             0
             #f
             #f
             #f))))
      ((k$500 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  150
                  #f
                  #f
                  #f
                  3
                  (144 140 139)
                  #f
                  #f
                  1
                  2
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((lst2$261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             44
             #f
             #f
             #f
             4
             (43 41 36 33)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((n$300 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 269 #f #f #f 1 (260) #f n$297 0 1 #f #f #f)))
       (name$329
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             449
             #f
             #f
             #f
             3
             (441 400 394)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ()
      ((Cyc-fast-div
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (444 412) #f #f 2 0 #t #f #f)))
       (alist$292
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 230 #f #f #f 2 (227 225) #f #f 0 2 #f #f #f))))
      ((n$303 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 267 #f #f #f 2 (267 263) #f #f 0 2 #t #f #f)))
       (term .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 #f
                 #f
                 #f
                 3
                 (375 -1 468)
                 #t
                 r$670
                 0
                 1
                 #f
                 #f
                 #f))))
      ((k$510 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 160 #f #f #f 2 (154 153) #f #f 1 1 #f #f #t)))
       (alist$294
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 241 #f #f #f 2 (239 234) #f #f 0 2 #f #f #f))))
      ()
      ((test$239
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (255 5)
             #f
             r$583
             1
             0
             #f
             #f
             #f)))
       (alist$296
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             253
             #f
             #f
             #f
             4
             (253 251 250 247)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ()
      ()
      ((alist$299
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 271 #f #f #f 1 (271) #f #f 0 1 #t #f #f))))
      ()
      ((k$517 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 174 #f #f #f 2 (170 163) #f #f 1 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((lst2$273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             4
             (104 102 97 94)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ()
      ((one-way-unify$226
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (147 131)
             #f
             r$494
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((secs$344
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             409
             #f
             #f
             #f
             2
             (404 392)
             #f
             r$698
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((eq? .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                6
                (354 274 209 180 178 113)
                #f
                #f
                6
                0
                #t
                #f
                #f))))
      ((current-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (421 390 439)
             #f
             #f
             3
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((rewrites$358
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 466 #f #f #f 2 (466 465) #f #f 0 2 #t #f #f))))
      ((term-args-equal?$187
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$528 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 177) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((v$350 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f)))
       (newline
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (422 391 399 440)
             #f
             #f
             4
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((main .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 484
                 #f
                 #f
                 2
                 (1 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(484
                      (k$754)
                      ((read #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(483
                                 (r$755)
                                 ((#((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(482
                                       (count$352)
                                       ((read #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(481
                                                  (r$756)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(480
                                                        (input$353)
                                                        ((read #((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(479
                                                                   (r$757)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(478
                                                                         (output$354)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(477
                                                                               (r$758)
                                                                               ((#((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(476
                                                                                     (s2$355)
                                                                                     ((#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(475
                                                                                           (r$759)
                                                                                           ((#((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(474
                                                                                                 (s1$356)
                                                                                                 ((#((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(473
                                                                                                       (name$357)
                                                                                                       ((#((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(472
                                                                                                             ()
                                                                                                             ((#((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(471
                                                                                                                   (r$760)
                                                                                                                   ((#((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(467
                                                                                                                         (r$761)
                                                                                                                         ((#((record-marker)
                                                                                                                             #((record-marker)
                                                                                                                               #f
                                                                                                                               (id args
                                                                                                                                   body
                                                                                                                                   has-cont))
                                                                                                                             #(464
                                                                                                                               (r$762)
                                                                                                                               ((run-r7rs-benchmark
                                                                                                                                  k$754
                                                                                                                                  r$760
                                                                                                                                  count$352
                                                                                                                                  r$761
                                                                                                                                  r$762))
                                                                                                                               #f))
                                                                                                                           #((record-marker)
                                                                                                                             #((record-marker)
                                                                                                                               #f
                                                                                                                               (id args
                                                                                                                                   body
                                                                                                                                   has-cont))
                                                                                                                             #(466
                                                                                                                               (k$763 rewrites$358)
                                                                                                                               ((#((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(465
                                                                                                                                     (r$764)
                                                                                                                                     ((if r$764
                                                                                                                                        (k$763 (Cyc-fast-eq
                                                                                                                                                 rewrites$358
                                                                                                                                                 output$354))
                                                                                                                                        (k$763 #f)))
                                                                                                                                     #f))
                                                                                                                                 (number?
                                                                                                                                   rewrites$358)))
                                                                                                                               #t))))
                                                                                                                         #f))
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(470
                                                                                                                         (k$765)
                                                                                                                         ((setup-boyer
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(469
                                                                                                                                (r$766)
                                                                                                                                ((hide #((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(468
                                                                                                                                           (r$767)
                                                                                                                                           ((test-boyer
                                                                                                                                              k$765
                                                                                                                                              alist
                                                                                                                                              term
                                                                                                                                              r$767))
                                                                                                                                           #f))
                                                                                                                                       count$352
                                                                                                                                       input$353))
                                                                                                                                #f))))
                                                                                                                         #t))))
                                                                                                                   #f))
                                                                                                               (string-append
                                                                                                                 name$357
                                                                                                                 ":"
                                                                                                                 s1$356
                                                                                                                 ":"
                                                                                                                 s2$355)))
                                                                                                             #f))))
                                                                                                       #f))
                                                                                                   "sboyer"))
                                                                                                 #f))
                                                                                             r$759))
                                                                                           #f))
                                                                                       (number->string
                                                                                         input$353)))
                                                                                     #f))
                                                                                 r$758))
                                                                               #f))
                                                                           (number->string
                                                                             count$352)))
                                                                         #f))
                                                                     r$757))
                                                                   #f))))
                                                        #f))
                                                    r$756))
                                                  #f))))
                                       #f))
                                   r$755))
                                 #f))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$530 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  181
                  #f
                  #f
                  #f
                  2
                  (179 178)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(177
                      (r$529)
                      ((if r$529
                         (k$528 original$284)
                         (k$528 (cons x$286 y$285))))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ((k$536 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  214
                  #f
                  #f
                  #f
                  8
                  (210 207 197 194 192 190 189 188)
                  #f
                  #f
                  5
                  3
                  #f
                  #f
                  #t)))
       (one-way-unify1$201
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((s2$355
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 476 #f #f #f 1 (472) #f r$758 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((scons$193
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((name$357
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             473
             #f
             #f
             #f
             1
             (472)
             #f
             "sboyer"
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((j/s$333
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 435 #f #f #f 1 (412) #f r$684 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((original$284
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             182
             #f
             #f
             #f
             3
             (177 181 179)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((term-member?$185
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((this-scheme-implementation-name
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             382
             #f
             #f
             2
             (-1 397)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(382
                  (k$674)
                  ((Cyc-version
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(381
                         (r$675)
                         ((k$674 (string-append "cyclone-" r$675)))
                         #f))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((rewrite-count$232
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (184 174 173 6 3)
             #t
             0
             0
             2
             #f
             #f
             #f))))
      ((rewrite-with-lemmas$194
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((setup$254
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (369 9)
             #f
             r$667
             1
             0
             #f
             #f
             #f))))
      ()
      ((k$556 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 220 #f #f #f 1 (217) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ((one-way-unify1$225
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (132 107 101)
             #f
             r$479
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((true-term$220
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (86 79 10)
             #t
             r$462
             0
             1
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((translate-alist$181
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((falsep$208
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$561 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 230 #f #f #f 2 (224 223) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$568 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  241
                  #f
                  #f
                  #f
                  3
                  (237 237 233)
                  #f
                  #f
                  3
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ((map .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(? ? #f #f #f 1 (311) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((trans-of-implies$183
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((translate-args$250
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (331 322 319)
             #f
             r$629
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$575 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 253 #f #f #f 2 (245 244) #f #f 2 0 #t #f #t))))
      ()
      ((%halt .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((falsep$223
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (203 213 88)
             #f
             r$467
             2
             0
             #f
             #f
             #f))))
      ()
      ((put-lemmas!$198
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((t0$334
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 433 #f #f #f 1 (409) #f r$685 0 1 #t #f #f))))
      ()
      ((temp-temp$277
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             125
             #f
             #f
             #f
             2
             (118 125)
             #f
             r$488
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$584 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 271 #f #f #f 1 (256) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$400 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  45
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-equal?$217 r$436)
                  0
                  0
                  #t
                  #f
                  #f)))
       (caddr .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  3
                  (201 191 142)
                  #f
                  #f
                  3
                  0
                  #t
                  #f
                  #f))))
      ((r$401 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  31
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-args-equal?$216 r$427)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$402 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  21
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-member?$215 r$421)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$403 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  7
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! setup-boyer r$408)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$404 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  2
                  #f
                  #f
                  #f
                  1
                  (2)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(6
                      (k$405 alist$257 term$256 n$255)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(5
                            (r$406)
                            ((test$239
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(4
                                   (r$407)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(3
                                         (answer$258)
                                         ((if answer$258
                                            (k$405 rewrite-count$232)
                                            (k$405 #f)))
                                         #f))
                                     r$407))
                                   #f))
                               alist$257
                               term$256
                               n$255))
                            #f))
                        (set! rewrite-count$232 0)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((add-lemma$213
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$406 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  5
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$407 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 4 #f #f #f 1 (4) #f #f 0 1 #t #f #f))))
      ((r$408 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  8
                  #f
                  #f
                  #f
                  1
                  (8)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(20
                      (k$409)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(19
                            (r$420)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(18
                                  (r$410)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(17
                                        (r$419)
                                        ((symbol->symbol-record$246
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(16
                                               (r$418)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(15
                                                     (r$411)
                                                     ((#((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(14
                                                           (r$417)
                                                           ((translate-term$251
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(13
                                                                  (r$416)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(12
                                                                        (r$412)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(11
                                                                              (r$415)
                                                                              ((translate-term$251
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(10
                                                                                     (r$414)
                                                                                     ((#((record-marker)
                                                                                         #((record-marker)
                                                                                           #f
                                                                                           (id args
                                                                                               body
                                                                                               has-cont))
                                                                                         #(9
                                                                                           (r$413)
                                                                                           ((setup$254
                                                                                              k$409))
                                                                                           #f))
                                                                                       (set! true-term$220
                                                                                         r$414)))
                                                                                     #f))
                                                                                 r$415))
                                                                              #f))
                                                                          '(t)))
                                                                        #f))
                                                                    (set! false-term$221
                                                                      r$416)))
                                                                  #f))
                                                              r$417))
                                                           #f))
                                                       '(f)))
                                                     #f))
                                                 (set! if-constructor$233
                                                   r$418)))
                                               #f))
                                           r$419))
                                        #f))
                                    'if))
                                  #f))
                              (set! *symbol-records-alist*$245 r$420)))
                            #f))
                        '()))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((r$700 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 404 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$701 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 403 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$702 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$703 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 401 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (one-way-unify1-lst$200
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$704 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 400 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((k$591 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 267 #f #f #f 2 (262 266) #f #f 1 1 #f #f #t)))
       (r$705 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 399 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$706 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$707 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 397 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$708 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 395 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$709 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((k$598 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 274 #f #f #f 1 (274) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((round__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (445) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ((r$410 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  18
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 r$420)
                  0
                  0
                  #t
                  #f
                  #f)))
       (cons .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 15
                 (341
                  330
                  321
                  310
                  295
                  294
                  248
                  245
                  233
                  224
                  199
                  195
                  177
                  123
                  122)
                 #f
                 #f
                 15
                 0
                 #t
                 #f
                 #f))))
      ((r$411 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  15
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! if-constructor$233 r$418)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$412 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  12
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! false-term$221 r$416)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$413 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  9
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! true-term$220 r$414)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$414 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 10 #f #f #f 1 (10) #f #f 0 0 #t #f #f))))
      ((r$415 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 11 #f #f #f 1 (11) #f '(t) 0 1 #t #f #f))))
      ((r$416 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 13 #f #f #f 1 (13) #f #f 0 0 #t #f #f))))
      ((r$417 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 14 #f #f #f 1 (14) #f '(f) 0 1 #t #f #f))))
      ((r$418 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 16 #f #f #f 1 (16) #f #f 0 0 #t #f #f))))
      ((r$419 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 17 #f #f #f 1 (17) #f 'if 0 1 #t #f #f))))
      ((temp-temp$295
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             237
             #f
             #f
             #f
             2
             (237 237)
             #f
             r$573
             0
             1
             #t
             #f
             #f))))
      ((r$710 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 393 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$711 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 392 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$712 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$713 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 390 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$714 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 389 #f #f #f 1 (389) #f #f 0 1 #t #f #f))))
      ((r$715 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 396 #f #f #f 1 (396) #f #f 0 1 #t #f #f))))
      ((r$716 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  408
                  #f
                  #f
                  #f
                  1
                  (408)
                  #f
                  (Cyc-fast-sub t1$342 t0$334)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$717 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  411
                  #f
                  #f
                  #f
                  1
                  (411)
                  #f
                  (Cyc-fast-div jifs$343 j/s$333)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$718 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 423 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$719 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 422 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((tautp$235
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (256 216)
             #f
             r$555
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((r$420 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 19 #f #f #f 1 (19) #f '() 0 0 #t #f #f))))
      ((r$421 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  22
                  #f
                  #f
                  #f
                  1
                  (22)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(30
                      (k$422 x$260 lst$259)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(29
                            (r$423)
                            ((if r$423
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(23 () ((k$422 #f)) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(28
                                    (r$426)
                                    ((term-equal?$217
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(27
                                           (r$424)
                                           ((if r$424
                                              (#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(24 () ((k$422 #t)) #f)))
                                              (#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(26
                                                   ()
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(25
                                                         (r$425)
                                                         ((term-member?$215
                                                            k$422
                                                            x$260
                                                            r$425))
                                                         #f))
                                                     (cdr lst$259)))
                                                   #f)))))
                                           #f))
                                       x$260
                                       r$426))
                                    #f))
                                (car lst$259))))
                            #f))
                        (null? lst$259)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$423 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  29
                  #f
                  #f
                  #f
                  1
                  (29)
                  #f
                  (null? lst$259)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$424 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 27 #f #f #f 1 (27) #f #f 0 0 #t #f #f))))
      ((r$425 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  25
                  #f
                  #f
                  #f
                  1
                  (25)
                  #f
                  (cdr lst$259)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$426 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  28
                  #f
                  #f
                  #f
                  1
                  (28)
                  #f
                  (car lst$259)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$427 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  32
                  #f
                  #f
                  #f
                  1
                  (32)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(44
                      (k$428 lst1$262 lst2$261)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(43
                            (r$429)
                            ((if r$429
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(33 () ((k$428 (null? lst2$261))) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(42
                                    (r$430)
                                    ((if r$430
                                       (#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(34 () ((k$428 #f)) #f)))
                                       (#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(41
                                            (r$434)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(40
                                                  (r$435)
                                                  ((term-equal?$217
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(39
                                                         (r$431)
                                                         ((if r$431
                                                            (#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(37
                                                                 ()
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(36
                                                                       (r$432)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(35
                                                                             (r$433)
                                                                             ((term-args-equal?$216
                                                                                k$428
                                                                                r$432
                                                                                r$433))
                                                                             #f))
                                                                         (cdr lst2$261)))
                                                                       #f))
                                                                   (cdr lst1$262)))
                                                                 #f)))
                                                            (#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(38
                                                                 ()
                                                                 ((k$428 #f))
                                                                 #f)))))
                                                         #f))
                                                     r$434
                                                     r$435))
                                                  #f))
                                              (car lst2$261)))
                                            #f))
                                        (car lst1$262))))
                                    #f))
                                (null? lst2$261))))
                            #f))
                        (null? lst1$262)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$429 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  43
                  #f
                  #f
                  #f
                  1
                  (43)
                  #f
                  (null? lst1$262)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$720 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 421 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$721 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 419 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$722 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 420 #f #f #f 1 (420) #f #f 0 1 #t #f #f))))
      ((r$723 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f))))
      ((r$724 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  443
                  #f
                  #f
                  #f
                  1
                  (443)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(446
                      (k$725 x$346)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(445
                            (r$727)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(444
                                  (r$726)
                                  ((k$725 (Cyc-fast-div r$726 1000)))
                                  #f))
                              (round__inline__ r$727)))
                            #f))
                        (Cyc-fast-mul 1000 x$346)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$726 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  444
                  #f
                  #f
                  #f
                  1
                  (444)
                  #f
                  (round__inline__ r$727)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$727 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  445
                  #f
                  #f
                  #f
                  1
                  (445)
                  #f
                  (Cyc-fast-mul 1000 x$346)
                  0
                  1
                  #t
                  #f
                  #f)))
       (one-way-unify1-lst$224
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (108 96 93)
             #f
             r$470
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((inexact__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (411) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((jiffies-per-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (437) #f #f 1 0 #f #f #f)))
       (r$430 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  42
                  #f
                  #f
                  #f
                  1
                  (42)
                  #f
                  (null? lst2$261)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$431 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 39 #f #f #f 1 (39) #f #f 0 0 #t #f #f))))
      ((r$432 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  36
                  #f
                  #f
                  #f
                  1
                  (35)
                  #f
                  (cdr lst1$262)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$433 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  35
                  #f
                  #f
                  #f
                  1
                  (35)
                  #f
                  (cdr lst2$261)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$434 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  41
                  #f
                  #f
                  #f
                  1
                  (40)
                  #f
                  (car lst1$262)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$435 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  40
                  #f
                  #f
                  #f
                  1
                  (40)
                  #f
                  (car lst2$261)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$436 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  46
                  #f
                  #f
                  #f
                  1
                  (46)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(56
                      (k$437 x$264 y$263)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(55
                            (r$438)
                            ((if r$438
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(53
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(52
                                          (r$439)
                                          ((if r$439
                                             (#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(51
                                                  (r$443)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(50
                                                        (r$444)
                                                        ((symbol-record-equal?$240
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(49
                                                               (r$440)
                                                               ((if r$440
                                                                  (#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(48
                                                                       (r$441)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(47
                                                                             (r$442)
                                                                             ((term-args-equal?$216
                                                                                k$437
                                                                                r$441
                                                                                r$442))
                                                                             #f))
                                                                         (cdr y$263)))
                                                                       #f))
                                                                   (cdr x$264))
                                                                  (k$437 #f)))
                                                               #f))
                                                           r$443
                                                           r$444))
                                                        #f))
                                                    (car y$263)))
                                                  #f))
                                              (car x$264))
                                             (k$437 #f)))
                                          #f))
                                      (pair? y$263)))
                                    #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(54 () ((k$437 (equal? x$264 y$263))) #f)))))
                            #f))
                        (pair? x$264)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((x$314 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  297
                  #f
                  #f
                  #f
                  2
                  (297 297)
                  #f
                  r$611
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$438 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  55
                  #f
                  #f
                  #f
                  1
                  (55)
                  #f
                  (pair? x$264)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$439 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  52
                  #f
                  #f
                  #f
                  1
                  (52)
                  #f
                  (pair? y$263)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((r$731 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  453
                  #f
                  #f
                  #f
                  1
                  (450)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(460
                      (k$735)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(458
                            (r$740)
                            ((vector
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(457
                                   (r$736)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(456
                                         (k$738)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(455
                                               (r$739)
                                               ((if r$739 (k$738 0) (k$738 1)))
                                               #f))
                                           (Cyc-fast-lt r$348 100)))
                                         #t))
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(454
                                         (r$737)
                                         ((values k$735 r$736 r$737))
                                         #f))))
                                   #f))
                               values
                               r$740))
                            #f))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(459 (k$741 x$351) ((k$741 x$351)) #t))))
                      #t))
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$732 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  450
                  #f
                  #f
                  #f
                  1
                  (450)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(452
                      (k$733 v$350 i$349)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(451 (r$734) ((r$734 k$733 x$347)) #f))
                        (vector-ref v$350 i$349)))
                      #t))
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((r$734 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  451
                  #f
                  #f
                  #f
                  1
                  (451)
                  #f
                  (vector-ref v$350 i$349)
                  1
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$736 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 457 #f #f #f 1 (454) #f #f 0 1 #f #f #f))))
      ((r$737 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 454 #f #f #f 1 (454) #f #f 0 1 #t #f #f))))
      ()
      ((r$739 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  455
                  #f
                  #f
                  #f
                  1
                  (455)
                  #f
                  (Cyc-fast-lt r$348 100)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$440 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 49 #f #f #f 1 (49) #f #f 0 0 #t #f #f))))
      ((r$441 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  48
                  #f
                  #f
                  #f
                  1
                  (47)
                  #f
                  (cdr x$264)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$442 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  47
                  #f
                  #f
                  #f
                  1
                  (47)
                  #f
                  (cdr y$263)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$443 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  51
                  #f
                  #f
                  #f
                  1
                  (50)
                  #f
                  (car x$264)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((add-lemma$252
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (364 339)
             #f
             r$643
             1
             0
             #f
             #f
             #f)))
       (r$444 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  50
                  #f
                  #f
                  #f
                  1
                  (50)
                  #f
                  (car y$263)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$445 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  58
                  #f
                  #f
                  #f
                  1
                  (58)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(69
                      (k$446 n$265)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(68
                            (r$447)
                            ((if r$447
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(60
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(59
                                          (r$448)
                                          ((list k$446 r$448 0 1))
                                          #f))
                                      'implies))
                                    #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(67
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(66
                                          (r$449)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(65
                                                (r$453)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(64
                                                      (r$454)
                                                      ((list #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(63
                                                                 (r$450)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(62
                                                                       (r$452)
                                                                       ((trans-of-implies1$218
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(61
                                                                              (r$451)
                                                                              ((list k$446
                                                                                     r$449
                                                                                     r$450
                                                                                     r$451))
                                                                              #f))
                                                                          r$452))
                                                                       #f))
                                                                   (Cyc-fast-sub
                                                                     n$265
                                                                     1)))
                                                                 #f))
                                                             r$453
                                                             r$454
                                                             n$265))
                                                      #f))
                                                  (Cyc-fast-sub n$265 1)))
                                                #f))
                                            'implies))
                                          #f))
                                      'and))
                                    #f)))))
                            #f))
                        (equal? n$265 1)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$447 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  68
                  #f
                  #f
                  #f
                  1
                  (68)
                  #f
                  (equal? n$265 1)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$448 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 59 #f #f #f 1 (59) #f 'implies 0 1 #t #f #f))))
      ((r$449 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 66 #f #f #f 1 (61) #f 'and 0 1 #f #f #f))))
      ()
      ((r$740 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  458
                  #f
                  #f
                  #f
                  1
                  (458)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(459 (k$741 x$351) ((k$741 x$351)) #t))
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((setup-boyer
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             463
             #f
             #f
             3
             (8 -1 470)
             #t
             r$408
             1
             0
             #f
             #f
             #f))))
      ((lemmas$310
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #f #f))))
      ((translate-term$179
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((Cyc-fast-eq
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (465) #f #f 1 0 #t #f #f))))
      ()
      ((read .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 3
                 (480 482 484)
                 #f
                 #f
                 3
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((current-jiffy
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (418 433) #f #f 2 0 #f #f #f))))
      ()
      ()
      ((Cyc-fast-mul
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f))))
      ((r$450 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 63 #f #f #f 1 (61) #f #f 0 1 #f #f #f))))
      ((r$451 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 61 #f #f #f 1 (61) #f #f 0 1 #t #f #f))))
      ((r$452 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  62
                  #f
                  #f
                  #f
                  1
                  (62)
                  #f
                  (Cyc-fast-sub n$265 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$453 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 65 #f #f #f 1 (64) #f 'implies 0 1 #f #f #f))))
      ((r$454 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  64
                  #f
                  #f
                  #f
                  1
                  (64)
                  #f
                  (Cyc-fast-sub n$265 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$455 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  71
                  #f
                  #f
                  #f
                  1
                  (71)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(77
                      (k$456 n$266)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(76
                            (r$458)
                            ((trans-of-implies1$218
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(75
                                   (r$459)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(74
                                         (r$461)
                                         ((list #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(73
                                                    (r$460)
                                                    ((list #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(72
                                                               (r$457)
                                                               ((translate-term$251
                                                                  k$456
                                                                  r$457))
                                                               #f))
                                                           r$458
                                                           r$459
                                                           r$460))
                                                    #f))
                                                r$461
                                                0
                                                n$266))
                                         #f))
                                     'implies))
                                   #f))
                               n$266))
                            #f))
                        'implies))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$457 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 72 #f #f #f 1 (72) #f #f 0 1 #t #f #f))))
      ((r$458 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 76 #f #f #f 1 (73) #f 'implies 0 1 #f #f #f))))
      ((r$459 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 75 #f #f #f 1 (73) #f #f 0 1 #f #f #f))))
      ()
      ((Cyc-fast-sub
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             5
             (263 65 63 414 409)
             #f
             #f
             5
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ((r$755 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 483 #f #f #f 1 (483) #f #f 0 1 #t #f #f))))
      ((r$756 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 481 #f #f #f 1 (481) #f #f 0 1 #t #f #f))))
      ((r$757 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 479 #f #f #f 1 (479) #f #f 0 1 #t #f #f))))
      ((r$758 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  477
                  #f
                  #f
                  #f
                  1
                  (477)
                  #f
                  (number->string count$352)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$759 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  475
                  #f
                  #f
                  #f
                  1
                  (475)
                  #f
                  (number->string input$353)
                  0
                  1
                  #t
                  #f
                  #f)))
       (pair? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  11
                  (357 352 337 317 241 212 172 129 128 56 53)
                  #f
                  #f
                  11
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$460 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 73 #f #f #f 1 (73) #f #f 0 1 #t #f #f))))
      ((r$461 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 74 #f #f #f 1 (74) #f 'implies 0 1 #t #f #f))))
      ((r$462 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 79 #f #f #f 1 (79) #f '* 0 0 #t #f #f))))
      ((r$463 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 81 #f #f #f 1 (81) #f '* 0 0 #t #f #f))))
      ((r$464 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  83
                  #f
                  #f
                  #f
                  1
                  (83)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(86
                      (k$465 x$268 lst$267)
                      ((term-equal?$217
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(85
                             (r$466)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(84
                                   (tmp$120$269)
                                   ((if tmp$120$269
                                      (k$465 tmp$120$269)
                                      (term-member?$215 k$465 x$268 lst$267)))
                                   #f))
                               r$466))
                             #f))
                         x$268
                         true-term$220))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$466 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 85 #f #f #f 1 (85) #f #f 0 1 #t #f #f))))
      ((r$467 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  88
                  #f
                  #f
                  #f
                  1
                  (88)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(91
                      (k$468 x$271 lst$270)
                      ((term-equal?$217
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(90
                             (r$469)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(89
                                   (tmp$117$272)
                                   ((if tmp$117$272
                                      (k$468 tmp$117$272)
                                      (term-member?$215 k$468 x$271 lst$270)))
                                   #f))
                               r$469))
                             #f))
                         x$271
                         false-term$221))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((x$346 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 1 (446) #f #f 0 1 #t #f #f)))
       (r$469 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 90 #f #f #f 1 (90) #f #f 0 1 #t #f #f))))
      ((x$347 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (451) #f #f 0 1 #f #f #f))))
      ((r$760 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  471
                  #f
                  #f
                  #f
                  1
                  (464)
                  #f
                  (string-append name$357 ":" s1$356 ":" s2$355)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$761 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  467
                  #f
                  #f
                  #f
                  1
                  (464)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(470
                      (k$765)
                      ((setup-boyer
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(469
                             (r$766)
                             ((hide #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(468
                                        (r$767)
                                        ((test-boyer k$765 alist term r$767))
                                        #f))
                                    count$352
                                    input$353))
                             #f))))
                      #t))
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$762 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  464
                  #f
                  #f
                  #f
                  1
                  (464)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(466
                      (k$763 rewrites$358)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(465
                            (r$764)
                            ((if r$764
                               (k$763 (Cyc-fast-eq rewrites$358 output$354))
                               (k$763 #f)))
                            #f))
                        (number? rewrites$358)))
                      #t))
                  0
                  1
                  #t
                  #f
                  #f))))
      ((false-term$209
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))
       (term-equal?$186
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$764 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  465
                  #f
                  #f
                  #f
                  1
                  (465)
                  #f
                  (number? rewrites$358)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$766 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 469 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (if-constructor$204
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$767 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 468 #f #f #f 1 (468) #f #f 0 1 #t #f #f))))
      ((rewrite-args$196
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((symbol-record$308
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 277 #f #f #f 1 (277) #f #f 0 1 #t #f #f))))
      ((symbol-record$309
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 280 #f #f #f 1 (280) #f #f 0 1 #t #f #f)))
       (t1$342
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 414 #f #f #f 1 (409) #f r$696 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((property$316
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 303 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((r$470 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  93
                  #f
                  #f
                  #f
                  1
                  (93)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(105
                      (k$471 lst1$274 lst2$273)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(104
                            (r$472)
                            ((if r$472
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(94 () ((k$471 (null? lst2$273))) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(103
                                    (r$473)
                                    ((if r$473
                                       (#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(95 () ((k$471 #f)) #f)))
                                       (#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(102
                                            (r$477)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(101
                                                  (r$478)
                                                  ((one-way-unify1$225
                                                     #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(100
                                                         (r$474)
                                                         ((if r$474
                                                            (#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(98
                                                                 ()
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(97
                                                                       (r$475)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(96
                                                                             (r$476)
                                                                             ((one-way-unify1-lst$224
                                                                                k$471
                                                                                r$475
                                                                                r$476))
                                                                             #f))
                                                                         (cdr lst2$273)))
                                                                       #f))
                                                                   (cdr lst1$274)))
                                                                 #f)))
                                                            (#((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(99
                                                                 ()
                                                                 ((k$471 #f))
                                                                 #f)))))
                                                         #f))
                                                     r$477
                                                     r$478))
                                                  #f))
                                              (car lst2$273)))
                                            #f))
                                        (car lst1$274))))
                                    #f))
                                (null? lst2$273))))
                            #f))
                        (null? lst1$274)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((property$319
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (get$207
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$472 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  104
                  #f
                  #f
                  #f
                  1
                  (104)
                  #f
                  (null? lst1$274)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$473 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  103
                  #f
                  #f
                  #f
                  1
                  (103)
                  #f
                  (null? lst2$273)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((x$351 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 459 #f #f #f 1 (459) #f #f 0 1 #t #f #f)))
       (r$474 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 100 #f #f #f 1 (100) #f #f 0 0 #t #f #f))))
      ((r$475 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  97
                  #f
                  #f
                  #f
                  1
                  (96)
                  #f
                  (cdr lst1$274)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$476 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  96
                  #f
                  #f
                  #f
                  1
                  (96)
                  #f
                  (cdr lst2$273)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$477 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  102
                  #f
                  #f
                  #f
                  1
                  (101)
                  #f
                  (car lst1$274)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$478 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  101
                  #f
                  #f
                  #f
                  1
                  (101)
                  #f
                  (car lst2$273)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$479 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  107
                  #f
                  #f
                  #f
                  1
                  (107)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(129
                      (k$480 term1$276 term2$275)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(128
                            (r$481)
                            ((if r$481
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(116
                                    (r$482)
                                    ((if r$482
                                       (#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(114
                                            (r$486)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(113
                                                  (r$487)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(112
                                                        (r$483)
                                                        ((if r$483
                                                           (#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(110
                                                                ()
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(109
                                                                      (r$484)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(108
                                                                            (r$485)
                                                                            ((one-way-unify1-lst$224
                                                                               k$480
                                                                               r$484
                                                                               r$485))
                                                                            #f))
                                                                        (cdr term2$275)))
                                                                      #f))
                                                                  (cdr term1$276)))
                                                                #f)))
                                                           (#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(111
                                                                ()
                                                                ((k$480 #f))
                                                                #f)))))
                                                        #f))
                                                    (eq? r$486 r$487)))
                                                  #f))
                                              (car term2$275)))
                                            #f))
                                        (car term1$276))
                                       (#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(115 () ((k$480 #f)) #f)))))
                                    #f))
                                (pair? term1$276))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(127
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(126
                                          (r$488)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(125
                                                (temp-temp$277)
                                                ((if temp-temp$277
                                                   (#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(118
                                                        ()
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(117
                                                              (r$489)
                                                              ((term-equal?$217
                                                                 k$480
                                                                 term1$276
                                                                 r$489))
                                                              #f))
                                                          (cdr temp-temp$277)))
                                                        #f)))
                                                   (#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(124
                                                        (r$490)
                                                        ((if r$490
                                                           (#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(119
                                                                ()
                                                                ((k$480 (equal?
                                                                          term1$276
                                                                          term2$275)))
                                                                #f)))
                                                           (#((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(123
                                                                ()
                                                                ((#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(122
                                                                      (r$493)
                                                                      ((#((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(121
                                                                            (r$492)
                                                                            ((#((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(120
                                                                                  (r$491)
                                                                                  ((k$480 #t))
                                                                                  #f))
                                                                              (set! unify-subst$227
                                                                                r$492)))
                                                                            #f))
                                                                        (cons r$493
                                                                              unify-subst$227)))
                                                                      #f))
                                                                  (cons term2$275
                                                                        term1$276)))
                                                                #f)))))
                                                        #f))
                                                    (number? term2$275))))
                                                #f))
                                            r$488))
                                          #f))
                                      (assq term2$275 unify-subst$227)))
                                    #f)))))
                            #f))
                        (pair? term2$275)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((symbol-record$311
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #t #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$481 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  128
                  #f
                  #f
                  #f
                  1
                  (128)
                  #f
                  (pair? term2$275)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$482 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  116
                  #f
                  #f
                  #f
                  1
                  (116)
                  #f
                  (pair? term1$276)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$483 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  112
                  #f
                  #f
                  #f
                  1
                  (112)
                  #f
                  (eq? r$486 r$487)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$484 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  109
                  #f
                  #f
                  #f
                  1
                  (108)
                  #f
                  (cdr term1$276)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$485 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  108
                  #f
                  #f
                  #f
                  1
                  (108)
                  #f
                  (cdr term2$275)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((false-term$221
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (91 81 13)
             #t
             r$463
             0
             1
             #f
             #f
             #f)))
       (r$486 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  114
                  #f
                  #f
                  #f
                  1
                  (113)
                  #f
                  (car term1$276)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$487 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  113
                  #f
                  #f
                  #f
                  1
                  (113)
                  #f
                  (car term2$275)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$488 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  126
                  #f
                  #f
                  #f
                  1
                  (126)
                  #f
                  (assq term2$275 unify-subst$227)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$489 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  117
                  #f
                  #f
                  #f
                  1
                  (117)
                  #f
                  (cdr temp-temp$277)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((current-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (416 435) #f #f 2 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$490 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  124
                  #f
                  #f
                  #f
                  1
                  (124)
                  #f
                  (number? term2$275)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$491 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  120
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 r$492)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$492 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  121
                  #f
                  #f
                  #f
                  1
                  (121)
                  #f
                  (cons r$493 unify-subst$227)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$493 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  122
                  #f
                  #f
                  #f
                  1
                  (122)
                  #f
                  (cons term2$275 term1$276)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$494 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  131
                  #f
                  #f
                  #f
                  1
                  (131)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(134
                      (k$495 term1$279 term2$278)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(133
                            (r$497)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(132
                                  (r$496)
                                  ((one-way-unify1$225
                                     k$495
                                     term1$279
                                     term2$278))
                                  #f))
                              (set! unify-subst$227 r$497)))
                            #f))
                        '()))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$496 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  132
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 r$497)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$497 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 133 #f #f #f 1 (133) #f '() 0 0 #t #f #f))))
      ((r$498 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 136 #f #f #f 1 (136) #f '* 0 0 #t #f #f))))
      ((r$499 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  138
                  #f
                  #f
                  #f
                  1
                  (138)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(150
                      (k$500 term$281 lst$280)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(149
                            (r$501)
                            ((if r$501
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(139 () ((k$500 term$281)) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(148
                                    (r$508)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(147
                                          (r$507)
                                          ((one-way-unify$226
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(146
                                                 (r$502)
                                                 ((if r$502
                                                    (#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(143
                                                         ()
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(142
                                                               (r$505)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(141
                                                                     (r$504)
                                                                     ((apply-subst$237
                                                                        #((record-marker)
                                                                          #((record-marker)
                                                                            #f
                                                                            (id args
                                                                                body
                                                                                has-cont))
                                                                          #(140
                                                                            (r$503)
                                                                            ((rewrite$230
                                                                               k$500
                                                                               r$503))
                                                                            #f))
                                                                        unify-subst$227
                                                                        r$504))
                                                                     #f))
                                                                 (caddr r$505)))
                                                               #f))
                                                           (car lst$280)))
                                                         #f)))
                                                    (#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(145
                                                         ()
                                                         ((#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(144
                                                               (r$506)
                                                               ((rewrite-with-lemmas$228
                                                                  k$500
                                                                  term$281
                                                                  r$506))
                                                               #f))
                                                           (cdr lst$280)))
                                                         #f)))))
                                                 #f))
                                             term$281
                                             r$507))
                                          #f))
                                      (cadr r$508)))
                                    #f))
                                (car lst$280))))
                            #f))
                        (null? lst$280)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((if-constructor$233
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (209 185 16)
             #t
             r$534
             0
             1
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$405 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 6 #f #f #f 2 (3 3) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ((k$409 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 20 #f #f #f 1 (9) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ((call-with-values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (450) #f #f 1 0 #f #f #f)))
       (*symbol-records-alist*$214
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((symbol->symbol-record$191
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((get$247
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (342 301)
             #f
             r$616
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((thunk$327
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (386) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ((lp$37$302
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             268
             #f
             #f
             #f
             3
             (262 261 260)
             #f
             r$590
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-lt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (427 456) #f #f 2 0 #t #f #f))))
      ()
      ()
      ((k$422 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 30 #f #f #f 3 (25 24 23) #f #f 2 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((k$428 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  44
                  #f
                  #f
                  #f
                  4
                  (38 35 34 33)
                  #f
                  #f
                  3
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$725 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 1 (444) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((Cyc-fast-plus
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (174 387) #f #f 2 0 #t #f #f))))
      ()
      ((input$353
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             480
             #f
             #f
             #f
             2
             (476 469)
             #f
             r$756
             0
             2
             #t
             #f
             #f))))
      ((k$437 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (54 52 49 47)
                  #f
                  #f
                  3
                  1
                  #f
                  #f
                  #t))))
      ()
      ()
      ((put$199
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((k$730 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (450) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((k$733 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (451) #f #f 0 1 #f #f #t)))
       (*symbol-records-alist*$245
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (299 294 293 289 19)
             #t
             r$614
             0
             2
             #f
             #f
             #f))))
      ()
      ((k$735 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 460 #f #f #f 1 (454) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((k$738 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  456
                  #f
                  #f
                  #f
                  2
                  (455 455)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(454 (r$737) ((values k$735 r$736 r$737)) #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((rounded$331
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             448
             #f
             #f
             #f
             2
             (443 408)
             #f
             r$724
             1
             0
             #f
             #f
             #f))))
      ((rounded$332
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 447 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((tautologyp$234
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (217 194 198 192 190 187)
             #f
             r$535
             5
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((flush-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (420 389 438)
             #f
             #f
             3
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((run-r7rs-benchmark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             449
             #f
             #f
             2
             (-1 464)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(449
                  (k$678 name$329 count$328 thunk$327 ok?$326)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(448
                        (rounded$331)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(447
                              (rounded$332)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(443
                                    (r$724)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(442
                                          (r$679)
                                          ((display
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(441
                                                 (r$680)
                                                 ((display
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(440
                                                        (r$681)
                                                        ((newline
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(439
                                                               (r$682)
                                                               ((current-output-port
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(438
                                                                      (r$723)
                                                                      ((flush-output-port
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(437
                                                                             (r$683)
                                                                             ((jiffies-per-second
                                                                                #((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(436
                                                                                    (r$684)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(435
                                                                                          (j/s$333)
                                                                                          ((current-second
                                                                                             #((record-marker)
                                                                                               #((record-marker)
                                                                                                 #f
                                                                                                 (id args
                                                                                                     body
                                                                                                     has-cont))
                                                                                               #(434
                                                                                                 (r$685)
                                                                                                 ((#((record-marker)
                                                                                                     #((record-marker)
                                                                                                       #f
                                                                                                       (id args
                                                                                                           body
                                                                                                           has-cont))
                                                                                                     #(433
                                                                                                       (t0$334)
                                                                                                       ((current-jiffy
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(432
                                                                                                              (r$686)
                                                                                                              ((#((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(431
                                                                                                                    (j0$335)
                                                                                                                    ((#((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(430
                                                                                                                          ()
                                                                                                                          ((#((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(429
                                                                                                                                (i$337 result$336)
                                                                                                                                ((#((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(428
                                                                                                                                      (loop$338)
                                                                                                                                      ((#((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(384
                                                                                                                                            (r$688)
                                                                                                                                            ((#((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(383
                                                                                                                                                  (r$687)
                                                                                                                                                  ((loop$338
                                                                                                                                                     k$678
                                                                                                                                                     i$337
                                                                                                                                                     result$336))
                                                                                                                                                  #f))
                                                                                                                                              (set! loop$338
                                                                                                                                                r$688)))
                                                                                                                                            #f))
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(427
                                                                                                                                            (k$689 i$340
                                                                                                                                                   result$339)
                                                                                                                                            ((#((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(426
                                                                                                                                                  (r$690)
                                                                                                                                                  ((if r$690
                                                                                                                                                     (#((record-marker)
                                                                                                                                                        #((record-marker)
                                                                                                                                                          #f
                                                                                                                                                          (id args
                                                                                                                                                              body
                                                                                                                                                              has-cont))
                                                                                                                                                        #(387
                                                                                                                                                          ()
                                                                                                                                                          ((#((record-marker)
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #f
                                                                                                                                                                (id args
                                                                                                                                                                    body
                                                                                                                                                                    has-cont))
                                                                                                                                                              #(386
                                                                                                                                                                (r$691)
                                                                                                                                                                ((thunk$327
                                                                                                                                                                   #((record-marker)
                                                                                                                                                                     #((record-marker)
                                                                                                                                                                       #f
                                                                                                                                                                       (id args
                                                                                                                                                                           body
                                                                                                                                                                           has-cont))
                                                                                                                                                                     #(385
                                                                                                                                                                       (r$692)
                                                                                                                                                                       ((loop$338
                                                                                                                                                                          k$689
                                                                                                                                                                          r$691
                                                                                                                                                                          r$692))
                                                                                                                                                                       #f))))
                                                                                                                                                                #f))
                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                              i$340
                                                                                                                                                              1)))
                                                                                                                                                          #f)))
                                                                                                                                                     (ok?$326
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(425
                                                                                                                                                           (r$693)
                                                                                                                                                           ((if r$693
                                                                                                                                                              (#((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(418
                                                                                                                                                                   ()
                                                                                                                                                                   ((current-jiffy
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(417
                                                                                                                                                                          (r$695)
                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(416
                                                                                                                                                                                (j1$341)
                                                                                                                                                                                ((current-second
                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #f
                                                                                                                                                                                       (id args
                                                                                                                                                                                           body
                                                                                                                                                                                           has-cont))
                                                                                                                                                                                     #(415
                                                                                                                                                                                       (r$696)
                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(414
                                                                                                                                                                                             (t1$342)
                                                                                                                                                                                             ((#((record-marker)
                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                   #f
                                                                                                                                                                                                   (id args
                                                                                                                                                                                                       body
                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                 #(413
                                                                                                                                                                                                   (r$697)
                                                                                                                                                                                                   ((#((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(412
                                                                                                                                                                                                         (jifs$343)
                                                                                                                                                                                                         ((#((record-marker)
                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                               #f
                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                   body
                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                             #(411
                                                                                                                                                                                                               (r$717)
                                                                                                                                                                                                               ((#((record-marker)
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                         body
                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                   #(410
                                                                                                                                                                                                                     (r$698)
                                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(409
                                                                                                                                                                                                                           (secs$344)
                                                                                                                                                                                                                           ((#((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(408
                                                                                                                                                                                                                                 (r$716)
                                                                                                                                                                                                                                 ((rounded$331
                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                      #(407
                                                                                                                                                                                                                                        (r$699)
                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                            #(406
                                                                                                                                                                                                                                              (secs2$345)
                                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                  #(405
                                                                                                                                                                                                                                                    ()
                                                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                         #(404
                                                                                                                                                                                                                                                           (r$700)
                                                                                                                                                                                                                                                           ((write #((record-marker)
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                     #(403
                                                                                                                                                                                                                                                                       (r$701)
                                                                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(402
                                                                                                                                                                                                                                                                              (r$702)
                                                                                                                                                                                                                                                                              ((write #((record-marker)
                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                        #(401
                                                                                                                                                                                                                                                                                          (r$703)
                                                                                                                                                                                                                                                                                          ((display
                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                               #(400
                                                                                                                                                                                                                                                                                                 (r$704)
                                                                                                                                                                                                                                                                                                 ((display
                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                                                      #(399
                                                                                                                                                                                                                                                                                                        (r$705)
                                                                                                                                                                                                                                                                                                        ((newline
                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                                                                             #(398
                                                                                                                                                                                                                                                                                                               (r$706)
                                                                                                                                                                                                                                                                                                               ((display
                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                                                    #(397
                                                                                                                                                                                                                                                                                                                      (r$707)
                                                                                                                                                                                                                                                                                                                      ((this-scheme-implementation-name
                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                                                           #(396
                                                                                                                                                                                                                                                                                                                             (r$715)
                                                                                                                                                                                                                                                                                                                             ((display
                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                                                  #(395
                                                                                                                                                                                                                                                                                                                                    (r$708)
                                                                                                                                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                                                                                         #(394
                                                                                                                                                                                                                                                                                                                                           (r$709)
                                                                                                                                                                                                                                                                                                                                           ((display
                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                                                                                #(393
                                                                                                                                                                                                                                                                                                                                                  (r$710)
                                                                                                                                                                                                                                                                                                                                                  ((display
                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                                                                                                       #(392
                                                                                                                                                                                                                                                                                                                                                         (r$711)
                                                                                                                                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                                                                                                              #(391
                                                                                                                                                                                                                                                                                                                                                                (r$712)
                                                                                                                                                                                                                                                                                                                                                                ((newline
                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                                                                     #(390
                                                                                                                                                                                                                                                                                                                                                                       (r$713)
                                                                                                                                                                                                                                                                                                                                                                       ((current-output-port
                                                                                                                                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                                                                                                                            #(389
                                                                                                                                                                                                                                                                                                                                                                              (r$714)
                                                                                                                                                                                                                                                                                                                                                                              ((flush-output-port
                                                                                                                                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                                                                                                                                   #(388
                                                                                                                                                                                                                                                                                                                                                                                     (r$694)
                                                                                                                                                                                                                                                                                                                                                                                     ((k$689 result$339))
                                                                                                                                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                                                                                                                                 r$714))
                                                                                                                                                                                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                                            secs$344))
                                                                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                                                                     ","))
                                                                                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                                                                                              name$329))
                                                                                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                                                                                       ","))
                                                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                                                r$715))
                                                                                                                                                                                                                                                                                                                             #f))))
                                                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                                                  "+!CSVLINE!+"))
                                                                                                                                                                                                                                                                                                               #f))))
                                                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                                                    name$329))
                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                             ") for "))
                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                      secs2$345))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          " seconds ("))
                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                   secs$344))
                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                       "Elapsed time: "))
                                                                                                                                                                                                                                                    #f))))
                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                          r$699))
                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                    r$716))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                                                                                               t1$342
                                                                                                                                                                                                                               t0$334)))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       r$698))
                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                 (inexact__inline__
                                                                                                                                                                                                                   r$717)))
                                                                                                                                                                                                               #f))
                                                                                                                                                                                                           (Cyc-fast-div
                                                                                                                                                                                                             jifs$343
                                                                                                                                                                                                             j/s$333)))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$697))
                                                                                                                                                                                                   #f))
                                                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                                                 j1$341
                                                                                                                                                                                                 j0$335)))
                                                                                                                                                                                             #f))
                                                                                                                                                                                         r$696))
                                                                                                                                                                                       #f))))
                                                                                                                                                                                #f))
                                                                                                                                                                            r$695))
                                                                                                                                                                          #f))))
                                                                                                                                                                   #f)))
                                                                                                                                                              (#((record-marker)
                                                                                                                                                                 #((record-marker)
                                                                                                                                                                   #f
                                                                                                                                                                   (id args
                                                                                                                                                                       body
                                                                                                                                                                       has-cont))
                                                                                                                                                                 #(424
                                                                                                                                                                   ()
                                                                                                                                                                   ((display
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(423
                                                                                                                                                                          (r$718)
                                                                                                                                                                          ((write #((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(422
                                                                                                                                                                                      (r$719)
                                                                                                                                                                                      ((newline
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #f
                                                                                                                                                                                             (id args
                                                                                                                                                                                                 body
                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                           #(421
                                                                                                                                                                                             (r$720)
                                                                                                                                                                                             ((current-output-port
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #f
                                                                                                                                                                                                    (id args
                                                                                                                                                                                                        body
                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                  #(420
                                                                                                                                                                                                    (r$722)
                                                                                                                                                                                                    ((flush-output-port
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #f
                                                                                                                                                                                                           (id args
                                                                                                                                                                                                               body
                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                         #(419
                                                                                                                                                                                                           (r$721)
                                                                                                                                                                                                           ((k$689 result$339))
                                                                                                                                                                                                           #f))
                                                                                                                                                                                                       r$722))
                                                                                                                                                                                                    #f))))
                                                                                                                                                                                             #f))))
                                                                                                                                                                                      #f))
                                                                                                                                                                                  result$339))
                                                                                                                                                                          #f))
                                                                                                                                                                      "ERROR: returned incorrect result: "))
                                                                                                                                                                   #f)))))
                                                                                                                                                           #f))
                                                                                                                                                       result$339)))
                                                                                                                                                  #f))
                                                                                                                                              (Cyc-fast-lt
                                                                                                                                                i$340
                                                                                                                                                count$328)))
                                                                                                                                            #t))))
                                                                                                                                      #f))
                                                                                                                                  #f))
                                                                                                                                #f))
                                                                                                                            0
                                                                                                                            #f))
                                                                                                                          #f))))
                                                                                                                    #f))
                                                                                                                r$686))
                                                                                                              #f))))
                                                                                                       #f))
                                                                                                   r$685))
                                                                                                 #f))))
                                                                                          #f))
                                                                                      r$684))
                                                                                    #f))))
                                                                             #f))
                                                                         r$723))
                                                                      #f))))
                                                               #f))))
                                                        #f))
                                                    name$329))
                                                 #f))
                                             "Running "))
                                          #f))
                                      (set! rounded$331 r$724)))
                                    #f))
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(446
                                    (k$725 x$346)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(445
                                          (r$727)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(444
                                                (r$726)
                                                ((k$725 (Cyc-fast-div
                                                          r$726
                                                          1000)))
                                                #f))
                                            (round__inline__ r$727)))
                                          #f))
                                      (Cyc-fast-mul 1000 x$346)))
                                    #t))))
                              #f))
                          #f))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$446 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 69 #f #f #f 2 (61 59) #f #f 0 2 #f #f #t))))
      ((error .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (350) #f #f 1 0 #f #f #f)))
       (tmp$120$269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 84 #f #f #f 2 (84 84) #f r$466 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((k$741 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 459 #f #f #f 1 (459) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$744 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 462 #f #f #f 1 (462) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$747 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 463 #f #f #f 1 (463) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((truep$177
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((unify-subst$227
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (141 136 133 127 122 121)
             #t
             r$498
             0
             3
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((untranslate-term$249
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (311 309)
             #f
             r$622
             0
             1
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((k$456 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 77 #f #f #f 1 (72) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$754 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 484 #f #f #f 1 (464) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((car .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                25
                (365
                 348
                 344
                 356
                 334
                 325
                 314
                 236
                 228
                 211
                 181
                 169
                 165
                 158
                 149
                 143
                 116
                 114
                 103
                 102
                 52
                 51
                 42
                 41
                 29)
                #f
                #f
                25
                0
                #t
                #f
                #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((false-lst$287
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             214
             #f
             #f
             #f
             6
             (213 203 198 195 192 190)
             #f
             #f
             0
             6
             #f
             #f
             #f))))
      ()
      ((values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (458 454) #f #f 1 1 #f #f #f))))
      ((test$184
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((n$255 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ()
      ()
      ()
      ((k$465 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 86 #f #f #f 2 (84 84) #f #f 1 1 #f #f #t))))
      ((rewrite$197
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ((k$468 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 91 #f #f #f 2 (89 89) #f #f 1 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((k$763 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 466 #f #f #f 2 (465 465) #f #f 2 0 #t #f #t))))
      ()
      ((k$765 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 470 #f #f #f 1 (468) #f #f 0 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((term$301
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             269
             #f
             #f
             #f
             1
             (260)
             #f
             term$298
             0
             1
             #f
             #f
             #f))))
      ()
      ()
      ((term$304
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 267 #f #f #f 2 (264 266) #f #f 0 2 #f #f #f))))
      ((term$305
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 256 #f #f #f 1 (256) #f r$585 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$471 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  105
                  #f
                  #f
                  #f
                  4
                  (99 96 95 94)
                  #f
                  #f
                  3
                  1
                  #f
                  #f
                  #t)))
       (n$265 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  69
                  #f
                  #f
                  #f
                  4
                  (69 65 64 63)
                  #f
                  #f
                  0
                  4
                  #f
                  #f
                  #f))))
      ((n$266 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 77 #f #f #f 2 (76 74) #f #f 0 2 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((cadddr
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (197 193) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((lst$322
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             327
             #f
             #f
             #f
             3
             (327 325 323)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ((lst$325
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             367
             #f
             #f
             #f
             3
             (367 365 363)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ((assq .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 3
                 (299 239 127)
                 #f
                 #f
                 3
                 0
                 #t
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$480 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  129
                  #f
                  #f
                  #f
                  6
                  (120 119 117 115 111 108)
                  #f
                  #f
                  4
                  2
                  #f
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((symbol-record-equal?$240
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (273 50)
             #f
             r$597
             1
             0
             #f
             #f
             #f))))
      ((apply-subst$211
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((cdr .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                23
                (363
                 332
                 323
                 312
                 297
                 247
                 237
                 235
                 226
                 179
                 168
                 156
                 145
                 118
                 110
                 109
                 98
                 97
                 49
                 48
                 37
                 36
                 26)
                #f
                #f
                23
                0
                #t
                #f
                #f))))
      ((i$337 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 429 #f #t 0 1 (383) #f 0 0 1 #f #f #f))))
      ()
      ()
      ()
      ()
      ((term$321
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             317
             #f
             #f
             #f
             4
             (317 315 314 312)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ((sym$312
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 287 #f #f #f 1 (286) #f #f 0 1 #f #f #f))))
      ((term$323
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             337
             #f
             #f
             #f
             4
             (337 335 334 332)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (sym$313
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             299
             #f
             #f
             #f
             3
             (299 297 295)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ((term$324
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             358
             #f
             #f
             #f
             7
             (350 349 346 345 357 356 353)
             #f
             #f
             0
             7
             #f
             #f
             #f))))
      ()
      ()
      ((sym$317
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 303 #f #f #f 1 (303) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$601 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  279
                  #f
                  #f
                  #f
                  1
                  (279)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(280
                      (k$602 symbol-record$309)
                      ((k$602 (vector-ref symbol-record$309 1)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$603 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  282
                  #f
                  #f
                  #f
                  1
                  (282)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(283
                      (k$604 symbol-record$311 lemmas$310)
                      ((k$604 (vector-set! symbol-record$311 1 lemmas$310)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$605 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  285
                  #f
                  #f
                  #f
                  1
                  (285)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(287
                      (k$606 sym$312)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(286 (r$607) ((vector k$606 sym$312 r$607)) #f))
                        '()))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((setup$192
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$607 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 286 #f #f #f 1 (286) #f '() 0 1 #t #f #f))))
      ((r$608 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 289 #f #f #f 1 (289) #f '() 0 0 #t #f #f))))
      ((k$495 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #t)))
       (r$609 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  291
                  #f
                  #f
                  #f
                  1
                  (291)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(299
                      (k$610 sym$313)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(298
                            (r$611)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(297
                                  (x$314)
                                  ((if x$314
                                     (k$610 (cdr x$314))
                                     (make-symbol-record$244
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(296
                                           (r$612)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(295
                                                 (r$315)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(294
                                                       (r$615)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(293
                                                             (r$614)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(292
                                                                   (r$613)
                                                                   ((k$610 r$315))
                                                                   #f))
                                                               (set! *symbol-records-alist*$245
                                                                 r$614)))
                                                             #f))
                                                         (cons r$615
                                                               *symbol-records-alist*$245)))
                                                       #f))
                                                   (cons sym$313 r$315)))
                                                 #f))
                                             r$612))
                                           #f))
                                       sym$313)))
                                  #f))
                              r$611))
                            #f))
                        (assq sym$313 *symbol-records-alist*$245)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((jifs$343
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 412 #f #f #f 1 (412) #f r$697 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r1$307
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f))))
      ()
      ((i$340 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 427 #f #f #f 2 (427 387) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$349 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f))))
      ()
      ((sym$320
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 1 (307) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$315 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  295
                  #f
                  #f
                  #f
                  2
                  (295 292)
                  #f
                  r$612
                  0
                  2
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$611 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  298
                  #f
                  #f
                  #f
                  1
                  (298)
                  #f
                  (assq sym$313 *symbol-records-alist*$245)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$612 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 296 #f #f #f 1 (296) #f #f 0 1 #t #f #f))))
      ((r$613 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  292
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 r$614)
                  0
                  0
                  #t
                  #f
                  #f)))
       (translate-args$180
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$614 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  293
                  #f
                  #f
                  #f
                  1
                  (293)
                  #f
                  (cons r$615 *symbol-records-alist*$245)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$615 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  294
                  #f
                  #f
                  #f
                  1
                  (294)
                  #f
                  (cons sym$313 r$315)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$616 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  301
                  #f
                  #f
                  #f
                  1
                  (301)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(303
                      (k$617 sym$317 property$316)
                      ((symbol->symbol-record$246
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(302 (r$618) ((get-lemmas$242 k$617 r$618)) #f))
                         sym$317))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((n$297 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f))))
      ((r$618 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 302 #f #f #f 1 (302) #f #f 0 1 #t #f #f))))
      ((r$619 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  305
                  #f
                  #f
                  #f
                  1
                  (305)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(307
                      (k$620 sym$320 property$319 value$318)
                      ((symbol->symbol-record$246
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(306
                             (r$621)
                             ((put-lemmas!$243 k$620 r$621 value$318))
                             #f))
                         sym$320))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((add-lemma-lst$212
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((apply-subst$237
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (258 232 227 141)
             #f
             r$567
             3
             0
             #f
             #f
             #f))))
      ((true-term$178
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$621 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 306 #f #f #f 1 (306) #f #f 0 1 #t #f #f))))
      ((r$622 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  309
                  #f
                  #f
                  #f
                  1
                  (309)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(317
                      (k$623 term$321)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(316
                            (r$624)
                            ((if r$624
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(314
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(313
                                          (r$628)
                                          ((get-name$241
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(312
                                                 (r$625)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(311
                                                       (r$627)
                                                       ((map #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(310
                                                                 (r$626)
                                                                 ((k$623 (cons r$625
                                                                               r$626)))
                                                                 #f))
                                                             untranslate-term$249
                                                             r$627))
                                                       #f))
                                                   (cdr term$321)))
                                                 #f))
                                             r$628))
                                          #f))
                                      (car term$321)))
                                    #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(315 () ((k$623 term$321)) #f)))))
                            #f))
                        (pair? term$321)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$624 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  316
                  #f
                  #f
                  #f
                  1
                  (316)
                  #f
                  (pair? term$321)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$625 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 312 #f #f #f 1 (310) #f #f 0 1 #t #f #f))))
      ((r$626 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 310 #f #f #f 1 (310) #f #f 0 1 #t #f #f))))
      ((r$627 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  311
                  #f
                  #f
                  #f
                  1
                  (311)
                  #f
                  (cdr term$321)
                  0
                  1
                  #t
                  #f
                  #f)))
       (rewrite-count$195
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f))))
      ((r$628 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  313
                  #f
                  #f
                  #f
                  1
                  (313)
                  #f
                  (car term$321)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$629 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  319
                  #f
                  #f
                  #f
                  1
                  (319)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(327
                      (k$630 lst$322)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(326
                            (r$631)
                            ((if r$631
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(320 () ((k$630 '())) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(325
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(324
                                          (r$635)
                                          ((translate-term$251
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(323
                                                 (r$632)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(322
                                                       (r$634)
                                                       ((translate-args$250
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(321
                                                              (r$633)
                                                              ((k$630 (cons r$632
                                                                            r$633)))
                                                              #f))
                                                          r$634))
                                                       #f))
                                                   (cdr lst$322)))
                                                 #f))
                                             r$635))
                                          #f))
                                      (car lst$322)))
                                    #f)))))
                            #f))
                        (null? lst$322)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((trans-of-implies1$218
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (76 62 58)
             #f
             r$445
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$631 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  326
                  #f
                  #f
                  #f
                  1
                  (326)
                  #f
                  (null? lst$322)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$632 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 323 #f #f #f 1 (321) #f #f 0 1 #t #f #f))))
      ((r$633 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f))))
      ((r$634 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  322
                  #f
                  #f
                  #f
                  1
                  (322)
                  #f
                  (cdr lst$322)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$635 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  324
                  #f
                  #f
                  #f
                  1
                  (324)
                  #f
                  (car lst$322)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$636 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  329
                  #f
                  #f
                  #f
                  1
                  (329)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(337
                      (k$637 term$323)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(336
                            (r$638)
                            ((if r$638
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(334
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(333
                                          (r$642)
                                          ((symbol->symbol-record$246
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(332
                                                 (r$639)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(331
                                                       (r$641)
                                                       ((translate-args$250
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(330
                                                              (r$640)
                                                              ((k$637 (cons r$639
                                                                            r$640)))
                                                              #f))
                                                          r$641))
                                                       #f))
                                                   (cdr term$323)))
                                                 #f))
                                             r$642))
                                          #f))
                                      (car term$323)))
                                    #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(335 () ((k$637 term$323)) #f)))))
                            #f))
                        (pair? term$323)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$638 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  336
                  #f
                  #f
                  #f
                  1
                  (336)
                  #f
                  (pair? term$323)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$639 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 332 #f #f #f 1 (330) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$348 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (456) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$640 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 330 #f #f #f 1 (330) #f #f 0 1 #t #f #f))))
      ((r$641 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  331
                  #f
                  #f
                  #f
                  1
                  (331)
                  #f
                  (cdr term$323)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$642 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  333
                  #f
                  #f
                  #f
                  1
                  (333)
                  #f
                  (car term$323)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$643 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  339
                  #f
                  #f
                  #f
                  1
                  (339)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(358
                      (k$644 term$324)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(357
                            (k$655)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(356
                                  (r$656)
                                  ((if r$656
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(355
                                          (r$659)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(354
                                                (r$660)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(353
                                                      (r$657)
                                                      ((if r$657
                                                         (#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(352
                                                              (r$658)
                                                              ((k$655 (pair? r$658)))
                                                              #f))
                                                          (cadr term$324))
                                                         (k$655 #f)))
                                                      #f))
                                                  (eq? r$659 r$660)))
                                                #f))
                                            'equal))
                                          #f))
                                      (car term$324))
                                     (k$655 #f)))
                                  #f))
                              (pair? term$324)))
                            #t))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(351
                            (r$645)
                            ((if r$645
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(349
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(348
                                          (r$654)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(347
                                                (r$646)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(346
                                                      (r$647)
                                                      ((translate-term$251
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(345
                                                             (r$649)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(344
                                                                   (r$653)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(343
                                                                         (r$651)
                                                                         ((#((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(342
                                                                               (r$652)
                                                                               ((get$247
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(341
                                                                                      (r$650)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(340
                                                                                            (r$648)
                                                                                            ((put$248
                                                                                               k$644
                                                                                               r$646
                                                                                               r$647
                                                                                               r$648))
                                                                                            #f))
                                                                                        (cons r$649
                                                                                              r$650)))
                                                                                      #f))
                                                                                  r$651
                                                                                  r$652))
                                                                               #f))
                                                                           'lemmas))
                                                                         #f))
                                                                     (car r$653)))
                                                                   #f))
                                                               (cadr term$324)))
                                                             #f))
                                                         term$324))
                                                      #f))
                                                  'lemmas))
                                                #f))
                                            (car r$654)))
                                          #f))
                                      (cadr term$324)))
                                    #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(350
                                    ()
                                    ((error k$644
                                            #f
                                            "ADD-LEMMA did not like term:  "
                                            term$324))
                                    #f)))))
                            #f))))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$645 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 351 #f #f #f 1 (351) #f #f 0 0 #t #f #f))))
      ((r$646 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  347
                  #f
                  #f
                  #f
                  1
                  (340)
                  #f
                  (car r$654)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$647 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  346
                  #f
                  #f
                  #f
                  1
                  (340)
                  #f
                  'lemmas
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$648 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  340
                  #f
                  #f
                  #f
                  1
                  (340)
                  #f
                  (cons r$649 r$650)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$649 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 345 #f #f #f 1 (341) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((null? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  13
                  (367 327 253 230 160 150 105 104 94 44 43 33 30)
                  #f
                  #f
                  13
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ((term-args-equal?$216
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (47 35 32)
             #f
             r$427
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((caar .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(? ? #f #f #f 1 (251) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ((r$359 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 378 #f #t 0 0 () #f 0 0 0 #t #f #f))))
      ()
      ((r$650 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 341 #f #f #f 1 (341) #f #f 0 1 #t #f #f))))
      ((r$651 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  343
                  #f
                  #f
                  #f
                  1
                  (342)
                  #f
                  (car r$653)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$652 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  342
                  #f
                  #f
                  #f
                  1
                  (342)
                  #f
                  'lemmas
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$653 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  344
                  #f
                  #f
                  #f
                  1
                  (344)
                  #f
                  (cadr term$324)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$654 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  348
                  #f
                  #f
                  #f
                  1
                  (348)
                  #f
                  (cadr term$324)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((cdar .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(? ? #f #f #f 1 (250) #f #f 1 0 #t #f #f))))
      ((r$656 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  356
                  #f
                  #f
                  #f
                  1
                  (356)
                  #f
                  (pair? term$324)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$657 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  353
                  #f
                  #f
                  #f
                  1
                  (353)
                  #f
                  (eq? r$659 r$660)
                  0
                  0
                  #t
                  #f
                  #f)))
       (number->string
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (478 476) #f #f 2 0 #t #f #f))))
      ((r$658 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  352
                  #f
                  #f
                  #f
                  1
                  (352)
                  #f
                  (cadr term$324)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$659 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  355
                  #f
                  #f
                  #f
                  1
                  (354)
                  #f
                  (car term$324)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((number?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (125 466) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((write .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  3
                  (423 402 404)
                  #f
                  #f
                  3
                  0
                  #f
                  #f
                  #f))))
      ((vector-set!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (283) #f #f 1 0 #t #f #f)))
       (add-lemma-lst$253
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (370 362 360)
             #f
             r$661
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((r$360 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  376
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! alist r$671)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$361 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  374
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term r$670)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((alist .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  #f
                  #f
                  #f
                  3
                  (377 -1 468)
                  #t
                  r$671
                  0
                  1
                  #f
                  #f
                  #f)))
       (r$362 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  1
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! test-boyer r$404)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$363 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  368
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! setup$254 r$667)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$364 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  359
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! add-lemma-lst$253 r$661)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$365 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  338
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! add-lemma$252 r$643)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$366 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  328
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-term$251 r$636)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$367 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  318
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-args$250 r$629)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$368 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  308
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! untranslate-term$249 r$622)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$369 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  304
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! put$248 r$619)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$660 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 354 #f #f #f 1 (354) #f 'equal 0 1 #t #f #f))))
      ((j0$335
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 431 #f #f #f 1 (414) #f r$686 0 1 #t #f #f)))
       (r$661 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  360
                  #f
                  #f
                  #f
                  1
                  (360)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(367
                      (k$662 lst$325)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(366
                            (r$663)
                            ((if r$663
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(361 () ((k$662 #t)) #f)))
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(365
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(364
                                          (r$666)
                                          ((add-lemma$252
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(363
                                                 (r$664)
                                                 ((#((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(362
                                                       (r$665)
                                                       ((add-lemma-lst$253
                                                          k$662
                                                          r$665))
                                                       #f))
                                                   (cdr lst$325)))
                                                 #f))
                                             r$666))
                                          #f))
                                      (car lst$325)))
                                    #f)))))
                            #f))
                        (null? lst$325)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$663 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  366
                  #f
                  #f
                  #f
                  1
                  (366)
                  #f
                  (null? lst$325)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$664 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 363 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$665 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  362
                  #f
                  #f
                  #f
                  1
                  (362)
                  #f
                  (cdr lst$325)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$666 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  364
                  #f
                  #f
                  #f
                  1
                  (364)
                  #f
                  (car lst$325)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$667 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  369
                  #f
                  #f
                  #f
                  1
                  (369)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(371
                      (k$668)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(370
                            (r$669)
                            ((add-lemma-lst$253 k$668 r$669))
                            #f))
                        '((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))))))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$669 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  370
                  #f
                  #f
                  #f
                  1
                  (370)
                  #f
                  '((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))))
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((count$328
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (427) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((tautp$188
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 380 #f #t #f 0 () #f #f 0 0 #t #f #f)))
       (r$370 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  300
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get$247 r$616)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$371 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  290
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! symbol->symbol-record$246 r$609)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$372 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  288
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 r$608)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$373 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  284
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! make-symbol-record$244 r$605)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$374 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  281
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! put-lemmas!$243 r$603)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$375 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  278
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get-lemmas$242 r$601)
                  0
                  0
                  #t
                  #f
                  #f)))
       (term1$276
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             129
             #f
             #f
             #f
             6
             (123 119 117 128 116 110)
             #f
             #f
             0
             6
             #f
             #f
             #f))))
      ((r2$306
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f)))
       (r$376 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  275
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get-name$241 r$599)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$377 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  272
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! symbol-record-equal?$240 r$597)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$378 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  254
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! test$239 r$583)
                  0
                  0
                  #t
                  #f
                  #f)))
       (term1$279
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f))))
      ((r$379 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  242
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-alist$238 r$574)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$670 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  375
                  #f
                  #f
                  #f
                  1
                  (375)
                  #f
                  '(implies
                     (and (implies x y)
                          (and (implies y z)
                               (and (implies z u) (implies u w))))
                     (implies x w))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$671 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  377
                  #f
                  #f
                  #f
                  1
                  (377)
                  #f
                  '((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
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$675 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 381 #f #f #f 1 (381) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((scons$231
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (176 166 154)
             #f
             r$527
             2
             0
             #f
             #f
             #f))))
      ((r$679 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  442
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rounded$331 r$724)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((term-member?$215
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (89 84 25 22)
             #f
             r$421
             3
             0
             #f
             #f
             #f))))
      ()
      ((equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (119 69 54) #f #f 3 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$380 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  231
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! apply-subst$237 r$567)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$381 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  221
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! apply-subst-lst$236 r$560)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$382 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  215
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tautp$235 r$555)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$383 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  186
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tautologyp$234 r$535)
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$260 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 30 #f #f #f 2 (28 25) #f #f 0 2 #f #f #f))))
      ((r$384 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  184
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! if-constructor$233 r$534)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$385 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  183
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 0)
                  0
                  0
                  #t
                  #f
                  #f)))
       (cadr .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 8
                 (349 345 353 206 204 200 196 148)
                 #f
                 #f
                 8
                 0
                 #t
                 #f
                 #f))))
      ((r$386 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  175
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! scons$231 r$527)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((rewrite-with-lemmas$228
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (163 144 138)
             #f
             r$499
             2
             0
             #f
             #f
             #f)))
       (r$387 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  161
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite$230 r$516)
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$264 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (56 54 52 49)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((r$388 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  151
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-args$229 r$509)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$389 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  137
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-with-lemmas$228 r$499)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$680 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 441 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (x$268 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 86 #f #f #f 2 (86 84) #f #f 0 2 #f #f #f))))
      ((r$681 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 440 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$682 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 439 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$683 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$684 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 436 #f #f #f 1 (436) #f #f 0 1 #t #f #f))))
      ((r$685 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 434 #f #f #f 1 (434) #f #f 0 1 #t #f #f))))
      ((hide .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 461
                 #f
                 #f
                 2
                 (-1 469)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(461
                      (k$730 r$348 x$347)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(453
                            (r$731)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(450
                                  (r$732)
                                  ((call-with-values k$730 r$731 r$732))
                                  #f))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(452
                                  (k$733 v$350 i$349)
                                  ((#((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(451 (r$734) ((r$734 k$733 x$347)) #f))
                                    (vector-ref v$350 i$349)))
                                  #t))))
                            #f))
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(460
                            (k$735)
                            ((#((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(458
                                  (r$740)
                                  ((vector
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(457
                                         (r$736)
                                         ((#((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(456
                                               (k$738)
                                               ((#((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(455
                                                     (r$739)
                                                     ((if r$739
                                                        (k$738 0)
                                                        (k$738 1)))
                                                     #f))
                                                 (Cyc-fast-lt r$348 100)))
                                               #t))
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(454
                                               (r$737)
                                               ((values k$735 r$736 r$737))
                                               #f))))
                                         #f))
                                     values
                                     r$740))
                                  #f))
                              #((record-marker)
                                #((record-marker) #f (id args body has-cont))
                                #(459 (k$741 x$351) ((k$741 x$351)) #t))))
                            #t))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f)))
       (r$686 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 432 #f #f #f 1 (432) #f #f 0 1 #t #f #f))))
      ((r$687 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  383
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! loop$338 r$688)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$688 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  384
                  #f
                  #f
                  #f
                  1
                  (384)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(427
                      (k$689 i$340 result$339)
                      ((#((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(426
                            (r$690)
                            ((if r$690
                               (#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(387
                                    ()
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(386
                                          (r$691)
                                          ((thunk$327
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(385
                                                 (r$692)
                                                 ((loop$338 k$689 r$691 r$692))
                                                 #f))))
                                          #f))
                                      (Cyc-fast-plus i$340 1)))
                                    #f)))
                               (ok?$326
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(425
                                     (r$693)
                                     ((if r$693
                                        (#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(418
                                             ()
                                             ((current-jiffy
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(417
                                                    (r$695)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(416
                                                          (j1$341)
                                                          ((current-second
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(415
                                                                 (r$696)
                                                                 ((#((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(414
                                                                       (t1$342)
                                                                       ((#((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(413
                                                                             (r$697)
                                                                             ((#((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(412
                                                                                   (jifs$343)
                                                                                   ((#((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(411
                                                                                         (r$717)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(410
                                                                                               (r$698)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(409
                                                                                                     (secs$344)
                                                                                                     ((#((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(408
                                                                                                           (r$716)
                                                                                                           ((rounded$331
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(407
                                                                                                                  (r$699)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(406
                                                                                                                        (secs2$345)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(405
                                                                                                                              ()
                                                                                                                              ((display
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(404
                                                                                                                                     (r$700)
                                                                                                                                     ((write #((record-marker)
                                                                                                                                               #((record-marker)
                                                                                                                                                 #f
                                                                                                                                                 (id args
                                                                                                                                                     body
                                                                                                                                                     has-cont))
                                                                                                                                               #(403
                                                                                                                                                 (r$701)
                                                                                                                                                 ((display
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #((record-marker)
                                                                                                                                                        #f
                                                                                                                                                        (id args
                                                                                                                                                            body
                                                                                                                                                            has-cont))
                                                                                                                                                      #(402
                                                                                                                                                        (r$702)
                                                                                                                                                        ((write #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(401
                                                                                                                                                                    (r$703)
                                                                                                                                                                    ((display
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(400
                                                                                                                                                                           (r$704)
                                                                                                                                                                           ((display
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(399
                                                                                                                                                                                  (r$705)
                                                                                                                                                                                  ((newline
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(398
                                                                                                                                                                                         (r$706)
                                                                                                                                                                                         ((display
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(397
                                                                                                                                                                                                (r$707)
                                                                                                                                                                                                ((this-scheme-implementation-name
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #f
                                                                                                                                                                                                       (id args
                                                                                                                                                                                                           body
                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                     #(396
                                                                                                                                                                                                       (r$715)
                                                                                                                                                                                                       ((display
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #f
                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                  body
                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                            #(395
                                                                                                                                                                                                              (r$708)
                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                         body
                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                   #(394
                                                                                                                                                                                                                     (r$709)
                                                                                                                                                                                                                     ((display
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                          #(393
                                                                                                                                                                                                                            (r$710)
                                                                                                                                                                                                                            ((display
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                 #(392
                                                                                                                                                                                                                                   (r$711)
                                                                                                                                                                                                                                   ((display
                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(391
                                                                                                                                                                                                                                          (r$712)
                                                                                                                                                                                                                                          ((newline
                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                               #(390
                                                                                                                                                                                                                                                 (r$713)
                                                                                                                                                                                                                                                 ((current-output-port
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(389
                                                                                                                                                                                                                                                        (r$714)
                                                                                                                                                                                                                                                        ((flush-output-port
                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                                                             #(388
                                                                                                                                                                                                                                                               (r$694)
                                                                                                                                                                                                                                                               ((k$689 result$339))
                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                           r$714))
                                                                                                                                                                                                                                                        #f))))
                                                                                                                                                                                                                                                 #f))))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      secs$344))
                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                               ","))
                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                        name$329))
                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                 ","))
                                                                                                                                                                                                              #f))
                                                                                                                                                                                                          r$715))
                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            "+!CSVLINE!+"))
                                                                                                                                                                                         #f))))
                                                                                                                                                                                  #f))
                                                                                                                                                                              name$329))
                                                                                                                                                                           #f))
                                                                                                                                                                       ") for "))
                                                                                                                                                                    #f))
                                                                                                                                                                secs2$345))
                                                                                                                                                        #f))
                                                                                                                                                    " seconds ("))
                                                                                                                                                 #f))
                                                                                                                                             secs$344))
                                                                                                                                     #f))
                                                                                                                                 "Elapsed time: "))
                                                                                                                              #f))))
                                                                                                                        #f))
                                                                                                                    r$699))
                                                                                                                  #f))
                                                                                                              r$716))
                                                                                                           #f))
                                                                                                       (Cyc-fast-sub
                                                                                                         t1$342
                                                                                                         t0$334)))
                                                                                                     #f))
                                                                                                 r$698))
                                                                                               #f))
                                                                                           (inexact__inline__
                                                                                             r$717)))
                                                                                         #f))
                                                                                     (Cyc-fast-div
                                                                                       jifs$343
                                                                                       j/s$333)))
                                                                                   #f))
                                                                               r$697))
                                                                             #f))
                                                                         (Cyc-fast-sub
                                                                           j1$341
                                                                           j0$335)))
                                                                       #f))
                                                                   r$696))
                                                                 #f))))
                                                          #f))
                                                      r$695))
                                                    #f))))
                                             #f)))
                                        (#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(424
                                             ()
                                             ((display
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(423
                                                    (r$718)
                                                    ((write #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(422
                                                                (r$719)
                                                                ((newline
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(421
                                                                       (r$720)
                                                                       ((current-output-port
                                                                          #((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(420
                                                                              (r$722)
                                                                              ((flush-output-port
                                                                                 #((record-marker)
                                                                                   #((record-marker)
                                                                                     #f
                                                                                     (id args
                                                                                         body
                                                                                         has-cont))
                                                                                   #(419
                                                                                     (r$721)
                                                                                     ((k$689 result$339))
                                                                                     #f))
                                                                                 r$722))
                                                                              #f))))
                                                                       #f))))
                                                                #f))
                                                            result$339))
                                                    #f))
                                                "ERROR: returned incorrect result: "))
                                             #f)))))
                                     #f))
                                 result$339)))
                            #f))
                        (Cyc-fast-lt i$340 count$328)))
                      #t))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((true-lst$288
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             214
             #f
             #f
             #f
             6
             (214 205 199 194 192 190)
             #f
             #f
             0
             6
             #f
             #f
             #f))))
      ((r$390 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  135
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 r$498)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$391 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  130
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify$226 r$494)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$392 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  106
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify1$225 r$479)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$393 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  92
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify1-lst$224 r$470)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$394 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  87
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! falsep$223 r$467)
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$271 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 91 #f #f #f 2 (91 89) #f #f 0 2 #f #f #f))))
      ((r$395 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  82
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! truep$222 r$464)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$396 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  80
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! false-term$221 r$463)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$397 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  78
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! true-term$220 r$462)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$398 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  70
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! trans-of-implies$219 r$455)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$399 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  57
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! trans-of-implies1$218 r$445)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((display
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             13
             (424
              392
              393
              394
              395
              396
              398
              400
              401
              403
              405
              441
              442)
             #f
             #f
             13
             0
             #f
             #f
             #f)))
       (r$690 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  426
                  #f
                  #f
                  #f
                  1
                  (426)
                  #f
                  (Cyc-fast-lt i$340 count$328)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$691 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  386
                  #f
                  #f
                  #f
                  1
                  (385)
                  #f
                  (Cyc-fast-plus i$340 1)
                  0
                  1
                  #f
                  #f
                  #f))))
      ((r$692 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 385 #f #f #f 1 (385) #f #f 0 1 #t #f #f))))
      ((r$693 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 425 #f #f #f 1 (425) #f #f 0 0 #t #f #f))))
      ((r$694 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 388 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$695 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 417 #f #f #f 1 (417) #f #f 0 1 #t #f #f))))
      ((r$696 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 415 #f #f #f 1 (415) #f #f 0 1 #t #f #f))))
      ((r$697 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  413
                  #f
                  #f
                  #f
                  1
                  (413)
                  #f
                  (Cyc-fast-sub j1$341 j0$335)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$698 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  410
                  #f
                  #f
                  #f
                  1
                  (410)
                  #f
                  (inexact__inline__ r$717)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$699 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 407 #f #f #f 1 (407) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((count$352
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             482
             #f
             #f
             #f
             3
             (478 469 464)
             #f
             r$755
             0
             3
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$600 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 277 #f #f #f 1 (277) #f #f 1 0 #t #f #t))))
      ()
      ((k$602 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 280 #f #f #f 1 (280) #f #f 1 0 #t #f #t))))
      ((trans-of-implies$219
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 372 #f #f #f 1 (71) #f r$455 0 0 #f #f #f))))
      ((k$604 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 283 #f #f #f 1 (283) #f #f 1 0 #t #f #t))))
      ()
      ((k$606 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 287 #f #f #f 1 (286) #f #f 0 1 #f #f #t))))
      ((x$286 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 180) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((x$289 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  214
                  #f
                  #f
                  #f
                  12
                  (214 213 212 211 206 204 201 200 197 196 193 191)
                  #f
                  #f
                  0
                  12
                  #f
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((translate-alist$238
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (271 246 243)
             #f
             r$574
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$610 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 299 #f #f #f 2 (292 297) #f #f 2 0 #t #f #t))))
      ((x$290 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 220 #f #f #f 1 (220) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$617 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 303 #f #f #f 1 (302) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$620 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 307 #f #f #f 1 (306) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((k$623 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 317 #f #f #f 2 (315 310) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((put-lemmas!$243
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (306 282)
             #f
             r$603
             1
             0
             #f
             #f
             #f))))
      ()
      ((ok?$326
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (426) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((vector-ref
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (280 277 452)
             #f
             #f
             3
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((k$630 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 327 #f #f #f 2 (321 320) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ())))
 */
/* 
"---------------- after cps optimizations (1):"
 */
/* 
((define main
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(484
       (k$754)
       ((read #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(482
                  (count$352)
                  ((read #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(480
                             (input$353)
                             ((read #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(478
                                        (output$354)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(476
                                              (s2$355)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(474
                                                    (s1$356)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(471
                                                          (r$760)
                                                          ((run-r7rs-benchmark
                                                             k$754
                                                             r$760
                                                             count$352
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(470
                                                                 (k$765)
                                                                 ((setup-boyer
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(469
                                                                        (r$766)
                                                                        ((hide #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(468
                                                                                   (r$767)
                                                                                   ((test-boyer
                                                                                      k$765
                                                                                      alist
                                                                                      term
                                                                                      r$767))
                                                                                   #f))
                                                                               count$352
                                                                               input$353))
                                                                        #f))))
                                                                 #t))
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(466
                                                                 (k$763 rewrites$358)
                                                                 ((if (number?
                                                                        rewrites$358)
                                                                    (k$763 (Cyc-fast-eq
                                                                             rewrites$358
                                                                             output$354))
                                                                    (k$763 #f)))
                                                                 #t))))
                                                          #f))
                                                      (string-append
                                                        "sboyer"
                                                        ":"
                                                        s1$356
                                                        ":"
                                                        s2$355)))
                                                    #f))
                                                (number->string input$353)))
                                              #f))
                                          (number->string count$352)))
                                        #f))))
                             #f))))
                  #f))))
       #t)))
 (define alist #f)
 (define term #f)
 (define setup-boyer
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(463 (k$747) ((k$747 #t)) #t)))
 (define test-boyer
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(462 (k$744) ((k$744 #t)) #t)))
 (define hide
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(461
       (k$730 r$348 x$347)
       ((call-with-values
          k$730
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(460
              (k$735)
              ((vector
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(457
                     (r$736)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(456
                           (k$738)
                           ((if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(454 (r$737) ((values k$735 r$736 r$737)) #f))))
                     #f))
                 values
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(459 (k$741 x$351) ((k$741 x$351)) #t))))
              #t))
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(452
              (k$733 v$350 i$349)
              (((vector-ref v$350 i$349) k$733 x$347))
              #t))))
       #t)))
 (define run-r7rs-benchmark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(449
       (k$678 name$329 count$328 thunk$327 ok?$326)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(448
             (rounded$331)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(442
                   (r$679)
                   ((display
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(441
                          (r$680)
                          ((display
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(440
                                 (r$681)
                                 ((newline
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(439
                                        (r$682)
                                        ((current-output-port
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(438
                                               (r$723)
                                               ((flush-output-port
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(437
                                                      (r$683)
                                                      ((jiffies-per-second
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(435
                                                             (j/s$333)
                                                             ((current-second
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(433
                                                                    (t0$334)
                                                                    ((current-jiffy
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(431
                                                                           (j0$335)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(428
                                                                                 (loop$338)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(383
                                                                                       (r$687)
                                                                                       ((loop$338
                                                                                          k$678
                                                                                          0
                                                                                          #f))
                                                                                       #f))
                                                                                   (set! loop$338
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(427
                                                                                         (k$689 i$340
                                                                                                result$339)
                                                                                         ((if (Cyc-fast-lt
                                                                                                i$340
                                                                                                count$328)
                                                                                            (thunk$327
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(385
                                                                                                  (r$692)
                                                                                                  ((loop$338
                                                                                                     k$689
                                                                                                     (Cyc-fast-plus
                                                                                                       i$340
                                                                                                       1)
                                                                                                     r$692))
                                                                                                  #f)))
                                                                                            (ok?$326
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(425
                                                                                                  (r$693)
                                                                                                  ((if r$693
                                                                                                     (current-jiffy
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(416
                                                                                                           (j1$341)
                                                                                                           ((current-second
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(414
                                                                                                                  (t1$342)
                                                                                                                  ((rounded$331
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(406
                                                                                                                         (secs2$345)
                                                                                                                         ((display
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(404
                                                                                                                                (r$700)
                                                                                                                                ((write #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(403
                                                                                                                                            (r$701)
                                                                                                                                            ((display
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(402
                                                                                                                                                   (r$702)
                                                                                                                                                   ((write #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(401
                                                                                                                                                               (r$703)
                                                                                                                                                               ((display
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(400
                                                                                                                                                                      (r$704)
                                                                                                                                                                      ((display
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(399
                                                                                                                                                                             (r$705)
                                                                                                                                                                             ((newline
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(398
                                                                                                                                                                                    (r$706)
                                                                                                                                                                                    ((display
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(397
                                                                                                                                                                                           (r$707)
                                                                                                                                                                                           ((this-scheme-implementation-name
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(396
                                                                                                                                                                                                  (r$715)
                                                                                                                                                                                                  ((display
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(395
                                                                                                                                                                                                         (r$708)
                                                                                                                                                                                                         ((display
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(394
                                                                                                                                                                                                                (r$709)
                                                                                                                                                                                                                ((display
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                           body
                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                     #(393
                                                                                                                                                                                                                       (r$710)
                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(392
                                                                                                                                                                                                                              (r$711)
                                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                   #(391
                                                                                                                                                                                                                                     (r$712)
                                                                                                                                                                                                                                     ((newline
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(390
                                                                                                                                                                                                                                            (r$713)
                                                                                                                                                                                                                                            ((current-output-port
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(389
                                                                                                                                                                                                                                                   (r$714)
                                                                                                                                                                                                                                                   ((flush-output-port
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                        #(388
                                                                                                                                                                                                                                                          (r$694)
                                                                                                                                                                                                                                                          ((k$689 result$339))
                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                      r$714))
                                                                                                                                                                                                                                                   #f))))
                                                                                                                                                                                                                                            #f))))
                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                 (inexact__inline__
                                                                                                                                                                                                                                   (Cyc-fast-div
                                                                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                                                                       j1$341
                                                                                                                                                                                                                                       j0$335)
                                                                                                                                                                                                                                     j/s$333))))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          ","))
                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                   name$329))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            ","))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$715))
                                                                                                                                                                                                  #f))))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       "+!CSVLINE!+"))
                                                                                                                                                                                    #f))))
                                                                                                                                                                             #f))
                                                                                                                                                                         name$329))
                                                                                                                                                                      #f))
                                                                                                                                                                  ") for "))
                                                                                                                                                               #f))
                                                                                                                                                           secs2$345))
                                                                                                                                                   #f))
                                                                                                                                               " seconds ("))
                                                                                                                                            #f))
                                                                                                                                        (inexact__inline__
                                                                                                                                          (Cyc-fast-div
                                                                                                                                            (Cyc-fast-sub
                                                                                                                                              j1$341
                                                                                                                                              j0$335)
                                                                                                                                            j/s$333))))
                                                                                                                                #f))
                                                                                                                            "Elapsed time: "))
                                                                                                                         #f))
                                                                                                                     (Cyc-fast-sub
                                                                                                                       t1$342
                                                                                                                       t0$334)))
                                                                                                                  #f))))
                                                                                                           #f)))
                                                                                                     (display
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(423
                                                                                                           (r$718)
                                                                                                           ((write #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(422
                                                                                                                       (r$719)
                                                                                                                       ((newline
                                                                                                                          #((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(421
                                                                                                                              (r$720)
                                                                                                                              ((current-output-port
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(420
                                                                                                                                     (r$722)
                                                                                                                                     ((flush-output-port
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(419
                                                                                                                                            (r$721)
                                                                                                                                            ((k$689 result$339))
                                                                                                                                            #f))
                                                                                                                                        r$722))
                                                                                                                                     #f))))
                                                                                                                              #f))))
                                                                                                                       #f))
                                                                                                                   result$339))
                                                                                                           #f))
                                                                                                       "ERROR: returned incorrect result: ")))
                                                                                                  #f))
                                                                                              result$339)))
                                                                                         #t)))))
                                                                                 #f))
                                                                             #f))
                                                                           #f))))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  r$723))
                                               #f))))
                                        #f))))
                                 #f))
                             name$329))
                          #f))
                      "Running "))
                   #f))
               (set! rounded$331
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(446
                     (k$725 x$346)
                     ((k$725 (Cyc-fast-div
                               (round__inline__ (Cyc-fast-mul 1000 x$346))
                               1000)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define this-scheme-implementation-name
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(382
       (k$674)
       ((Cyc-version
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(381
              (r$675)
              ((k$674 (string-append "cyclone-" r$675)))
              #f))))
       #t)))
 (#((record-marker)
    #((record-marker) #f (id args body has-cont))
    #(376
      (r$360)
      ((#((record-marker)
          #((record-marker) #f (id args body has-cont))
          #(374
            (r$361)
            ((#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(372
                  (setup$254
                    add-lemma-lst$253
                    add-lemma$252
                    translate-term$251
                    translate-args$250
                    untranslate-term$249
                    put$248
                    get$247
                    symbol->symbol-record$246
                    *symbol-records-alist*$245
                    make-symbol-record$244
                    put-lemmas!$243
                    get-lemmas$242
                    get-name$241
                    symbol-record-equal?$240
                    test$239
                    translate-alist$238
                    apply-subst$237
                    apply-subst-lst$236
                    tautp$235
                    tautologyp$234
                    if-constructor$233
                    rewrite-count$232
                    scons$231
                    rewrite$230
                    rewrite-args$229
                    rewrite-with-lemmas$228
                    unify-subst$227
                    one-way-unify$226
                    one-way-unify1$225
                    one-way-unify1-lst$224
                    falsep$223
                    truep$222
                    false-term$221
                    true-term$220
                    trans-of-implies$219
                    trans-of-implies1$218
                    term-equal?$217
                    term-args-equal?$216
                    term-member?$215)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(368
                        (r$363)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(359
                              (r$364)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(338
                                    (r$365)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(328
                                          (r$366)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(318
                                                (r$367)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(308
                                                      (r$368)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(304
                                                            (r$369)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(300
                                                                  (r$370)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(290
                                                                        (r$371)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(288
                                                                              (r$372)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(284
                                                                                    (r$373)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(281
                                                                                          (r$374)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(278
                                                                                                (r$375)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(275
                                                                                                      (r$376)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(272
                                                                                                            (r$377)
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(254
                                                                                                                  (r$378)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(242
                                                                                                                        (r$379)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(231
                                                                                                                              (r$380)
                                                                                                                              ((#((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(221
                                                                                                                                    (r$381)
                                                                                                                                    ((#((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(215
                                                                                                                                          (r$382)
                                                                                                                                          ((#((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(186
                                                                                                                                                (r$383)
                                                                                                                                                ((#((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(184
                                                                                                                                                      (r$384)
                                                                                                                                                      ((#((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(183
                                                                                                                                                            (r$385)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(175
                                                                                                                                                                  (r$386)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(161
                                                                                                                                                                        (r$387)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(151
                                                                                                                                                                              (r$388)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(137
                                                                                                                                                                                    (r$389)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(135
                                                                                                                                                                                          (r$390)
                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(130
                                                                                                                                                                                                (r$391)
                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(106
                                                                                                                                                                                                      (r$392)
                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(92
                                                                                                                                                                                                            (r$393)
                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                      body
                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                #(87
                                                                                                                                                                                                                  (r$394)
                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                            body
                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                      #(82
                                                                                                                                                                                                                        (r$395)
                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(80
                                                                                                                                                                                                                              (r$396)
                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                  #(78
                                                                                                                                                                                                                                    (r$397)
                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(70
                                                                                                                                                                                                                                          (r$398)
                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(57
                                                                                                                                                                                                                                                (r$399)
                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                    #(45
                                                                                                                                                                                                                                                      (r$400)
                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(31
                                                                                                                                                                                                                                                            (r$401)
                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                #(21
                                                                                                                                                                                                                                                                  (r$402)
                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                      #(7
                                                                                                                                                                                                                                                                        (r$403)
                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(1
                                                                                                                                                                                                                                                                              (r$362)
                                                                                                                                                                                                                                                                              ((main %halt))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          (set! test-boyer
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                              #(6
                                                                                                                                                                                                                                                                                (k$405 alist$257
                                                                                                                                                                                                                                                                                       term$256
                                                                                                                                                                                                                                                                                       n$255)
                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(5
                                                                                                                                                                                                                                                                                      (r$406)
                                                                                                                                                                                                                                                                                      ((test$239
                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(3
                                                                                                                                                                                                                                                                                             (answer$258)
                                                                                                                                                                                                                                                                                             ((if answer$258
                                                                                                                                                                                                                                                                                                (k$405 rewrite-count$232)
                                                                                                                                                                                                                                                                                                (k$405 #f)))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         alist$257
                                                                                                                                                                                                                                                                                         term$256
                                                                                                                                                                                                                                                                                         n$255))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  (set! rewrite-count$232
                                                                                                                                                                                                                                                                                    0)))
                                                                                                                                                                                                                                                                                #t)))))
                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                    (set! setup-boyer
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                        #(20
                                                                                                                                                                                                                                                                          (k$409)
                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                              #(18
                                                                                                                                                                                                                                                                                (r$410)
                                                                                                                                                                                                                                                                                ((symbol->symbol-record$246
                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                     #(16
                                                                                                                                                                                                                                                                                       (r$418)
                                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(15
                                                                                                                                                                                                                                                                                             (r$411)
                                                                                                                                                                                                                                                                                             ((translate-term$251
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                  #(13
                                                                                                                                                                                                                                                                                                    (r$416)
                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                        #(12
                                                                                                                                                                                                                                                                                                          (r$412)
                                                                                                                                                                                                                                                                                                          ((translate-term$251
                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                               #(10
                                                                                                                                                                                                                                                                                                                 (r$414)
                                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                     #(9
                                                                                                                                                                                                                                                                                                                       (r$413)
                                                                                                                                                                                                                                                                                                                       ((setup$254
                                                                                                                                                                                                                                                                                                                          k$409))
                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                   (set! true-term$220
                                                                                                                                                                                                                                                                                                                     r$414)))
                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                             '(t)))
                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                      (set! false-term$221
                                                                                                                                                                                                                                                                                                        r$416)))
                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                '(f)))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         (set! if-constructor$233
                                                                                                                                                                                                                                                                                           r$418)))
                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                   'if))
                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                            (set! *symbol-records-alist*$245
                                                                                                                                                                                                                                                                              '())))
                                                                                                                                                                                                                                                                          #t)))))
                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                              (set! term-member?$215
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                  #(30
                                                                                                                                                                                                                                                                    (k$422 x$260
                                                                                                                                                                                                                                                                           lst$259)
                                                                                                                                                                                                                                                                    ((if (null? lst$259)
                                                                                                                                                                                                                                                                       (k$422 #f)
                                                                                                                                                                                                                                                                       (term-equal?$217
                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                           #(27
                                                                                                                                                                                                                                                                             (r$424)
                                                                                                                                                                                                                                                                             ((if r$424
                                                                                                                                                                                                                                                                                (k$422 #t)
                                                                                                                                                                                                                                                                                (term-member?$215
                                                                                                                                                                                                                                                                                  k$422
                                                                                                                                                                                                                                                                                  x$260
                                                                                                                                                                                                                                                                                  (cdr lst$259))))
                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                         x$260
                                                                                                                                                                                                                                                                         (car lst$259))))
                                                                                                                                                                                                                                                                    #t)))))
                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                        (set! term-args-equal?$216
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(44
                                                                                                                                                                                                                                                              (k$428 lst1$262
                                                                                                                                                                                                                                                                     lst2$261)
                                                                                                                                                                                                                                                              ((if (null? lst1$262)
                                                                                                                                                                                                                                                                 (k$428 (null? lst2$261))
                                                                                                                                                                                                                                                                 (if (null? lst2$261)
                                                                                                                                                                                                                                                                   (k$428 #f)
                                                                                                                                                                                                                                                                   (term-equal?$217
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                       #(39
                                                                                                                                                                                                                                                                         (r$431)
                                                                                                                                                                                                                                                                         ((if r$431
                                                                                                                                                                                                                                                                            (term-args-equal?$216
                                                                                                                                                                                                                                                                              k$428
                                                                                                                                                                                                                                                                              (cdr lst1$262)
                                                                                                                                                                                                                                                                              (cdr lst2$261))
                                                                                                                                                                                                                                                                            (k$428 #f)))
                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                     (car lst1$262)
                                                                                                                                                                                                                                                                     (car lst2$261)))))
                                                                                                                                                                                                                                                              #t)))))
                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                  (set! term-equal?$217
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(56
                                                                                                                                                                                                                                                        (k$437 x$264
                                                                                                                                                                                                                                                               y$263)
                                                                                                                                                                                                                                                        ((if (pair? x$264)
                                                                                                                                                                                                                                                           (if (pair? y$263)
                                                                                                                                                                                                                                                             (symbol-record-equal?$240
                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                                 #(49
                                                                                                                                                                                                                                                                   (r$440)
                                                                                                                                                                                                                                                                   ((if r$440
                                                                                                                                                                                                                                                                      (term-args-equal?$216
                                                                                                                                                                                                                                                                        k$437
                                                                                                                                                                                                                                                                        (cdr x$264)
                                                                                                                                                                                                                                                                        (cdr y$263))
                                                                                                                                                                                                                                                                      (k$437 #f)))
                                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                                               (car x$264)
                                                                                                                                                                                                                                                               (car y$263))
                                                                                                                                                                                                                                                             (k$437 #f))
                                                                                                                                                                                                                                                           (k$437 (equal?
                                                                                                                                                                                                                                                                    x$264
                                                                                                                                                                                                                                                                    y$263))))
                                                                                                                                                                                                                                                        #t)))))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            (set! trans-of-implies1$218
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                #(69
                                                                                                                                                                                                                                                  (k$446 n$265)
                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(68
                                                                                                                                                                                                                                                        (r$447)
                                                                                                                                                                                                                                                        ((if r$447
                                                                                                                                                                                                                                                           (list k$446
                                                                                                                                                                                                                                                                 'implies
                                                                                                                                                                                                                                                                 0
                                                                                                                                                                                                                                                                 1)
                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                              #(64
                                                                                                                                                                                                                                                                (r$454)
                                                                                                                                                                                                                                                                ((list #((record-marker)
                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                         #(63
                                                                                                                                                                                                                                                                           (r$450)
                                                                                                                                                                                                                                                                           ((trans-of-implies1$218
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                #(61
                                                                                                                                                                                                                                                                                  (r$451)
                                                                                                                                                                                                                                                                                  ((list k$446
                                                                                                                                                                                                                                                                                         'and
                                                                                                                                                                                                                                                                                         r$450
                                                                                                                                                                                                                                                                                         r$451))
                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                                                                                                                                n$265
                                                                                                                                                                                                                                                                                1)))
                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                       'implies
                                                                                                                                                                                                                                                                       r$454
                                                                                                                                                                                                                                                                       n$265))
                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                                                                                                              n$265
                                                                                                                                                                                                                                                              1))))
                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                    (equal?
                                                                                                                                                                                                                                                      n$265
                                                                                                                                                                                                                                                      1)))
                                                                                                                                                                                                                                                  #t)))))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      (set! trans-of-implies$219
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(77
                                                                                                                                                                                                                                            (k$456 n$266)
                                                                                                                                                                                                                                            ((trans-of-implies1$218
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(75
                                                                                                                                                                                                                                                   (r$459)
                                                                                                                                                                                                                                                   ((list #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(73
                                                                                                                                                                                                                                                              (r$460)
                                                                                                                                                                                                                                                              ((list #((record-marker)
                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                       #(72
                                                                                                                                                                                                                                                                         (r$457)
                                                                                                                                                                                                                                                                         ((translate-term$251
                                                                                                                                                                                                                                                                            k$456
                                                                                                                                                                                                                                                                            r$457))
                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                     'implies
                                                                                                                                                                                                                                                                     r$459
                                                                                                                                                                                                                                                                     r$460))
                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                          'implies
                                                                                                                                                                                                                                                          0
                                                                                                                                                                                                                                                          n$266))
                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                               n$266))
                                                                                                                                                                                                                                            #t)))))
                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                (set! true-term$220
                                                                                                                                                                                                                                  '*)))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          (set! false-term$221
                                                                                                                                                                                                                            '*)))
                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                    (set! truep$222
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                              body
                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                        #(86
                                                                                                                                                                                                                          (k$465 x$268
                                                                                                                                                                                                                                 lst$267)
                                                                                                                                                                                                                          ((term-equal?$217
                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(84
                                                                                                                                                                                                                                 (tmp$120$269)
                                                                                                                                                                                                                                 ((if tmp$120$269
                                                                                                                                                                                                                                    (k$465 tmp$120$269)
                                                                                                                                                                                                                                    (term-member?$215
                                                                                                                                                                                                                                      k$465
                                                                                                                                                                                                                                      x$268
                                                                                                                                                                                                                                      lst$267)))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             x$268
                                                                                                                                                                                                                             true-term$220))
                                                                                                                                                                                                                          #t)))))
                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                              (set! falsep$223
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(91
                                                                                                                                                                                                                    (k$468 x$271
                                                                                                                                                                                                                           lst$270)
                                                                                                                                                                                                                    ((term-equal?$217
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(89
                                                                                                                                                                                                                           (tmp$117$272)
                                                                                                                                                                                                                           ((if tmp$117$272
                                                                                                                                                                                                                              (k$468 tmp$117$272)
                                                                                                                                                                                                                              (term-member?$215
                                                                                                                                                                                                                                k$468
                                                                                                                                                                                                                                x$271
                                                                                                                                                                                                                                lst$270)))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       x$271
                                                                                                                                                                                                                       false-term$221))
                                                                                                                                                                                                                    #t)))))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        (set! one-way-unify1-lst$224
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #f
                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                  body
                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                            #(105
                                                                                                                                                                                                              (k$471 lst1$274
                                                                                                                                                                                                                     lst2$273)
                                                                                                                                                                                                              ((if (null? lst1$274)
                                                                                                                                                                                                                 (k$471 (null? lst2$273))
                                                                                                                                                                                                                 (if (null? lst2$273)
                                                                                                                                                                                                                   (k$471 #f)
                                                                                                                                                                                                                   (one-way-unify1$225
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                             body
                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                       #(100
                                                                                                                                                                                                                         (r$474)
                                                                                                                                                                                                                         ((if r$474
                                                                                                                                                                                                                            (one-way-unify1-lst$224
                                                                                                                                                                                                                              k$471
                                                                                                                                                                                                                              (cdr lst1$274)
                                                                                                                                                                                                                              (cdr lst2$273))
                                                                                                                                                                                                                            (k$471 #f)))
                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                     (car lst1$274)
                                                                                                                                                                                                                     (car lst2$273)))))
                                                                                                                                                                                                              #t)))))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  (set! one-way-unify1$225
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(129
                                                                                                                                                                                                        (k$480 term1$276
                                                                                                                                                                                                               term2$275)
                                                                                                                                                                                                        ((if (pair? term2$275)
                                                                                                                                                                                                           (if (pair? term1$276)
                                                                                                                                                                                                             (if (eq? (car term1$276)
                                                                                                                                                                                                                      (car term2$275))
                                                                                                                                                                                                               (one-way-unify1-lst$224
                                                                                                                                                                                                                 k$480
                                                                                                                                                                                                                 (cdr term1$276)
                                                                                                                                                                                                                 (cdr term2$275))
                                                                                                                                                                                                               (k$480 #f))
                                                                                                                                                                                                             (k$480 #f))
                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(125
                                                                                                                                                                                                                (temp-temp$277)
                                                                                                                                                                                                                ((if temp-temp$277
                                                                                                                                                                                                                   (term-equal?$217
                                                                                                                                                                                                                     k$480
                                                                                                                                                                                                                     term1$276
                                                                                                                                                                                                                     (cdr temp-temp$277))
                                                                                                                                                                                                                   (if (number?
                                                                                                                                                                                                                         term2$275)
                                                                                                                                                                                                                     (k$480 (equal?
                                                                                                                                                                                                                              term1$276
                                                                                                                                                                                                                              term2$275))
                                                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                              body
                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                        #(121
                                                                                                                                                                                                                          (r$492)
                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                              #(120
                                                                                                                                                                                                                                (r$491)
                                                                                                                                                                                                                                ((k$480 #t))
                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                            (set! unify-subst$227
                                                                                                                                                                                                                              r$492)))
                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                      (cons (cons term2$275
                                                                                                                                                                                                                                  term1$276)
                                                                                                                                                                                                                            unify-subst$227)))))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            (assq term2$275
                                                                                                                                                                                                                  unify-subst$227))))
                                                                                                                                                                                                        #t)))))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            (set! one-way-unify$226
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(134
                                                                                                                                                                                                  (k$495 term1$279
                                                                                                                                                                                                         term2$278)
                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(132
                                                                                                                                                                                                        (r$496)
                                                                                                                                                                                                        ((one-way-unify1$225
                                                                                                                                                                                                           k$495
                                                                                                                                                                                                           term1$279
                                                                                                                                                                                                           term2$278))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    (set! unify-subst$227
                                                                                                                                                                                                      '())))
                                                                                                                                                                                                  #t)))))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      (set! unify-subst$227
                                                                                                                                                                                        '*)))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (set! rewrite-with-lemmas$228
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(150
                                                                                                                                                                                      (k$500 term$281
                                                                                                                                                                                             lst$280)
                                                                                                                                                                                      ((if (null? lst$280)
                                                                                                                                                                                         (k$500 term$281)
                                                                                                                                                                                         (one-way-unify$226
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(146
                                                                                                                                                                                               (r$502)
                                                                                                                                                                                               ((if r$502
                                                                                                                                                                                                  (apply-subst$237
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(140
                                                                                                                                                                                                        (r$503)
                                                                                                                                                                                                        ((rewrite$230
                                                                                                                                                                                                           k$500
                                                                                                                                                                                                           r$503))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    unify-subst$227
                                                                                                                                                                                                    (caddr (car lst$280)))
                                                                                                                                                                                                  (rewrite-with-lemmas$228
                                                                                                                                                                                                    k$500
                                                                                                                                                                                                    term$281
                                                                                                                                                                                                    (cdr lst$280))))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           term$281
                                                                                                                                                                                           (cadr (car lst$280)))))
                                                                                                                                                                                      #t)))))
                                                                                                                                                                              #f))
                                                                                                                                                                          (set! rewrite-args$229
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(160
                                                                                                                                                                                (k$510 lst$282)
                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(159
                                                                                                                                                                                      (r$511)
                                                                                                                                                                                      ((if r$511
                                                                                                                                                                                         (k$510 '())
                                                                                                                                                                                         (#((record-marker)
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #f
                                                                                                                                                                                              (id args
                                                                                                                                                                                                  body
                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                            #(157
                                                                                                                                                                                              (r$515)
                                                                                                                                                                                              ((rewrite$230
                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #f
                                                                                                                                                                                                     (id args
                                                                                                                                                                                                         body
                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                   #(156
                                                                                                                                                                                                     (r$512)
                                                                                                                                                                                                     ((#((record-marker)
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #f
                                                                                                                                                                                                           (id args
                                                                                                                                                                                                               body
                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                         #(155
                                                                                                                                                                                                           (r$514)
                                                                                                                                                                                                           ((rewrite-args$229
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                      body
                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                #(154
                                                                                                                                                                                                                  (r$513)
                                                                                                                                                                                                                  ((scons$231
                                                                                                                                                                                                                     k$510
                                                                                                                                                                                                                     r$512
                                                                                                                                                                                                                     r$513
                                                                                                                                                                                                                     lst$282))
                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                              r$514))
                                                                                                                                                                                                           #f))
                                                                                                                                                                                                       (cdr lst$282)))
                                                                                                                                                                                                     #f))
                                                                                                                                                                                                 r$515))
                                                                                                                                                                                              #f))
                                                                                                                                                                                          (car lst$282))))
                                                                                                                                                                                      #f))
                                                                                                                                                                                  (null? lst$282)))
                                                                                                                                                                                #t)))))
                                                                                                                                                                        #f))
                                                                                                                                                                    (set! rewrite$230
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(174
                                                                                                                                                                          (k$517 term$283)
                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(173
                                                                                                                                                                                (r$526)
                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(172
                                                                                                                                                                                      (r$518)
                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                            #f
                                                                                                                                                                                            (id args
                                                                                                                                                                                                body
                                                                                                                                                                                                has-cont))
                                                                                                                                                                                          #(171
                                                                                                                                                                                            (r$519)
                                                                                                                                                                                            ((if r$519
                                                                                                                                                                                               (#((record-marker)
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #f
                                                                                                                                                                                                    (id args
                                                                                                                                                                                                        body
                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                  #(168
                                                                                                                                                                                                    (r$523)
                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                          #f
                                                                                                                                                                                                          (id args
                                                                                                                                                                                                              body
                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                        #(167
                                                                                                                                                                                                          (r$525)
                                                                                                                                                                                                          ((rewrite-args$229
                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                     body
                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                               #(166
                                                                                                                                                                                                                 (r$524)
                                                                                                                                                                                                                 ((scons$231
                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                            body
                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                      #(165
                                                                                                                                                                                                                        (r$520)
                                                                                                                                                                                                                        ((get-lemmas$242
                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                               #f
                                                                                                                                                                                                                               (id args
                                                                                                                                                                                                                                   body
                                                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                                                             #(163
                                                                                                                                                                                                                               (r$521)
                                                                                                                                                                                                                               ((rewrite-with-lemmas$228
                                                                                                                                                                                                                                  k$517
                                                                                                                                                                                                                                  r$520
                                                                                                                                                                                                                                  r$521))
                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                           (car term$283)))
                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                    r$523
                                                                                                                                                                                                                    r$524
                                                                                                                                                                                                                    term$283))
                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                             r$525))
                                                                                                                                                                                                          #f))
                                                                                                                                                                                                      (cdr term$283)))
                                                                                                                                                                                                    #f))
                                                                                                                                                                                                (car term$283))
                                                                                                                                                                                               (k$517 term$283)))
                                                                                                                                                                                            #f))
                                                                                                                                                                                        (pair? term$283)))
                                                                                                                                                                                      #f))
                                                                                                                                                                                  (set! rewrite-count$232
                                                                                                                                                                                    r$526)))
                                                                                                                                                                                #f))
                                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                                              rewrite-count$232
                                                                                                                                                                              1)))
                                                                                                                                                                          #t)))))
                                                                                                                                                                  #f))
                                                                                                                                                              (set! scons$231
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(182
                                                                                                                                                                    (k$528 x$286
                                                                                                                                                                           y$285
                                                                                                                                                                           original$284)
                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(181
                                                                                                                                                                          (k$530)
                                                                                                                                                                          ((if (eq? x$286
                                                                                                                                                                                    (car original$284))
                                                                                                                                                                             (k$530 (eq? y$285
                                                                                                                                                                                         (cdr original$284)))
                                                                                                                                                                             (k$530 #f)))
                                                                                                                                                                          #t))
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(177
                                                                                                                                                                          (r$529)
                                                                                                                                                                          ((if r$529
                                                                                                                                                                             (k$528 original$284)
                                                                                                                                                                             (k$528 (cons x$286
                                                                                                                                                                                          y$285))))
                                                                                                                                                                          #f))))
                                                                                                                                                                    #t)))))
                                                                                                                                                            #f))
                                                                                                                                                        (set! rewrite-count$232
                                                                                                                                                          0)))
                                                                                                                                                      #f))
                                                                                                                                                  (set! if-constructor$233
                                                                                                                                                    '*)))
                                                                                                                                                #f))
                                                                                                                                            (set! tautologyp$234
                                                                                                                                              #((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(214
                                                                                                                                                  (k$536 x$289
                                                                                                                                                         true-lst$288
                                                                                                                                                         false-lst$287)
                                                                                                                                                  ((truep$222
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(213
                                                                                                                                                         (r$537)
                                                                                                                                                         ((if r$537
                                                                                                                                                            (k$536 #t)
                                                                                                                                                            (falsep$223
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(212
                                                                                                                                                                  (r$538)
                                                                                                                                                                  ((if r$538
                                                                                                                                                                     (k$536 #f)
                                                                                                                                                                     (if (pair? x$289)
                                                                                                                                                                       (if (eq? (car x$289)
                                                                                                                                                                                if-constructor$233)
                                                                                                                                                                         (truep$222
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(204
                                                                                                                                                                               (r$541)
                                                                                                                                                                               ((if r$541
                                                                                                                                                                                  (tautologyp$234
                                                                                                                                                                                    k$536
                                                                                                                                                                                    (caddr x$289)
                                                                                                                                                                                    true-lst$288
                                                                                                                                                                                    false-lst$287)
                                                                                                                                                                                  (falsep$223
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(202
                                                                                                                                                                                        (r$543)
                                                                                                                                                                                        ((if r$543
                                                                                                                                                                                           (tautologyp$234
                                                                                                                                                                                             k$536
                                                                                                                                                                                             (cadddr
                                                                                                                                                                                               x$289)
                                                                                                                                                                                             true-lst$288
                                                                                                                                                                                             false-lst$287)
                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(198
                                                                                                                                                                                                (r$550)
                                                                                                                                                                                                ((tautologyp$234
                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #f
                                                                                                                                                                                                       (id args
                                                                                                                                                                                                           body
                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                     #(197
                                                                                                                                                                                                       (r$545)
                                                                                                                                                                                                       ((if r$545
                                                                                                                                                                                                          (tautologyp$234
                                                                                                                                                                                                            k$536
                                                                                                                                                                                                            (cadddr
                                                                                                                                                                                                              x$289)
                                                                                                                                                                                                            true-lst$288
                                                                                                                                                                                                            (cons (cadr x$289)
                                                                                                                                                                                                                  false-lst$287))
                                                                                                                                                                                                          (k$536 #f)))
                                                                                                                                                                                                       #f))
                                                                                                                                                                                                   (caddr x$289)
                                                                                                                                                                                                   r$550
                                                                                                                                                                                                   false-lst$287))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            (cons (cadr x$289)
                                                                                                                                                                                                  true-lst$288))))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    (cadr x$289)
                                                                                                                                                                                    false-lst$287)))
                                                                                                                                                                               #f))
                                                                                                                                                                           (cadr x$289)
                                                                                                                                                                           true-lst$288)
                                                                                                                                                                         (k$536 #f))
                                                                                                                                                                       (k$536 #f))))
                                                                                                                                                                  #f))
                                                                                                                                                              x$289
                                                                                                                                                              false-lst$287)))
                                                                                                                                                         #f))
                                                                                                                                                     x$289
                                                                                                                                                     true-lst$288))
                                                                                                                                                  #t)))))
                                                                                                                                          #f))
                                                                                                                                      (set! tautp$235
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(220
                                                                                                                                            (k$556 x$290)
                                                                                                                                            ((rewrite$230
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(219
                                                                                                                                                   (r$557)
                                                                                                                                                   ((tautologyp$234
                                                                                                                                                      k$556
                                                                                                                                                      r$557
                                                                                                                                                      '()
                                                                                                                                                      '()))
                                                                                                                                                   #f))
                                                                                                                                               x$290))
                                                                                                                                            #t)))))
                                                                                                                                    #f))
                                                                                                                                (set! apply-subst-lst$236
                                                                                                                                  #((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(230
                                                                                                                                      (k$561 alist$292
                                                                                                                                             lst$291)
                                                                                                                                      ((if (null? lst$291)
                                                                                                                                         (k$561 '())
                                                                                                                                         (apply-subst$237
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(226
                                                                                                                                               (r$563)
                                                                                                                                               ((apply-subst-lst$236
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(224
                                                                                                                                                      (r$564)
                                                                                                                                                      ((k$561 (cons r$563
                                                                                                                                                                    r$564)))
                                                                                                                                                      #f))
                                                                                                                                                  alist$292
                                                                                                                                                  (cdr lst$291)))
                                                                                                                                               #f))
                                                                                                                                           alist$292
                                                                                                                                           (car lst$291))))
                                                                                                                                      #t)))))
                                                                                                                              #f))
                                                                                                                          (set! apply-subst$237
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(241
                                                                                                                                (k$568 alist$294
                                                                                                                                       term$293)
                                                                                                                                ((if (pair? term$293)
                                                                                                                                   (apply-subst-lst$236
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(233
                                                                                                                                         (r$571)
                                                                                                                                         ((k$568 (cons (car term$293)
                                                                                                                                                       r$571)))
                                                                                                                                         #f))
                                                                                                                                     alist$294
                                                                                                                                     (cdr term$293))
                                                                                                                                   (#((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(237
                                                                                                                                        (temp-temp$295)
                                                                                                                                        ((if temp-temp$295
                                                                                                                                           (k$568 (cdr temp-temp$295))
                                                                                                                                           (k$568 term$293)))
                                                                                                                                        #f))
                                                                                                                                    (assq term$293
                                                                                                                                          alist$294))))
                                                                                                                                #t)))))
                                                                                                                        #f))
                                                                                                                    (set! translate-alist$238
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(253
                                                                                                                          (k$575 alist$296)
                                                                                                                          ((if (null? alist$296)
                                                                                                                             (k$575 '())
                                                                                                                             (translate-term$251
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(248
                                                                                                                                   (r$581)
                                                                                                                                   ((translate-alist$238
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(245
                                                                                                                                          (r$578)
                                                                                                                                          ((k$575 (cons (cons (caar alist$296)
                                                                                                                                                              r$581)
                                                                                                                                                        r$578)))
                                                                                                                                          #f))
                                                                                                                                      (cdr alist$296)))
                                                                                                                                   #f))
                                                                                                                               (cdar alist$296))))
                                                                                                                          #t)))))
                                                                                                                  #f))
                                                                                                              (set! test$239
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(271
                                                                                                                    (k$584 alist$299
                                                                                                                           term$298
                                                                                                                           n$297)
                                                                                                                    ((translate-alist$238
                                                                                                                       #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(270
                                                                                                                           (r$586)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(269
                                                                                                                                 (term$301
                                                                                                                                   n$300)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(268
                                                                                                                                       (lp$37$302)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(260
                                                                                                                                             (r$589)
                                                                                                                                             ((lp$37$302
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(259
                                                                                                                                                    (r$588)
                                                                                                                                                    ((translate-term$251
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(258
                                                                                                                                                           (r$587)
                                                                                                                                                           ((apply-subst$237
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(256
                                                                                                                                                                  (term$305)
                                                                                                                                                                  ((tautp$235
                                                                                                                                                                     k$584
                                                                                                                                                                     term$305))
                                                                                                                                                                  #f))
                                                                                                                                                              r$586
                                                                                                                                                              r$587))
                                                                                                                                                           #f))
                                                                                                                                                       r$588))
                                                                                                                                                    #f))
                                                                                                                                                term$301
                                                                                                                                                n$300))
                                                                                                                                             #f))
                                                                                                                                         (set! lp$37$302
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(267
                                                                                                                                               (k$591 term$304
                                                                                                                                                      n$303)
                                                                                                                                               ((if (zero?__inline__
                                                                                                                                                      n$303)
                                                                                                                                                  (k$591 term$304)
                                                                                                                                                  (list #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(263
                                                                                                                                                            (r$593)
                                                                                                                                                            ((lp$37$302
                                                                                                                                                               k$591
                                                                                                                                                               r$593
                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                 n$303
                                                                                                                                                                 1)))
                                                                                                                                                            #f))
                                                                                                                                                        'or
                                                                                                                                                        term$304
                                                                                                                                                        '(f))))
                                                                                                                                               #t)))))
                                                                                                                                       #f))
                                                                                                                                   #f))
                                                                                                                                 #f))
                                                                                                                             term$298
                                                                                                                             n$297))
                                                                                                                           #f))
                                                                                                                       alist$299))
                                                                                                                    #t)))))
                                                                                                            #f))
                                                                                                        (set! symbol-record-equal?$240
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(274
                                                                                                              (k$598 r1$307
                                                                                                                     r2$306)
                                                                                                              ((k$598 (eq? r1$307
                                                                                                                           r2$306)))
                                                                                                              #t)))))
                                                                                                      #f))
                                                                                                  (set! get-name$241
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(277
                                                                                                        (k$600 symbol-record$308)
                                                                                                        ((k$600 (vector-ref
                                                                                                                  symbol-record$308
                                                                                                                  0)))
                                                                                                        #t)))))
                                                                                                #f))
                                                                                            (set! get-lemmas$242
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(280
                                                                                                  (k$602 symbol-record$309)
                                                                                                  ((k$602 (vector-ref
                                                                                                            symbol-record$309
                                                                                                            1)))
                                                                                                  #t)))))
                                                                                          #f))
                                                                                      (set! put-lemmas!$243
                                                                                        #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(283
                                                                                            (k$604 symbol-record$311
                                                                                                   lemmas$310)
                                                                                            ((k$604 (vector-set!
                                                                                                      symbol-record$311
                                                                                                      1
                                                                                                      lemmas$310)))
                                                                                            #t)))))
                                                                                    #f))
                                                                                (set! make-symbol-record$244
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(287
                                                                                      (k$606 sym$312)
                                                                                      ((vector
                                                                                         k$606
                                                                                         sym$312
                                                                                         '()))
                                                                                      #t)))))
                                                                              #f))
                                                                          (set! *symbol-records-alist*$245
                                                                            '())))
                                                                        #f))
                                                                    (set! symbol->symbol-record$246
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(299
                                                                          (k$610 sym$313)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(297
                                                                                (x$314)
                                                                                ((if x$314
                                                                                   (k$610 (cdr x$314))
                                                                                   (make-symbol-record$244
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(295
                                                                                         (r$315)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(294
                                                                                               (r$615)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(293
                                                                                                     (r$614)
                                                                                                     ((#((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(292
                                                                                                           (r$613)
                                                                                                           ((k$610 r$315))
                                                                                                           #f))
                                                                                                       (set! *symbol-records-alist*$245
                                                                                                         r$614)))
                                                                                                     #f))
                                                                                                 (cons r$615
                                                                                                       *symbol-records-alist*$245)))
                                                                                               #f))
                                                                                           (cons sym$313
                                                                                                 r$315)))
                                                                                         #f))
                                                                                     sym$313)))
                                                                                #f))
                                                                            (assq sym$313
                                                                                  *symbol-records-alist*$245)))
                                                                          #t)))))
                                                                  #f))
                                                              (set! get$247
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(303
                                                                    (k$617 sym$317
                                                                           property$316)
                                                                    ((symbol->symbol-record$246
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(302
                                                                           (r$618)
                                                                           ((get-lemmas$242
                                                                              k$617
                                                                              r$618))
                                                                           #f))
                                                                       sym$317))
                                                                    #t)))))
                                                            #f))
                                                        (set! put$248
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(307
                                                              (k$620 sym$320
                                                                     property$319
                                                                     value$318)
                                                              ((symbol->symbol-record$246
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(306
                                                                     (r$621)
                                                                     ((put-lemmas!$243
                                                                        k$620
                                                                        r$621
                                                                        value$318))
                                                                     #f))
                                                                 sym$320))
                                                              #t)))))
                                                      #f))
                                                  (set! untranslate-term$249
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(317
                                                        (k$623 term$321)
                                                        ((if (pair? term$321)
                                                           (get-name$241
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(312
                                                                 (r$625)
                                                                 ((map #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(310
                                                                           (r$626)
                                                                           ((k$623 (cons r$625
                                                                                         r$626)))
                                                                           #f))
                                                                       untranslate-term$249
                                                                       (cdr term$321)))
                                                                 #f))
                                                             (car term$321))
                                                           (k$623 term$321)))
                                                        #t)))))
                                                #f))
                                            (set! translate-args$250
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(327
                                                  (k$630 lst$322)
                                                  ((if (null? lst$322)
                                                     (k$630 '())
                                                     (translate-term$251
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(323
                                                           (r$632)
                                                           ((translate-args$250
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(321
                                                                  (r$633)
                                                                  ((k$630 (cons r$632
                                                                                r$633)))
                                                                  #f))
                                                              (cdr lst$322)))
                                                           #f))
                                                       (car lst$322))))
                                                  #t)))))
                                          #f))
                                      (set! translate-term$251
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(337
                                            (k$637 term$323)
                                            ((if (pair? term$323)
                                               (symbol->symbol-record$246
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(332
                                                     (r$639)
                                                     ((translate-args$250
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(330
                                                            (r$640)
                                                            ((k$637 (cons r$639
                                                                          r$640)))
                                                            #f))
                                                        (cdr term$323)))
                                                     #f))
                                                 (car term$323))
                                               (k$637 term$323)))
                                            #t)))))
                                    #f))
                                (set! add-lemma$252
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(358
                                      (k$644 term$324)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(357
                                            (k$655)
                                            ((if (pair? term$324)
                                               (if (eq? (car term$324) 'equal)
                                                 (k$655 (pair? (cadr term$324)))
                                                 (k$655 #f))
                                               (k$655 #f)))
                                            #t))
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(351
                                            (r$645)
                                            ((if r$645
                                               (#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(348
                                                    (r$654)
                                                    ((translate-term$251
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(345
                                                           (r$649)
                                                           ((get$247
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(341
                                                                  (r$650)
                                                                  ((put$248
                                                                     k$644
                                                                     (car r$654)
                                                                     'lemmas
                                                                     (cons r$649
                                                                           r$650)))
                                                                  #f))
                                                              (car (cadr term$324))
                                                              'lemmas))
                                                           #f))
                                                       term$324))
                                                    #f))
                                                (cadr term$324))
                                               (error k$644
                                                      #f
                                                      "ADD-LEMMA did not like term:  "
                                                      term$324)))
                                            #f))))
                                      #t)))))
                              #f))
                          (set! add-lemma-lst$253
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(367
                                (k$662 lst$325)
                                ((if (null? lst$325)
                                   (k$662 #t)
                                   (add-lemma$252
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(363
                                         (r$664)
                                         ((add-lemma-lst$253
                                            k$662
                                            (cdr lst$325)))
                                         #f))
                                     (car lst$325))))
                                #t)))))
                        #f))
                    (set! setup$254
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(371
                          (k$668)
                          ((add-lemma-lst$253
                             k$668
                             '((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))))))
                          #t)))))
                  #f))
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #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
          '(implies
             (and (implies x y)
                  (and (implies y z)
                       (and (implies z u) (implies u w))))
             (implies x w)))))
      #f))
  (set! alist
    '((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)))))))
 */
/* 
"---------------- cps analysis db:"
 */
/* 
#((record-marker)
  #((record-marker)
    #f
    (size hash compare associate entries))
  #(624
    #[procedure]
    #[procedure]
    #[procedure]
    #(()
      ((1
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$637 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 337 #f #f #f 2 (337 330) #f #f 2 0 #t #f #t))))
      ((3
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((loop$338
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             428
             #f
             #f
             #f
             3
             (385 428 383)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(427
                 (k$689 i$340 result$339)
                 ((if (Cyc-fast-lt i$340 count$328)
                    (thunk$327
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(385
                          (r$692)
                          ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692))
                          #f)))
                    (ok?$326
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(425
                          (r$693)
                          ((if r$693
                             (current-jiffy
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(416
                                   (j1$341)
                                   ((current-second
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(414
                                          (t1$342)
                                          ((rounded$331
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(406
                                                 (secs2$345)
                                                 ((display
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(404
                                                        (r$700)
                                                        ((write #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(403
                                                                    (r$701)
                                                                    ((display
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(402
                                                                           (r$702)
                                                                           ((write #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(401
                                                                                       (r$703)
                                                                                       ((display
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(400
                                                                                              (r$704)
                                                                                              ((display
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(399
                                                                                                     (r$705)
                                                                                                     ((newline
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(398
                                                                                                            (r$706)
                                                                                                            ((display
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(397
                                                                                                                   (r$707)
                                                                                                                   ((this-scheme-implementation-name
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(396
                                                                                                                          (r$715)
                                                                                                                          ((display
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(395
                                                                                                                                 (r$708)
                                                                                                                                 ((display
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(394
                                                                                                                                        (r$709)
                                                                                                                                        ((display
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(393
                                                                                                                                               (r$710)
                                                                                                                                               ((display
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(392
                                                                                                                                                      (r$711)
                                                                                                                                                      ((display
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(391
                                                                                                                                                             (r$712)
                                                                                                                                                             ((newline
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(390
                                                                                                                                                                    (r$713)
                                                                                                                                                                    ((current-output-port
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(389
                                                                                                                                                                           (r$714)
                                                                                                                                                                           ((flush-output-port
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(388
                                                                                                                                                                                  (r$694)
                                                                                                                                                                                  ((k$689 result$339))
                                                                                                                                                                                  #f))
                                                                                                                                                                              r$714))
                                                                                                                                                                           #f))))
                                                                                                                                                                    #f))))
                                                                                                                                                             #f))
                                                                                                                                                         (inexact__inline__
                                                                                                                                                           (Cyc-fast-div
                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                               j1$341
                                                                                                                                                               j0$335)
                                                                                                                                                             j/s$333))))
                                                                                                                                                      #f))
                                                                                                                                                  ","))
                                                                                                                                               #f))
                                                                                                                                           name$329))
                                                                                                                                        #f))
                                                                                                                                    ","))
                                                                                                                                 #f))
                                                                                                                             r$715))
                                                                                                                          #f))))
                                                                                                                   #f))
                                                                                                               "+!CSVLINE!+"))
                                                                                                            #f))))
                                                                                                     #f))
                                                                                                 name$329))
                                                                                              #f))
                                                                                          ") for "))
                                                                                       #f))
                                                                                   secs2$345))
                                                                           #f))
                                                                       " seconds ("))
                                                                    #f))
                                                                (inexact__inline__
                                                                  (Cyc-fast-div
                                                                    (Cyc-fast-sub
                                                                      j1$341
                                                                      j0$335)
                                                                    j/s$333))))
                                                        #f))
                                                    "Elapsed time: "))
                                                 #f))
                                             (Cyc-fast-sub t1$342 t0$334)))
                                          #f))))
                                   #f)))
                             (display
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(423
                                   (r$718)
                                   ((write #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(422
                                               (r$719)
                                               ((newline
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(421
                                                      (r$720)
                                                      ((current-output-port
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(420
                                                             (r$722)
                                                             ((flush-output-port
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(419
                                                                    (r$721)
                                                                    ((k$689 result$339))
                                                                    #f))
                                                                r$722))
                                                             #f))))
                                                      #f))))
                                               #f))
                                           result$339))
                                   #f))
                               "ERROR: returned incorrect result: ")))
                          #f))
                      result$339)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ((5
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$440 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 49 #f #f #f 1 (49) #f #f 0 0 #t #f #f))))
      ((6
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (test-boyer) #t))))
      ((7
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((9
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (add-lemma$252
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (367 359)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(358
                 (k$644 term$324)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(357
                       (k$655)
                       ((if (pair? term$324)
                          (if (eq? (car term$324) 'equal)
                            (k$655 (pair? (cadr term$324)))
                            (k$655 #f))
                          (k$655 #f)))
                       #t))
                   #((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(351
                       (r$645)
                       ((if r$645
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(348
                               (r$654)
                               ((translate-term$251
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(345
                                      (r$649)
                                      ((get$247
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(341
                                             (r$650)
                                             ((put$248
                                                k$644
                                                (car r$654)
                                                'lemmas
                                                (cons r$649 r$650)))
                                             #f))
                                         (car (cadr term$324))
                                         'lemmas))
                                      #f))
                                  term$324))
                               #f))
                           (cadr term$324))
                          (error k$644
                                 #f
                                 "ADD-LEMMA did not like term:  "
                                 term$324)))
                       #f))))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((10
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((12
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$447 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  68
                  #f
                  #f
                  #f
                  1
                  (68)
                  #f
                  (equal? n$265 1)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((13
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((15
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((16
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (term2$275
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             129
             #f
             #f
             #f
             7
             (129 125 125 125 129 129 129)
             #f
             #f
             0
             7
             #t
             #f
             #f))))
      ()
      ((18
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((term2$278
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f))))
      ((20
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (setup-boyer) #t)))
       (j1$341
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 416 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f))))
      ((21
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((setup-boyer
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             463
             #f
             #f
             3
             (21 -1 470)
             #t
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(20
                 (k$409)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(18
                       (r$410)
                       ((symbol->symbol-record$246
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(16
                              (r$418)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(15
                                    (r$411)
                                    ((translate-term$251
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(13
                                           (r$416)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(12
                                                 (r$412)
                                                 ((translate-term$251
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(10
                                                        (r$414)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(9
                                                              (r$413)
                                                              ((setup$254
                                                                 k$409))
                                                              #f))
                                                          (set! true-term$220
                                                            r$414)))
                                                        #f))
                                                    '(t)))
                                                 #f))
                                             (set! false-term$221 r$416)))
                                           #f))
                                       '(f)))
                                    #f))
                                (set! if-constructor$233 r$418)))
                              #f))
                          'if))
                       #f))
                   (set! *symbol-records-alist*$245 '())))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((lemmas$310
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #f #f))))
      ((27
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((Cyc-fast-eq
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (466) #f #f 1 0 #t #f #f))))
      ((30
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (term-member?$215) #f))))
      ((31
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (read .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 3
                 (480 482 484)
                 #f
                 #f
                 3
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ((k$644 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 358 #f #f #f 2 (351 341) #f #f 0 2 #f #f #t))))
      ()
      ((current-jiffy
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (425 433) #f #f 2 0 #f #f #f))))
      ((39
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((Cyc-fast-mul
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f))))
      ((r$450 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 63 #f #f #f 1 (61) #f #f 0 1 #f #f #f))))
      ((r$451 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 61 #f #f #f 1 (61) #f #f 0 1 #t #f #f))))
      ((44
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (term-args-equal?$216) #f))))
      ((45
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$454 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  64
                  #f
                  #f
                  #f
                  1
                  (64)
                  #f
                  (Cyc-fast-sub n$265 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ((49
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$457 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 72 #f #f #f 1 (72) #f #f 0 1 #t #f #f))))
      ()
      ((r$459 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 75 #f #f #f 1 (73) #f #f 0 1 #f #f #f))))
      ()
      ((Cyc-fast-sub
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (263 68 63 414 404 392)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ((y$263 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (56 56 49 56)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((zero?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (267) #f #f 1 0 #t #f #f)))
       (56
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (term-equal?$217) #f))))
      ((57
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((61
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((pair? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  11
                  (357 357 337 317 241 212 172 129 129 56 56)
                  #f
                  #f
                  11
                  0
                  #t
                  #f
                  #f))))
      ((63
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((64
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((68
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((69
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (trans-of-implies1$218) #f))))
      ((70
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((72
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((73
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$655 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  357
                  #f
                  #f
                  #f
                  3
                  (357 357 357)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(351
                      (r$645)
                      ((if r$645
                         (#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(348
                              (r$654)
                              ((translate-term$251
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(345
                                     (r$649)
                                     ((get$247
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(341
                                            (r$650)
                                            ((put$248
                                               k$644
                                               (car r$654)
                                               'lemmas
                                               (cons r$649 r$650)))
                                            #f))
                                        (car (cadr term$324))
                                        'lemmas))
                                     #f))
                                 term$324))
                              #f))
                          (cadr term$324))
                         (error k$644
                                #f
                                "ADD-LEMMA did not like term:  "
                                term$324)))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t))))
      ((75
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((77
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (trans-of-implies$219) #f))))
      ((78
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$460 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 73 #f #f #f 1 (73) #f #f 0 1 #t #f #f))))
      ((80
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((82
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((84
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((86
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (truep$222) #f))))
      ((87
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((x$346 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 1 (446) #f #f 0 1 #t #f #f))))
      ((89
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (x$347 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (452) #f #f 0 1 #f #f #f))))
      ((r$760 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  471
                  #f
                  #f
                  #f
                  1
                  (471)
                  #f
                  (string-append "sboyer" ":" s1$356 ":" s2$355)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((91
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (falsep$223) #f))))
      ((92
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((r$766 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 469 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$767 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 468 #f #f #f 1 (468) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((100
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((Cyc-version
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (382) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ((symbol-record$308
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 277 #f #f #f 1 (277) #f #f 0 1 #t #f #f)))
       (105
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (one-way-unify1-lst$224) #f))))
      ((symbol-record$309
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 280 #f #f #f 1 (280) #f #f 0 1 #t #f #f)))
       (106
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (t1$342
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 414 #f #f #f 1 (414) #f #f 0 1 #t #f #f))))
      ()
      ((k$662 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 367 #f #f #f 2 (363 367) #f #f 1 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((property$316
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 303 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (k$668 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 371 #f #f #f 1 (371) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((property$319
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (answer$258
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 3 #f #f #f 1 (3) #f #f 0 0 #t #f #f))))
      ()
      ()
      ((120
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (x$351 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 459 #f #f #f 1 (459) #f #f 0 1 #t #f #f)))
       (r$474 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 100 #f #f #f 1 (100) #f #f 0 0 #t #f #f))))
      ((121
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((125
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((129
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (one-way-unify1$225) #t))))
      ((130
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((y$285 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 181) #f #f 0 2 #t #f #f))))
      ((132
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((134
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (one-way-unify$226) #t))))
      ((symbol-record$311
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #t #f)))
       (135
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((137
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((140
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ()
      ((146
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$674 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 382 #f #f #f 1 (381) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((150
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rewrite-with-lemmas$228) #f))))
      ((k$678 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 449 #f #f #f 1 (383) #f #f 0 1 #t #f #t)))
       (151
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((154
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((155
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((156
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((157
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((159
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (false-term$221
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (91 82 13)
             #t
             '*
             0
             1
             #f
             #f
             #f))))
      ((160
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rewrite-args$229) #f))))
      ((161
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((163
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((165
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((166
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((167
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((168
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((171
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((172
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((173
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((174
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rewrite$230) #t))))
      ((175
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((177
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$530) #f))))
      ()
      ()
      ((term-equal?$217
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (125 91 86 57 44 30)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(56
                 (k$437 x$264 y$263)
                 ((if (pair? x$264)
                    (if (pair? y$263)
                      (symbol-record-equal?$240
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(49
                            (r$440)
                            ((if r$440
                               (term-args-equal?$216
                                 k$437
                                 (cdr x$264)
                                 (cdr y$263))
                               (k$437 #f)))
                            #f))
                        (car x$264)
                        (car y$263))
                      (k$437 #f))
                    (k$437 (equal? x$264 y$263))))
                 #t))
             5
             0
             #f
             #f
             #f))))
      ((181
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((182
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (scons$231) #f))))
      ((183
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((184
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (current-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (416 435) #f #f 2 0 #f #f #f))))
      ()
      ((186
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((rewrite-args$229
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (167 155 161)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(160
                 (k$510 lst$282)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(159
                       (r$511)
                       ((if r$511
                          (k$510 '())
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(157
                               (r$515)
                               ((rewrite$230
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(156
                                      (r$512)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(155
                                            (r$514)
                                            ((rewrite-args$229
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(154
                                                   (r$513)
                                                   ((scons$231
                                                      k$510
                                                      r$512
                                                      r$513
                                                      lst$282))
                                                   #f))
                                               r$514))
                                            #f))
                                        (cdr lst$282)))
                                      #f))
                                  r$515))
                               #f))
                           (car lst$282))))
                       #f))
                   (null? lst$282)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ((k$689 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  427
                  #f
                  #f
                  #f
                  3
                  (419 388 385)
                  #f
                  #f
                  2
                  1
                  #t
                  #f
                  #t))))
      ()
      ((r$491 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  120
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 r$492)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$492 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  121
                  #f
                  #f
                  #f
                  1
                  (121)
                  #f
                  (cons (cons term2$275 term1$276) unify-subst$227)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$496 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  132
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 '())
                  0
                  0
                  #t
                  #f
                  #f))))
      ((197
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((198
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((202
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((value$318
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 1 (306) #f #f 0 1 #f #f #f)))
       (vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (287 460) #f #f 2 0 #f #f #f))))
      ((r$502 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 146 #f #f #f 1 (146) #f #f 0 0 #t #f #f)))
       (204
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$503 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 140 #f #f #f 1 (140) #f #f 0 1 #t #f #f))))
      ((if-constructor$233
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (212 186 16)
             #t
             '*
             0
             1
             #f
             #f
             #f))))
      ()
      ()
      ((get-lemmas$242
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (302 281 165)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(280
                 (k$602 symbol-record$309)
                 ((k$602 (vector-ref symbol-record$309 1)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((212
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((213
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((214
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (tautologyp$234) #f))))
      ((215
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((219
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((220
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (tautp$235) #f)))
       (apply-subst-lst$236
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (241 226 231)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(230
                 (k$561 alist$292 lst$291)
                 ((if (null? lst$291)
                    (k$561 '())
                    (apply-subst$237
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(226
                          (r$563)
                          ((apply-subst-lst$236
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(224 (r$564) ((k$561 (cons r$563 r$564))) #f))
                             alist$292
                             (cdr lst$291)))
                          #f))
                      alist$292
                      (car lst$291))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((221
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$405 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 6 #f #f #f 2 (3 3) #f #f 2 0 #t #f #t))))
      ((224
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((226
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$409 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 20 #f #f #f 1 (9) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((230
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (apply-subst-lst$236) #f))))
      ((231
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (call-with-values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (461) #f #f 1 0 #f #f #f))))
      ()
      ((233
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((string-append
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (381 474) #f #f 2 0 #t #f #f))))
      ()
      ((237
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((r$511 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  159
                  #f
                  #f
                  #f
                  1
                  (159)
                  #f
                  (null? lst$282)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$512 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 156 #f #f #f 1 (154) #f #f 0 1 #t #f #f)))
       (241
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (apply-subst$237) #f))))
      ((r$513 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 154 #f #f #f 1 (154) #f #f 0 1 #t #f #f)))
       (242
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$514 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  155
                  #f
                  #f
                  #f
                  1
                  (155)
                  #f
                  (cdr lst$282)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$515 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  157
                  #f
                  #f
                  #f
                  1
                  (157)
                  #f
                  (car lst$282)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((245
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((r$518 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  172
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 r$526)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$519 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  171
                  #f
                  #f
                  #f
                  1
                  (171)
                  #f
                  (pair? term$283)
                  0
                  0
                  #t
                  #f
                  #f)))
       (248
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((253
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (translate-alist$238) #f))))
      ((254
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((list .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 6
                 (267 73 75 61 64 68)
                 #f
                 #f
                 6
                 0
                 #f
                 #f
                 #f))))
      ((256
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((258
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((259
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((260
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((263
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((get$247
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (345 304)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(303
                 (k$617 sym$317 property$316)
                 ((symbol->symbol-record$246
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(302 (r$618) ((get-lemmas$242 k$617 r$618)) #f))
                    sym$317))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ((267
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$37$302) #f))))
      ((268
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((269
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((270
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lst$259
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 30 #f #f #f 3 (30 27 30) #f #f 0 3 #t #f #f))))
      ((271
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (test$239) #t))))
      ((272
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((274
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (symbol-record-equal?$240) #f))))
      ((275
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$520 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 165 #f #f #f 1 (163) #f #f 0 1 #t #f #f))))
      ((r$521 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 163 #f #f #f 1 (163) #f #f 0 1 #t #f #f)))
       (277
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (get-name$241) #f)))
       (thunk$327
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (427) #f #f 1 0 #f #f #f))))
      ((278
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$523 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  168
                  #f
                  #f
                  #f
                  1
                  (166)
                  #f
                  (car term$283)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((r$524 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 166 #f #f #f 1 (166) #f #f 0 1 #t #f #f)))
       (280
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (get-lemmas$242) #f))))
      ((r$525 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  167
                  #f
                  #f
                  #f
                  1
                  (167)
                  #f
                  (cdr term$283)
                  0
                  1
                  #t
                  #f
                  #f)))
       (281
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((lp$37$302
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             268
             #f
             #f
             #f
             3
             (263 268 260)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(267
                 (k$591 term$304 n$303)
                 ((if (zero?__inline__ n$303)
                    (k$591 term$304)
                    (list #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(263
                              (r$593)
                              ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1)))
                              #f))
                          'or
                          term$304
                          '(f))))
                 #t))
             2
             0
             #t
             #f
             #f)))
       (r$526 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  173
                  #f
                  #f
                  #f
                  1
                  (173)
                  #f
                  (Cyc-fast-plus rewrite-count$232 1)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((283
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (put-lemmas!$243) #t))))
      ((284
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$529 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 177 #f #f #f 1 (177) #f #f 0 0 #t #f #f))))
      ()
      ((287
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (make-symbol-record$244) #f))))
      ((288
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((290
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (translate-term$251
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             8
             (348 338 327 259 253 72 12 15)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(337
                 (k$637 term$323)
                 ((if (pair? term$323)
                    (symbol->symbol-record$246
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(332
                          (r$639)
                          ((translate-args$250
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(330 (r$640) ((k$637 (cons r$639 r$640))) #f))
                             (cdr term$323)))
                          #f))
                      (car term$323))
                    (k$637 term$323)))
                 #t))
             7
             0
             #f
             #f
             #f))))
      ((Cyc-fast-lt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (427 456) #f #f 2 0 #t #f #f))))
      ((292
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((293
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((294
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (k$422 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 30 #f #f #f 3 (27 27 30) #f #f 2 1 #t #f #t))))
      ((295
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((297
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((299
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (symbol->symbol-record$246) #t))))
      ((k$428 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  44
                  #f
                  #f
                  #f
                  4
                  (39 39 44 44)
                  #f
                  #f
                  3
                  1
                  #t
                  #f
                  #t)))
       (300
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((302
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((303
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (get$247) #f))))
      ((304
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((lst$267
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 86 #f #f #f 1 (84) #f #f 0 1 #t #f #f))))
      ((306
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((307
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (put$248) #f))))
      ((k$725 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 1 (446) #f #f 1 0 #t #f #t)))
       (308
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((term$256
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ((310
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((312
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((317
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (untranslate-term$249) #f))))
      ((318
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((r$537 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 213 #f #f #f 1 (213) #f #f 0 0 #t #f #f))))
      ((r$538 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 212 #f #f #f 1 (212) #f #f 0 0 #t #f #f)))
       (321
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((323
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((327
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (translate-args$250) #f))))
      ((328
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((330
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((332
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((Cyc-fast-plus
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (174 385) #f #f 2 0 #t #f #f))))
      ((lst1$262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 44 #f #f #f 3 (44 39 44) #f #f 0 3 #t #f #f))))
      ((input$353
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 480 #f #f #f 2 (476 469) #f #f 0 2 #t #f #f)))
       (lst$270
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 91 #f #f #f 1 (89) #f #f 0 1 #t #f #f))))
      ((k$437 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (56 56 49 49)
                  #f
                  #f
                  3
                  1
                  #t
                  #f
                  #t))))
      ((337
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (translate-term$251) #f))))
      ((338
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$730 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (461) #f #f 0 1 #t #f #t))))
      ((341
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (tmp$117$272
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 89 #f #f #f 2 (89 89) #f #f 0 1 #t #f #f))))
      ()
      ((k$733 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #t)))
       (*symbol-records-alist*$245
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (299 294 293 290 20)
             #t
             r$614
             0
             2
             #f
             #f
             #f))))
      ()
      ((k$735 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 460 #f #f #f 1 (454) #f #f 0 1 #f #f #t)))
       (345
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((k$738 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  456
                  #f
                  #f
                  #f
                  2
                  (456 456)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(454 (r$737) ((values k$735 r$736 r$737)) #f))
                  2
                  0
                  #t
                  #f
                  #t)))
       (348
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((r$541 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 204 #f #f #f 1 (204) #f #f 0 0 #t #f #f)))
       (351
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$655) #f))))
      ()
      ((r$543 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 202 #f #f #f 1 (202) #f #f 0 0 #t #f #f))))
      ()
      ((r$545 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 197 #f #f #f 1 (197) #f #f 0 0 #t #f #f)))
       (rounded$331
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             448
             #f
             #f
             #f
             2
             (448 414)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(446
                 (k$725 x$346)
                 ((k$725 (Cyc-fast-div
                           (round__inline__ (Cyc-fast-mul 1000 x$346))
                           1000)))
                 #t))
             1
             0
             #t
             #f
             #f))))
      ()
      ((357
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (tautologyp$234
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (219 197 198 202 204 215)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(214
                 (k$536 x$289 true-lst$288 false-lst$287)
                 ((truep$222
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(213
                        (r$537)
                        ((if r$537
                           (k$536 #t)
                           (falsep$223
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(212
                                 (r$538)
                                 ((if r$538
                                    (k$536 #f)
                                    (if (pair? x$289)
                                      (if (eq? (car x$289) if-constructor$233)
                                        (truep$222
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(204
                                              (r$541)
                                              ((if r$541
                                                 (tautologyp$234
                                                   k$536
                                                   (caddr x$289)
                                                   true-lst$288
                                                   false-lst$287)
                                                 (falsep$223
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(202
                                                       (r$543)
                                                       ((if r$543
                                                          (tautologyp$234
                                                            k$536
                                                            (cadddr x$289)
                                                            true-lst$288
                                                            false-lst$287)
                                                          (#((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(198
                                                               (r$550)
                                                               ((tautologyp$234
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(197
                                                                      (r$545)
                                                                      ((if r$545
                                                                         (tautologyp$234
                                                                           k$536
                                                                           (cadddr
                                                                             x$289)
                                                                           true-lst$288
                                                                           (cons (cadr x$289)
                                                                                 false-lst$287))
                                                                         (k$536 #f)))
                                                                      #f))
                                                                  (caddr x$289)
                                                                  r$550
                                                                  false-lst$287))
                                                               #f))
                                                           (cons (cadr x$289)
                                                                 true-lst$288))))
                                                       #f))
                                                   (cadr x$289)
                                                   false-lst$287)))
                                              #f))
                                          (cadr x$289)
                                          true-lst$288)
                                        (k$536 #f))
                                      (k$536 #f))))
                                 #f))
                             x$289
                             false-lst$287)))
                        #f))
                    x$289
                    true-lst$288))
                 #t))
             5
             0
             #f
             #f
             #f))))
      ((358
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (add-lemma$252) #f))))
      ((359
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (output$354
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 478 #f #f #f 1 (466) #f #f 0 1 #t #f #f))))
      ()
      ((flush-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (420 389 438)
             #f
             #f
             3
             0
             #f
             #f
             #f))))
      ()
      ((363
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((run-r7rs-benchmark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             449
             #f
             #f
             2
             (-1 471)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(449
                  (k$678 name$329 count$328 thunk$327 ok?$326)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(448
                        (rounded$331)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(442
                              (r$679)
                              ((display
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(441
                                     (r$680)
                                     ((display
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(440
                                            (r$681)
                                            ((newline
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(439
                                                   (r$682)
                                                   ((current-output-port
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(438
                                                          (r$723)
                                                          ((flush-output-port
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(437
                                                                 (r$683)
                                                                 ((jiffies-per-second
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(435
                                                                        (j/s$333)
                                                                        ((current-second
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(433
                                                                               (t0$334)
                                                                               ((current-jiffy
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(431
                                                                                      (j0$335)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(428
                                                                                            (loop$338)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(383
                                                                                                  (r$687)
                                                                                                  ((loop$338
                                                                                                     k$678
                                                                                                     0
                                                                                                     #f))
                                                                                                  #f))
                                                                                              (set! loop$338
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(427
                                                                                                    (k$689 i$340
                                                                                                           result$339)
                                                                                                    ((if (Cyc-fast-lt
                                                                                                           i$340
                                                                                                           count$328)
                                                                                                       (thunk$327
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(385
                                                                                                             (r$692)
                                                                                                             ((loop$338
                                                                                                                k$689
                                                                                                                (Cyc-fast-plus
                                                                                                                  i$340
                                                                                                                  1)
                                                                                                                r$692))
                                                                                                             #f)))
                                                                                                       (ok?$326
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(425
                                                                                                             (r$693)
                                                                                                             ((if r$693
                                                                                                                (current-jiffy
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(416
                                                                                                                      (j1$341)
                                                                                                                      ((current-second
                                                                                                                         #((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(414
                                                                                                                             (t1$342)
                                                                                                                             ((rounded$331
                                                                                                                                #((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(406
                                                                                                                                    (secs2$345)
                                                                                                                                    ((display
                                                                                                                                       #((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(404
                                                                                                                                           (r$700)
                                                                                                                                           ((write #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(403
                                                                                                                                                       (r$701)
                                                                                                                                                       ((display
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(402
                                                                                                                                                              (r$702)
                                                                                                                                                              ((write #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(401
                                                                                                                                                                          (r$703)
                                                                                                                                                                          ((display
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(400
                                                                                                                                                                                 (r$704)
                                                                                                                                                                                 ((display
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(399
                                                                                                                                                                                        (r$705)
                                                                                                                                                                                        ((newline
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(398
                                                                                                                                                                                               (r$706)
                                                                                                                                                                                               ((display
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(397
                                                                                                                                                                                                      (r$707)
                                                                                                                                                                                                      ((this-scheme-implementation-name
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                             #f
                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                 body
                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                           #(396
                                                                                                                                                                                                             (r$715)
                                                                                                                                                                                                             ((display
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(395
                                                                                                                                                                                                                    (r$708)
                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(394
                                                                                                                                                                                                                           (r$709)
                                                                                                                                                                                                                           ((display
                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                #(393
                                                                                                                                                                                                                                  (r$710)
                                                                                                                                                                                                                                  ((display
                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                       #(392
                                                                                                                                                                                                                                         (r$711)
                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(391
                                                                                                                                                                                                                                                (r$712)
                                                                                                                                                                                                                                                ((newline
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                     #(390
                                                                                                                                                                                                                                                       (r$713)
                                                                                                                                                                                                                                                       ((current-output-port
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(389
                                                                                                                                                                                                                                                              (r$714)
                                                                                                                                                                                                                                                              ((flush-output-port
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                   #(388
                                                                                                                                                                                                                                                                     (r$694)
                                                                                                                                                                                                                                                                     ((k$689 result$339))
                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                 r$714))
                                                                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            (inexact__inline__
                                                                                                                                                                                                                                              (Cyc-fast-div
                                                                                                                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                                                                                                                  j1$341
                                                                                                                                                                                                                                                  j0$335)
                                                                                                                                                                                                                                                j/s$333))))
                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                     ","))
                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                              name$329))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       ","))
                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                r$715))
                                                                                                                                                                                                             #f))))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  "+!CSVLINE!+"))
                                                                                                                                                                                               #f))))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    name$329))
                                                                                                                                                                                 #f))
                                                                                                                                                                             ") for "))
                                                                                                                                                                          #f))
                                                                                                                                                                      secs2$345))
                                                                                                                                                              #f))
                                                                                                                                                          " seconds ("))
                                                                                                                                                       #f))
                                                                                                                                                   (inexact__inline__
                                                                                                                                                     (Cyc-fast-div
                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                         j1$341
                                                                                                                                                         j0$335)
                                                                                                                                                       j/s$333))))
                                                                                                                                           #f))
                                                                                                                                       "Elapsed time: "))
                                                                                                                                    #f))
                                                                                                                                (Cyc-fast-sub
                                                                                                                                  t1$342
                                                                                                                                  t0$334)))
                                                                                                                             #f))))
                                                                                                                      #f)))
                                                                                                                (display
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(423
                                                                                                                      (r$718)
                                                                                                                      ((write #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(422
                                                                                                                                  (r$719)
                                                                                                                                  ((newline
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(421
                                                                                                                                         (r$720)
                                                                                                                                         ((current-output-port
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(420
                                                                                                                                                (r$722)
                                                                                                                                                ((flush-output-port
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(419
                                                                                                                                                       (r$721)
                                                                                                                                                       ((k$689 result$339))
                                                                                                                                                       #f))
                                                                                                                                                   r$722))
                                                                                                                                                #f))))
                                                                                                                                         #f))))
                                                                                                                                  #f))
                                                                                                                              result$339))
                                                                                                                      #f))
                                                                                                                  "ERROR: returned incorrect result: ")))
                                                                                                             #f))
                                                                                                         result$339)))
                                                                                                    #t)))))
                                                                                            #f))
                                                                                        #f))
                                                                                      #f))))
                                                                               #f))))
                                                                        #f))))
                                                                 #f))
                                                             r$723))
                                                          #f))))
                                                   #f))))
                                            #f))
                                        name$329))
                                     #f))
                                 "Running "))
                              #f))
                          (set! rounded$331
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(446
                                (k$725 x$346)
                                ((k$725 (Cyc-fast-div
                                          (round__inline__
                                            (Cyc-fast-mul 1000 x$346))
                                          1000)))
                                #t)))))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((367
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (add-lemma-lst$253) #f))))
      ((368
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((371
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (setup$254) #f))))
      ((lst$280
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             150
             #f
             #f
             #f
             4
             (150 146 146 150)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (k$446 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 69 #f #f #f 2 (61 68) #f #f 0 2 #f #f #t)))
       (372
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((error .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (351) #f #f 1 0 #f #f #f)))
       (tmp$120$269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 84 #f #f #f 2 (84 84) #f #f 0 1 #t #f #f)))
       (lst1$274
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             3
             (105 100 105)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((lst$282
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             160
             #f
             #f
             #f
             4
             (160 159 156 154)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (374
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((376
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$741 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 459 #f #f #f 1 (459) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$744 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 462 #f #f #f 1 (462) #f #f 1 0 #t #f #t)))
       (381
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((382
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((383
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$747 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 463 #f #f #f 1 (463) #f #f 1 0 #t #f #t))))
      ((385
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((r$550 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  198
                  #f
                  #f
                  #f
                  1
                  (198)
                  #f
                  (cons (cadr x$289) true-lst$288)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((388
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((389
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((390
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((391
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((392
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((393
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$557 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 219 #f #f #f 1 (219) #f #f 0 1 #t #f #f)))
       (394
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((395
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((396
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((397
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((398
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((399
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (unify-subst$227
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (146 137 134 129 125 121)
             #t
             '*
             0
             3
             #f
             #f
             #f))))
      ((400
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (symbol->symbol-record$246
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (337 307 303 300 18)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(299
                 (k$610 sym$313)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(297
                       (x$314)
                       ((if x$314
                          (k$610 (cdr x$314))
                          (make-symbol-record$244
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(295
                                (r$315)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(294
                                      (r$615)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(293
                                            (r$614)
                                            ((#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(292
                                                  (r$613)
                                                  ((k$610 r$315))
                                                  #f))
                                              (set! *symbol-records-alist*$245
                                                r$614)))
                                            #f))
                                        (cons r$615
                                              *symbol-records-alist*$245)))
                                      #f))
                                  (cons sym$313 r$315)))
                                #f))
                            sym$313)))
                       #f))
                   (assq sym$313 *symbol-records-alist*$245)))
                 #t))
             4
             0
             #f
             #f
             #f))))
      ((401
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((402
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((403
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((404
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((untranslate-term$249
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (312 318)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(317
                 (k$623 term$321)
                 ((if (pair? term$321)
                    (get-name$241
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(312
                          (r$625)
                          ((map #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(310
                                    (r$626)
                                    ((k$623 (cons r$625 r$626)))
                                    #f))
                                untranslate-term$249
                                (cdr term$321)))
                          #f))
                      (car term$321))
                    (k$623 term$321)))
                 #t))
             0
             1
             #f
             #f
             #f))))
      ((406
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((k$456 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 77 #f #f #f 1 (72) #f #f 0 1 #t #f #t))))
      ((lst$291
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             230
             #f
             #f
             #f
             3
             (230 226 230)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((414
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$281
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             150
             #f
             #f
             #f
             3
             (150 146 150)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((416
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$283
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             174
             #f
             #f
             #f
             6
             (172 171 171 168 166 165)
             #f
             #f
             0
             6
             #t
             #f
             #f))))
      ((k$754 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 484 #f #f #f 1 (471) #f #f 0 1 #f #f #t))))
      ((419
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((420
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((421
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (car .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                25
                (367
                 345
                 341
                 357
                 337
                 327
                 317
                 233
                 230
                 212
                 181
                 171
                 165
                 159
                 150
                 146
                 129
                 129
                 105
                 105
                 56
                 56
                 44
                 44
                 30)
                #f
                #f
                25
                0
                #t
                #f
                #f))))
      ((422
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((423
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((425
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((r$563 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 226 #f #f #f 1 (224) #f #f 0 1 #t #f #f)))
       (427
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (loop$338) #f))))
      ((r$564 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 224 #f #f #f 1 (224) #f #f 0 1 #t #f #f)))
       (428
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((431
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((433
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (test-boyer
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             462
             #f
             #f
             3
             (7 -1 468)
             #t
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(6
                 (k$405 alist$257 term$256 n$255)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(5
                       (r$406)
                       ((test$239
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(3
                              (answer$258)
                              ((if answer$258
                                 (k$405 rewrite-count$232)
                                 (k$405 #f)))
                              #f))
                          alist$257
                          term$256
                          n$255))
                       #f))
                   (set! rewrite-count$232 0)))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((false-lst$287
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             214
             #f
             #f
             #f
             6
             (213 204 198 197 202 204)
             #f
             #f
             0
             6
             #t
             #f
             #f))))
      ((435
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (460 454) #f #f 1 1 #f #f #f))))
      ((437
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((438
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((439
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((440
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((441
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (n$255 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ((442
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((k$465 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 86 #f #f #f 2 (84 84) #f #f 1 1 #t #f #t))))
      ((446
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rounded$331) #f)))
       (s1$356
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             474
             #f
             #f
             #f
             1
             (474)
             #f
             (number->string input$353)
             0
             1
             #t
             #f
             #f))))
      ()
      ((k$468 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 91 #f #f #f 2 (89 89) #f #f 1 1 #t #f #t)))
       (448
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((449
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((452
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((term$293
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             241
             #f
             #f
             #f
             5
             (241 237 241 233 241)
             #f
             #f
             0
             5
             #t
             #f
             #f)))
       (454
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$738) #f)))
       (k$763 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 466 #f #f #f 2 (466 466) #f #f 2 0 #t #f #t))))
      ((alist$257
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ((456
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$765 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 470 #f #f #f 1 (468) #f #f 0 1 #t #f #t))))
      ((457
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((term$298
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f)))
       (459
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((460
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((461
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$571 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 233 #f #f #f 1 (233) #f #f 0 1 #t #f #f)))
       (462
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((463
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$301
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             269
             #f
             #f
             #f
             1
             (260)
             #f
             term$298
             0
             1
             #t
             #f
             #f))))
      ((secs2$345
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 406 #f #f #f 1 (402) #f #f 0 1 #f #f #f))))
      ((466
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$304
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 267 #f #f #f 2 (267 267) #f #f 0 2 #t #f #f))))
      ((term$305
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 256 #f #f #f 1 (256) #f #f 0 1 #t #f #f)))
       (468
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$578 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 245 #f #f #f 1 (245) #f #f 0 1 #t #f #f)))
       (469
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((470
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((471
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((result$339
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             427
             #f
             #f
             #f
             4
             (427 423 419 388)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ((474
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((476
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$471 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  105
                  #f
                  #f
                  #f
                  4
                  (100 100 105 105)
                  #f
                  #f
                  3
                  1
                  #t
                  #f
                  #t)))
       (478
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (n$265 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  69
                  #f
                  #f
                  #f
                  4
                  (69 68 64 63)
                  #f
                  #f
                  0
                  4
                  #f
                  #f
                  #f))))
      ((n$266 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 77 #f #f #f 2 (77 75) #f #f 0 2 #f #f #f))))
      ((480
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((482
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((484
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((cadddr
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (197 202) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((lst$322
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             327
             #f
             #f
             #f
             3
             (327 323 327)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((put$248
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (341 308)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(307
                 (k$620 sym$320 property$319 value$318)
                 ((symbol->symbol-record$246
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(306
                        (r$621)
                        ((put-lemmas!$243 k$620 r$621 value$318))
                        #f))
                    sym$320))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((r$581 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 248 #f #f #f 1 (245) #f #f 0 1 #t #f #f))))
      ((lst$325
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             367
             #f
             #f
             #f
             3
             (367 363 367)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ((assq .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 3
                 (299 241 129)
                 #f
                 #f
                 3
                 0
                 #t
                 #f
                 #f))))
      ((r$586 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 270 #f #f #f 1 (258) #f #f 0 1 #t #f #f)))
       (get-name$241
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (317 278)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(277
                 (k$600 symbol-record$308)
                 ((k$600 (vector-ref symbol-record$308 0)))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((r$587 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f))))
      ((r$588 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 259 #f #f #f 1 (259) #f #f 0 1 #t #f #f))))
      ((r$589 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  260
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$37$302
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(267
                        (k$591 term$304 n$303)
                        ((if (zero?__inline__ n$303)
                           (k$591 term$304)
                           (list #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(263
                                     (r$593)
                                     ((lp$37$302
                                        k$591
                                        r$593
                                        (Cyc-fast-sub n$303 1)))
                                     #f))
                                 'or
                                 term$304
                                 '(f))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$480 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  129
                  #f
                  #f
                  #f
                  6
                  (120 125 125 129 129 129)
                  #f
                  #f
                  4
                  2
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((make-symbol-record$244
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (297 288)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(287
                 (k$606 sym$312)
                 ((vector k$606 sym$312 '()))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((symbol-record-equal?$240
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (275 56)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(274
                 (k$598 r1$307 r2$306)
                 ((k$598 (eq? r1$307 r2$306)))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((cdr .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                23
                (363
                 332
                 323
                 312
                 297
                 248
                 237
                 241
                 226
                 181
                 168
                 156
                 146
                 125
                 129
                 129
                 100
                 100
                 49
                 49
                 39
                 39
                 27)
                #f
                #f
                23
                0
                #t
                #f
                #f))))
      ()
      ()
      ()
      ()
      ()
      ((term$321
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             317
             #f
             #f
             #f
             4
             (317 317 312 317)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (r$593 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 263 #f #f #f 1 (263) #f #f 0 1 #t #f #f))))
      ((sym$312
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #f))))
      ((term$323
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             337
             #f
             #f
             #f
             4
             (337 337 332 337)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (sym$313
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             299
             #f
             #f
             #f
             3
             (299 297 295)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((term$324
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             358
             #f
             #f
             #f
             7
             (351 351 348 345 357 357 357)
             #f
             #f
             0
             7
             #f
             #f
             #f))))
      ()
      ()
      ((sym$317
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 303 #f #f #f 1 (303) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((truep$222
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (212 214 87)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(86
                 (k$465 x$268 lst$267)
                 ((term-equal?$217
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(84
                        (tmp$120$269)
                        ((if tmp$120$269
                           (k$465 tmp$120$269)
                           (term-member?$215 k$465 x$268 lst$267)))
                        #f))
                    x$268
                    true-term$220))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$495 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ((r1$307
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f))))
      ((rewrite$230
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (220 175 157 140)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(174
                 (k$517 term$283)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(173
                       (r$526)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(172
                             (r$518)
                             ((#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(171
                                   (r$519)
                                   ((if r$519
                                      (#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(168
                                           (r$523)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(167
                                                 (r$525)
                                                 ((rewrite-args$229
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(166
                                                        (r$524)
                                                        ((scons$231
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(165
                                                               (r$520)
                                                               ((get-lemmas$242
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(163
                                                                      (r$521)
                                                                      ((rewrite-with-lemmas$228
                                                                         k$517
                                                                         r$520
                                                                         r$521))
                                                                      #f))
                                                                  (car term$283)))
                                                               #f))
                                                           r$523
                                                           r$524
                                                           term$283))
                                                        #f))
                                                    r$525))
                                                 #f))
                                             (cdr term$283)))
                                           #f))
                                       (car term$283))
                                      (k$517 term$283)))
                                   #f))
                               (pair? term$283)))
                             #f))
                         (set! rewrite-count$232 r$526)))
                       #f))
                   (Cyc-fast-plus rewrite-count$232 1)))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ((k$500 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  150
                  #f
                  #f
                  #f
                  3
                  (146 140 150)
                  #f
                  #f
                  1
                  2
                  #f
                  #f
                  #t)))
       (i$340 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 427 #f #f #f 2 (385 427) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$349 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f))))
      ()
      ((sym$320
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 1 (307) #f #f 0 1 #t #f #f)))
       (lst2$261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             44
             #f
             #f
             #f
             4
             (44 39 44 44)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$315 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 295 #f #f #f 2 (295 292) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$613 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  292
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 r$614)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$614 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  293
                  #f
                  #f
                  #f
                  1
                  (293)
                  #f
                  (cons r$615 *symbol-records-alist*$245)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$615 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  294
                  #f
                  #f
                  #f
                  1
                  (294)
                  #f
                  (cons sym$313 r$315)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ((n$297 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f))))
      ((r$618 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 302 #f #f #f 1 (302) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((n$300 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 269 #f #f #f 1 (260) #f n$297 0 1 #t #f #f)))
       (name$329
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             449
             #f
             #f
             #f
             3
             (441 400 394)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ()
      ((alist$292
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 230 #f #f #f 2 (230 226) #f #f 0 2 #t #f #f)))
       (Cyc-fast-div
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (446 404 392)
             #f
             #f
             3
             0
             #t
             #f
             #f))))
      ((n$303 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 267 #f #f #f 2 (263 267) #f #f 0 2 #t #f #f)))
       (term .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 #f
                 #f
                 #f
                 3
                 (376 -1 468)
                 #t
                 '(implies
                    (and (implies x y)
                         (and (implies y z)
                              (and (implies z u) (implies u w))))
                    (implies x w))
                 0
                 1
                 #f
                 #f
                 #f))))
      ((alist$294
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 241 #f #f #f 2 (241 241) #f #f 0 2 #t #f #f)))
       (k$510 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 160 #f #f #f 2 (154 159) #f #f 1 1 #t #f #t))))
      ()
      ((alist$296
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             253
             #f
             #f
             #f
             4
             (253 248 245 253)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (test$239
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (272 5)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(271
                 (k$584 alist$299 term$298 n$297)
                 ((translate-alist$238
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(270
                        (r$586)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(269
                              (term$301 n$300)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(268
                                    (lp$37$302)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(260
                                          (r$589)
                                          ((lp$37$302
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(259
                                                 (r$588)
                                                 ((translate-term$251
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(258
                                                        (r$587)
                                                        ((apply-subst$237
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(256
                                                               (term$305)
                                                               ((tautp$235
                                                                  k$584
                                                                  term$305))
                                                               #f))
                                                           r$586
                                                           r$587))
                                                        #f))
                                                    r$588))
                                                 #f))
                                             term$301
                                             n$300))
                                          #f))
                                      (set! lp$37$302
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(267
                                            (k$591 term$304 n$303)
                                            ((if (zero?__inline__ n$303)
                                               (k$591 term$304)
                                               (list #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(263
                                                         (r$593)
                                                         ((lp$37$302
                                                            k$591
                                                            r$593
                                                            (Cyc-fast-sub
                                                              n$303
                                                              1)))
                                                         #f))
                                                     'or
                                                     term$304
                                                     '(f))))
                                            #t)))))
                                    #f))
                                #f))
                              #f))
                          term$298
                          n$297))
                        #f))
                    alist$299))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((alist$299
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 271 #f #f #f 1 (271) #f #f 0 1 #t #f #f))))
      ()
      ((k$517 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 174 #f #f #f 2 (171 163) #f #f 1 1 #t #f #t))))
      ()
      ((apply-subst$237
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (258 242 230 146)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(241
                 (k$568 alist$294 term$293)
                 ((if (pair? term$293)
                    (apply-subst-lst$236
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(233
                          (r$571)
                          ((k$568 (cons (car term$293) r$571)))
                          #f))
                      alist$294
                      (cdr term$293))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(237
                         (temp-temp$295)
                         ((if temp-temp$295
                            (k$568 (cdr temp-temp$295))
                            (k$568 term$293)))
                         #f))
                     (assq term$293 alist$294))))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((lst2$273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             4
             (105 100 105 105)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ()
      ((one-way-unify$226
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (150 135)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(134
                 (k$495 term1$279 term2$278)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(132
                       (r$496)
                       ((one-way-unify1$225 k$495 term1$279 term2$278))
                       #f))
                   (set! unify-subst$227 '())))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$621 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 306 #f #f #f 1 (306) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$625 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 312 #f #f #f 1 (310) #f #f 0 1 #t #f #f))))
      ((r$626 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 310 #f #f #f 1 (310) #f #f 0 1 #t #f #f))))
      ((eq? .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                6
                (357 274 212 181 181 129)
                #f
                #f
                6
                0
                #t
                #f
                #f))))
      ((current-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (421 390 439)
             #f
             #f
             3
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((rewrites$358
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 466 #f #f #f 2 (466 466) #f #f 0 2 #t #f #f)))
       (trans-of-implies1$218
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (77 63 70)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(69
                 (k$446 n$265)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(68
                       (r$447)
                       ((if r$447
                          (list k$446 'implies 0 1)
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(64
                               (r$454)
                               ((list #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(63
                                          (r$450)
                                          ((trans-of-implies1$218
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(61
                                                 (r$451)
                                                 ((list k$446 'and r$450 r$451))
                                                 #f))
                                             (Cyc-fast-sub n$265 1)))
                                          #f))
                                      'implies
                                      r$454
                                      n$265))
                               #f))
                           (Cyc-fast-sub n$265 1))))
                       #f))
                   (equal? n$265 1)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$528 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 177) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$632 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 323 #f #f #f 1 (321) #f #f 0 1 #t #f #f))))
      ((r$633 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f)))
       (v$350 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f)))
       (newline
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (422 391 399 440)
             #f
             #f
             4
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$639 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 332 #f #f #f 1 (330) #f #f 0 1 #t #f #f))))
      ((main .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 484
                 #f
                 #f
                 2
                 (1 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(484
                      (k$754)
                      ((read #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(482
                                 (count$352)
                                 ((read #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(480
                                            (input$353)
                                            ((read #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(478
                                                       (output$354)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(476
                                                             (s2$355)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(474
                                                                   (s1$356)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(471
                                                                         (r$760)
                                                                         ((run-r7rs-benchmark
                                                                            k$754
                                                                            r$760
                                                                            count$352
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(470
                                                                                (k$765)
                                                                                ((setup-boyer
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(469
                                                                                       (r$766)
                                                                                       ((hide #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(468
                                                                                                  (r$767)
                                                                                                  ((test-boyer
                                                                                                     k$765
                                                                                                     alist
                                                                                                     term
                                                                                                     r$767))
                                                                                                  #f))
                                                                                              count$352
                                                                                              input$353))
                                                                                       #f))))
                                                                                #t))
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(466
                                                                                (k$763 rewrites$358)
                                                                                ((if (number?
                                                                                       rewrites$358)
                                                                                   (k$763 (Cyc-fast-eq
                                                                                            rewrites$358
                                                                                            output$354))
                                                                                   (k$763 #f)))
                                                                                #t))))
                                                                         #f))
                                                                     (string-append
                                                                       "sboyer"
                                                                       ":"
                                                                       s1$356
                                                                       ":"
                                                                       s2$355)))
                                                                   #f))
                                                               (number->string
                                                                 input$353)))
                                                             #f))
                                                         (number->string
                                                           count$352)))
                                                       #f))))
                                            #f))))
                                 #f))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$530 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  181
                  #f
                  #f
                  #f
                  2
                  (181 181)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(177
                      (r$529)
                      ((if r$529
                         (k$528 original$284)
                         (k$528 (cons x$286 y$285))))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ((k$536 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  214
                  #f
                  #f
                  #f
                  8
                  (212 212 197 197 202 204 212 213)
                  #f
                  #f
                  5
                  3
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ((s2$355
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             476
             #f
             #f
             #f
             1
             (474)
             #f
             (number->string count$352)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$348 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (456) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$640 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 330 #f #f #f 1 (330) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$645 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 351 #f #f #f 1 (351) #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((r$649 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 345 #f #f #f 1 (341) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((j/s$333
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 435 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((null? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  13
                  (367 327 253 230 160 150 105 105 105 44 44 44 30)
                  #f
                  #f
                  13
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ((term-args-equal?$216
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (49 39 45)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(44
                 (k$428 lst1$262 lst2$261)
                 ((if (null? lst1$262)
                    (k$428 (null? lst2$261))
                    (if (null? lst2$261)
                      (k$428 #f)
                      (term-equal?$217
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(39
                            (r$431)
                            ((if r$431
                               (term-args-equal?$216
                                 k$428
                                 (cdr lst1$262)
                                 (cdr lst2$261))
                               (k$428 #f)))
                            #f))
                        (car lst1$262)
                        (car lst2$261)))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((caar .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(? ? #f #f #f 1 (245) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$650 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 341 #f #f #f 1 (341) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$654 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  348
                  #f
                  #f
                  #f
                  1
                  (341)
                  #f
                  (cadr term$324)
                  0
                  1
                  #t
                  #f
                  #f)))
       (original$284
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             182
             #f
             #f
             #f
             3
             (177 181 181)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((cdar .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(? ? #f #f #f 1 (253) #f #f 1 0 #t #f #f))))
      ()
      ((number->string
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (478 476) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ((this-scheme-implementation-name
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             382
             #f
             #f
             2
             (-1 397)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(382
                  (k$674)
                  ((Cyc-version
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(381
                         (r$675)
                         ((k$674 (string-append "cyclone-" r$675)))
                         #f))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((number?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (125 466) #f #f 2 0 #t #f #f))))
      ()
      ()
      ((rewrite-count$232
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (184 174 173 6 3)
             #t
             0
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((setup$254
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (372 9)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(371
                 (k$668)
                 ((add-lemma-lst$253
                    k$668
                    '((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))))))
                 #t))
             1
             0
             #t
             #f
             #f))))
      ()
      ((k$556 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 220 #f #f #f 1 (219) #f #f 0 1 #t #f #t)))
       (write .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  3
                  (423 402 404)
                  #f
                  #f
                  3
                  0
                  #f
                  #f
                  #f))))
      ((vector-set!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (283) #f #f 1 0 #t #f #f)))
       (add-lemma-lst$253
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (371 363 368)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(367
                 (k$662 lst$325)
                 ((if (null? lst$325)
                    (k$662 #t)
                    (add-lemma$252
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(363
                          (r$664)
                          ((add-lemma-lst$253 k$662 (cdr lst$325)))
                          #f))
                      (car lst$325))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((r$360 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  376
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! alist
                    '((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
                  0
                  #t
                  #f
                  #f)))
       (one-way-unify1$225
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (132 130 105)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(129
                 (k$480 term1$276 term2$275)
                 ((if (pair? term2$275)
                    (if (pair? term1$276)
                      (if (eq? (car term1$276) (car term2$275))
                        (one-way-unify1-lst$224
                          k$480
                          (cdr term1$276)
                          (cdr term2$275))
                        (k$480 #f))
                      (k$480 #f))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(125
                         (temp-temp$277)
                         ((if temp-temp$277
                            (term-equal?$217
                              k$480
                              term1$276
                              (cdr temp-temp$277))
                            (if (number? term2$275)
                              (k$480 (equal? term1$276 term2$275))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(121
                                   (r$492)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(120 (r$491) ((k$480 #t)) #f))
                                     (set! unify-subst$227 r$492)))
                                   #f))
                               (cons (cons term2$275 term1$276)
                                     unify-subst$227)))))
                         #f))
                     (assq term2$275 unify-subst$227))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((r$361 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  374
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term
                    '(implies
                       (and (implies x y)
                            (and (implies y z)
                                 (and (implies z u) (implies u w))))
                       (implies x w)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((alist .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  #f
                  #f
                  #f
                  3
                  (-1 -1 468)
                  #t
                  '((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
                  1
                  #f
                  #f
                  #f)))
       (r$362 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  1
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! test-boyer
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(6
                        (k$405 alist$257 term$256 n$255)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(5
                              (r$406)
                              ((test$239
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(3
                                     (answer$258)
                                     ((if answer$258
                                        (k$405 rewrite-count$232)
                                        (k$405 #f)))
                                     #f))
                                 alist$257
                                 term$256
                                 n$255))
                              #f))
                          (set! rewrite-count$232 0)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$363 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  368
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! setup$254
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(371
                        (k$668)
                        ((add-lemma-lst$253
                           k$668
                           '((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))))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((true-term$220
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (86 80 10)
             #t
             '*
             0
             1
             #f
             #f
             #f)))
       (r$364 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  359
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! add-lemma-lst$253
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(367
                        (k$662 lst$325)
                        ((if (null? lst$325)
                           (k$662 #t)
                           (add-lemma$252
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(363
                                 (r$664)
                                 ((add-lemma-lst$253 k$662 (cdr lst$325)))
                                 #f))
                             (car lst$325))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$365 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  338
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! add-lemma$252
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(358
                        (k$644 term$324)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(357
                              (k$655)
                              ((if (pair? term$324)
                                 (if (eq? (car term$324) 'equal)
                                   (k$655 (pair? (cadr term$324)))
                                   (k$655 #f))
                                 (k$655 #f)))
                              #t))
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(351
                              (r$645)
                              ((if r$645
                                 (#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(348
                                      (r$654)
                                      ((translate-term$251
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(345
                                             (r$649)
                                             ((get$247
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(341
                                                    (r$650)
                                                    ((put$248
                                                       k$644
                                                       (car r$654)
                                                       'lemmas
                                                       (cons r$649 r$650)))
                                                    #f))
                                                (car (cadr term$324))
                                                'lemmas))
                                             #f))
                                         term$324))
                                      #f))
                                  (cadr term$324))
                                 (error k$644
                                        #f
                                        "ADD-LEMMA did not like term:  "
                                        term$324)))
                              #f))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$366 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  328
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-term$251
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(337
                        (k$637 term$323)
                        ((if (pair? term$323)
                           (symbol->symbol-record$246
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(332
                                 (r$639)
                                 ((translate-args$250
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(330
                                        (r$640)
                                        ((k$637 (cons r$639 r$640)))
                                        #f))
                                    (cdr term$323)))
                                 #f))
                             (car term$323))
                           (k$637 term$323)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$367 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  318
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-args$250
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(327
                        (k$630 lst$322)
                        ((if (null? lst$322)
                           (k$630 '())
                           (translate-term$251
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(323
                                 (r$632)
                                 ((translate-args$250
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(321
                                        (r$633)
                                        ((k$630 (cons r$632 r$633)))
                                        #f))
                                    (cdr lst$322)))
                                 #f))
                             (car lst$322))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$368 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  308
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! untranslate-term$249
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(317
                        (k$623 term$321)
                        ((if (pair? term$321)
                           (get-name$241
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(312
                                 (r$625)
                                 ((map #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(310
                                           (r$626)
                                           ((k$623 (cons r$625 r$626)))
                                           #f))
                                       untranslate-term$249
                                       (cdr term$321)))
                                 #f))
                             (car term$321))
                           (k$623 term$321)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$369 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  304
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! put$248
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(307
                        (k$620 sym$320 property$319 value$318)
                        ((symbol->symbol-record$246
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(306
                               (r$621)
                               ((put-lemmas!$243 k$620 r$621 value$318))
                               #f))
                           sym$320))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((j0$335
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 431 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((r$664 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 363 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$561 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 230 #f #f #f 2 (224 230) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ((count$328
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (427) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((k$568 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  241
                  #f
                  #f
                  #f
                  3
                  (237 237 233)
                  #f
                  #f
                  3
                  0
                  #t
                  #f
                  #t))))
      ()
      ((r$370 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  300
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get$247
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(303
                        (k$617 sym$317 property$316)
                        ((symbol->symbol-record$246
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(302 (r$618) ((get-lemmas$242 k$617 r$618)) #f))
                           sym$317))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$371 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  290
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! symbol->symbol-record$246
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(299
                        (k$610 sym$313)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(297
                              (x$314)
                              ((if x$314
                                 (k$610 (cdr x$314))
                                 (make-symbol-record$244
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(295
                                       (r$315)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(294
                                             (r$615)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(293
                                                   (r$614)
                                                   ((#((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(292
                                                         (r$613)
                                                         ((k$610 r$315))
                                                         #f))
                                                     (set! *symbol-records-alist*$245
                                                       r$614)))
                                                   #f))
                                               (cons r$615
                                                     *symbol-records-alist*$245)))
                                             #f))
                                         (cons sym$313 r$315)))
                                       #f))
                                   sym$313)))
                              #f))
                          (assq sym$313 *symbol-records-alist*$245)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((map .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(? ? #f #f #f 1 (312) #f #f 1 0 #f #f #f)))
       (r$372 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  288
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 '())
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$373 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  284
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! make-symbol-record$244
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(287
                        (k$606 sym$312)
                        ((vector k$606 sym$312 '()))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$374 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  281
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! put-lemmas!$243
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(283
                        (k$604 symbol-record$311 lemmas$310)
                        ((k$604 (vector-set! symbol-record$311 1 lemmas$310)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$375 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  278
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get-lemmas$242
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(280
                        (k$602 symbol-record$309)
                        ((k$602 (vector-ref symbol-record$309 1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (term1$276
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             129
             #f
             #f
             #f
             6
             (125 125 125 129 129 129)
             #f
             #f
             0
             6
             #t
             #f
             #f))))
      ((r2$306
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f)))
       (r$376 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  275
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get-name$241
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(277
                        (k$600 symbol-record$308)
                        ((k$600 (vector-ref symbol-record$308 0)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$377 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  272
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! symbol-record-equal?$240
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(274
                        (k$598 r1$307 r2$306)
                        ((k$598 (eq? r1$307 r2$306)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((term1$279
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f)))
       (r$378 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  254
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! test$239
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(271
                        (k$584 alist$299 term$298 n$297)
                        ((translate-alist$238
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(270
                               (r$586)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(269
                                     (term$301 n$300)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(268
                                           (lp$37$302)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(260
                                                 (r$589)
                                                 ((lp$37$302
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(259
                                                        (r$588)
                                                        ((translate-term$251
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(258
                                                               (r$587)
                                                               ((apply-subst$237
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(256
                                                                      (term$305)
                                                                      ((tautp$235
                                                                         k$584
                                                                         term$305))
                                                                      #f))
                                                                  r$586
                                                                  r$587))
                                                               #f))
                                                           r$588))
                                                        #f))
                                                    term$301
                                                    n$300))
                                                 #f))
                                             (set! lp$37$302
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(267
                                                   (k$591 term$304 n$303)
                                                   ((if (zero?__inline__ n$303)
                                                      (k$591 term$304)
                                                      (list #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(263
                                                                (r$593)
                                                                ((lp$37$302
                                                                   k$591
                                                                   r$593
                                                                   (Cyc-fast-sub
                                                                     n$303
                                                                     1)))
                                                                #f))
                                                            'or
                                                            term$304
                                                            '(f))))
                                                   #t)))))
                                           #f))
                                       #f))
                                     #f))
                                 term$298
                                 n$297))
                               #f))
                           alist$299))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$379 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  242
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-alist$238
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(253
                        (k$575 alist$296)
                        ((if (null? alist$296)
                           (k$575 '())
                           (translate-term$251
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(248
                                 (r$581)
                                 ((translate-alist$238
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(245
                                        (r$578)
                                        ((k$575 (cons (cons (caar alist$296)
                                                            r$581)
                                                      r$578)))
                                        #f))
                                    (cdr alist$296)))
                                 #f))
                             (cdar alist$296))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$675 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 381 #f #f #f 1 (381) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((scons$231
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (183 166 154)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(182
                 (k$528 x$286 y$285 original$284)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(181
                       (k$530)
                       ((if (eq? x$286 (car original$284))
                          (k$530 (eq? y$285 (cdr original$284)))
                          (k$530 #f)))
                       #t))
                   #((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(177
                       (r$529)
                       ((if r$529
                          (k$528 original$284)
                          (k$528 (cons x$286 y$285))))
                       #f))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((r$679 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  442
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rounded$331
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(446
                        (k$725 x$346)
                        ((k$725 (Cyc-fast-div
                                  (round__inline__ (Cyc-fast-mul 1000 x$346))
                                  1000)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ((translate-args$250
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (332 323 328)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(327
                 (k$630 lst$322)
                 ((if (null? lst$322)
                    (k$630 '())
                    (translate-term$251
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(323
                          (r$632)
                          ((translate-args$250
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(321 (r$633) ((k$630 (cons r$632 r$633))) #f))
                             (cdr lst$322)))
                          #f))
                      (car lst$322))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ((term-member?$215
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (89 84 27 31)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(30
                 (k$422 x$260 lst$259)
                 ((if (null? lst$259)
                    (k$422 #f)
                    (term-equal?$217
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(27
                          (r$424)
                          ((if r$424
                             (k$422 #t)
                             (term-member?$215 k$422 x$260 (cdr lst$259))))
                          #f))
                      x$260
                      (car lst$259))))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ()
      ((equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (125 69 56) #f #f 3 0 #t #f #f))))
      ()
      ((k$575 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 253 #f #f #f 2 (245 253) #f #f 2 0 #t #f #t))))
      ()
      ((%halt .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f))))
      ()
      ()
      ((r$380 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  231
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! apply-subst$237
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(241
                        (k$568 alist$294 term$293)
                        ((if (pair? term$293)
                           (apply-subst-lst$236
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(233
                                 (r$571)
                                 ((k$568 (cons (car term$293) r$571)))
                                 #f))
                             alist$294
                             (cdr term$293))
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(237
                                (temp-temp$295)
                                ((if temp-temp$295
                                   (k$568 (cdr temp-temp$295))
                                   (k$568 term$293)))
                                #f))
                            (assq term$293 alist$294))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$381 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  221
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! apply-subst-lst$236
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(230
                        (k$561 alist$292 lst$291)
                        ((if (null? lst$291)
                           (k$561 '())
                           (apply-subst$237
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(226
                                 (r$563)
                                 ((apply-subst-lst$236
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(224
                                        (r$564)
                                        ((k$561 (cons r$563 r$564)))
                                        #f))
                                    alist$292
                                    (cdr lst$291)))
                                 #f))
                             alist$292
                             (car lst$291))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$382 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  215
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tautp$235
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(220
                        (k$556 x$290)
                        ((rewrite$230
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(219
                               (r$557)
                               ((tautologyp$234 k$556 r$557 '() '()))
                               #f))
                           x$290))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$383 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  186
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tautologyp$234
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(214
                        (k$536 x$289 true-lst$288 false-lst$287)
                        ((truep$222
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(213
                               (r$537)
                               ((if r$537
                                  (k$536 #t)
                                  (falsep$223
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(212
                                        (r$538)
                                        ((if r$538
                                           (k$536 #f)
                                           (if (pair? x$289)
                                             (if (eq? (car x$289)
                                                      if-constructor$233)
                                               (truep$222
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(204
                                                     (r$541)
                                                     ((if r$541
                                                        (tautologyp$234
                                                          k$536
                                                          (caddr x$289)
                                                          true-lst$288
                                                          false-lst$287)
                                                        (falsep$223
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(202
                                                              (r$543)
                                                              ((if r$543
                                                                 (tautologyp$234
                                                                   k$536
                                                                   (cadddr
                                                                     x$289)
                                                                   true-lst$288
                                                                   false-lst$287)
                                                                 (#((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(198
                                                                      (r$550)
                                                                      ((tautologyp$234
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(197
                                                                             (r$545)
                                                                             ((if r$545
                                                                                (tautologyp$234
                                                                                  k$536
                                                                                  (cadddr
                                                                                    x$289)
                                                                                  true-lst$288
                                                                                  (cons (cadr x$289)
                                                                                        false-lst$287))
                                                                                (k$536 #f)))
                                                                             #f))
                                                                         (caddr x$289)
                                                                         r$550
                                                                         false-lst$287))
                                                                      #f))
                                                                  (cons (cadr x$289)
                                                                        true-lst$288))))
                                                              #f))
                                                          (cadr x$289)
                                                          false-lst$287)))
                                                     #f))
                                                 (cadr x$289)
                                                 true-lst$288)
                                               (k$536 #f))
                                             (k$536 #f))))
                                        #f))
                                    x$289
                                    false-lst$287)))
                               #f))
                           x$289
                           true-lst$288))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$260 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 30 #f #f #f 2 (30 27) #f #f 0 2 #t #f #f))))
      ((r$384 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  184
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! if-constructor$233 '*)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((cadr .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 8
                 (351 345 357 212 204 202 197 150)
                 #f
                 #f
                 8
                 0
                 #t
                 #f
                 #f)))
       (r$385 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  183
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$386 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  175
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! scons$231
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(182
                        (k$528 x$286 y$285 original$284)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(181
                              (k$530)
                              ((if (eq? x$286 (car original$284))
                                 (k$530 (eq? y$285 (cdr original$284)))
                                 (k$530 #f)))
                              #t))
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(177
                              (r$529)
                              ((if r$529
                                 (k$528 original$284)
                                 (k$528 (cons x$286 y$285))))
                              #f))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((rewrite-with-lemmas$228
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (163 146 151)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(150
                 (k$500 term$281 lst$280)
                 ((if (null? lst$280)
                    (k$500 term$281)
                    (one-way-unify$226
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(146
                          (r$502)
                          ((if r$502
                             (apply-subst$237
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(140 (r$503) ((rewrite$230 k$500 r$503)) #f))
                               unify-subst$227
                               (caddr (car lst$280)))
                             (rewrite-with-lemmas$228
                               k$500
                               term$281
                               (cdr lst$280))))
                          #f))
                      term$281
                      (cadr (car lst$280)))))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$387 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  161
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite$230
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(174
                        (k$517 term$283)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(173
                              (r$526)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(172
                                    (r$518)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(171
                                          (r$519)
                                          ((if r$519
                                             (#((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(168
                                                  (r$523)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(167
                                                        (r$525)
                                                        ((rewrite-args$229
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(166
                                                               (r$524)
                                                               ((scons$231
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(165
                                                                      (r$520)
                                                                      ((get-lemmas$242
                                                                         #((record-marker)
                                                                           #((record-marker)
                                                                             #f
                                                                             (id args
                                                                                 body
                                                                                 has-cont))
                                                                           #(163
                                                                             (r$521)
                                                                             ((rewrite-with-lemmas$228
                                                                                k$517
                                                                                r$520
                                                                                r$521))
                                                                             #f))
                                                                         (car term$283)))
                                                                      #f))
                                                                  r$523
                                                                  r$524
                                                                  term$283))
                                                               #f))
                                                           r$525))
                                                        #f))
                                                    (cdr term$283)))
                                                  #f))
                                              (car term$283))
                                             (k$517 term$283)))
                                          #f))
                                      (pair? term$283)))
                                    #f))
                                (set! rewrite-count$232 r$526)))
                              #f))
                          (Cyc-fast-plus rewrite-count$232 1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$264 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (56 56 49 56)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((r$388 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  151
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-args$229
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(160
                        (k$510 lst$282)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(159
                              (r$511)
                              ((if r$511
                                 (k$510 '())
                                 (#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(157
                                      (r$515)
                                      ((rewrite$230
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(156
                                             (r$512)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(155
                                                   (r$514)
                                                   ((rewrite-args$229
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(154
                                                          (r$513)
                                                          ((scons$231
                                                             k$510
                                                             r$512
                                                             r$513
                                                             lst$282))
                                                          #f))
                                                      r$514))
                                                   #f))
                                               (cdr lst$282)))
                                             #f))
                                         r$515))
                                      #f))
                                  (car lst$282))))
                              #f))
                          (null? lst$282)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$389 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  137
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-with-lemmas$228
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(150
                        (k$500 term$281 lst$280)
                        ((if (null? lst$280)
                           (k$500 term$281)
                           (one-way-unify$226
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(146
                                 (r$502)
                                 ((if r$502
                                    (apply-subst$237
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(140
                                          (r$503)
                                          ((rewrite$230 k$500 r$503))
                                          #f))
                                      unify-subst$227
                                      (caddr (car lst$280)))
                                    (rewrite-with-lemmas$228
                                      k$500
                                      term$281
                                      (cdr lst$280))))
                                 #f))
                             term$281
                             (cadr (car lst$280)))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$680 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 441 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (x$268 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 86 #f #f #f 2 (86 84) #f #f 0 2 #t #f #f))))
      ((r$681 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 440 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$682 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 439 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$683 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (falsep$223
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (204 213 92)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(91
                 (k$468 x$271 lst$270)
                 ((term-equal?$217
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(89
                        (tmp$117$272)
                        ((if tmp$117$272
                           (k$468 tmp$117$272)
                           (term-member?$215 k$468 x$271 lst$270)))
                        #f))
                    x$271
                    false-term$221))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((hide .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 461
                 #f
                 #f
                 2
                 (-1 469)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(461
                      (k$730 r$348 x$347)
                      ((call-with-values
                         k$730
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(460
                             (k$735)
                             ((vector
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(457
                                    (r$736)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(456
                                          (k$738)
                                          ((if (Cyc-fast-lt r$348 100)
                                             (k$738 0)
                                             (k$738 1)))
                                          #t))
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(454
                                          (r$737)
                                          ((values k$735 r$736 r$737))
                                          #f))))
                                    #f))
                                values
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(459 (k$741 x$351) ((k$741 x$351)) #t))))
                             #t))
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(452
                             (k$733 v$350 i$349)
                             (((vector-ref v$350 i$349) k$733 x$347))
                             #t))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ((r$687 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  383
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! loop$338
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(427
                        (k$689 i$340 result$339)
                        ((if (Cyc-fast-lt i$340 count$328)
                           (thunk$327
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(385
                                 (r$692)
                                 ((loop$338
                                    k$689
                                    (Cyc-fast-plus i$340 1)
                                    r$692))
                                 #f)))
                           (ok?$326
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(425
                                 (r$693)
                                 ((if r$693
                                    (current-jiffy
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(416
                                          (j1$341)
                                          ((current-second
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(414
                                                 (t1$342)
                                                 ((rounded$331
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(406
                                                        (secs2$345)
                                                        ((display
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(404
                                                               (r$700)
                                                               ((write #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(403
                                                                           (r$701)
                                                                           ((display
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(402
                                                                                  (r$702)
                                                                                  ((write #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(401
                                                                                              (r$703)
                                                                                              ((display
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(400
                                                                                                     (r$704)
                                                                                                     ((display
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(399
                                                                                                            (r$705)
                                                                                                            ((newline
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(398
                                                                                                                   (r$706)
                                                                                                                   ((display
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(397
                                                                                                                          (r$707)
                                                                                                                          ((this-scheme-implementation-name
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(396
                                                                                                                                 (r$715)
                                                                                                                                 ((display
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(395
                                                                                                                                        (r$708)
                                                                                                                                        ((display
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(394
                                                                                                                                               (r$709)
                                                                                                                                               ((display
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(393
                                                                                                                                                      (r$710)
                                                                                                                                                      ((display
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(392
                                                                                                                                                             (r$711)
                                                                                                                                                             ((display
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(391
                                                                                                                                                                    (r$712)
                                                                                                                                                                    ((newline
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(390
                                                                                                                                                                           (r$713)
                                                                                                                                                                           ((current-output-port
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(389
                                                                                                                                                                                  (r$714)
                                                                                                                                                                                  ((flush-output-port
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(388
                                                                                                                                                                                         (r$694)
                                                                                                                                                                                         ((k$689 result$339))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     r$714))
                                                                                                                                                                                  #f))))
                                                                                                                                                                           #f))))
                                                                                                                                                                    #f))
                                                                                                                                                                (inexact__inline__
                                                                                                                                                                  (Cyc-fast-div
                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                      j1$341
                                                                                                                                                                      j0$335)
                                                                                                                                                                    j/s$333))))
                                                                                                                                                             #f))
                                                                                                                                                         ","))
                                                                                                                                                      #f))
                                                                                                                                                  name$329))
                                                                                                                                               #f))
                                                                                                                                           ","))
                                                                                                                                        #f))
                                                                                                                                    r$715))
                                                                                                                                 #f))))
                                                                                                                          #f))
                                                                                                                      "+!CSVLINE!+"))
                                                                                                                   #f))))
                                                                                                            #f))
                                                                                                        name$329))
                                                                                                     #f))
                                                                                                 ") for "))
                                                                                              #f))
                                                                                          secs2$345))
                                                                                  #f))
                                                                              " seconds ("))
                                                                           #f))
                                                                       (inexact__inline__
                                                                         (Cyc-fast-div
                                                                           (Cyc-fast-sub
                                                                             j1$341
                                                                             j0$335)
                                                                           j/s$333))))
                                                               #f))
                                                           "Elapsed time: "))
                                                        #f))
                                                    (Cyc-fast-sub
                                                      t1$342
                                                      t0$334)))
                                                 #f))))
                                          #f)))
                                    (display
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(423
                                          (r$718)
                                          ((write #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(422
                                                      (r$719)
                                                      ((newline
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(421
                                                             (r$720)
                                                             ((current-output-port
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(420
                                                                    (r$722)
                                                                    ((flush-output-port
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(419
                                                                           (r$721)
                                                                           ((k$689 result$339))
                                                                           #f))
                                                                       r$722))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  result$339))
                                          #f))
                                      "ERROR: returned incorrect result: ")))
                                 #f))
                             result$339)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((t0$334
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 433 #f #f #f 1 (414) #f #f 0 1 #t #f #f))))
      ()
      ((temp-temp$277
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             125
             #f
             #f
             #f
             2
             (125 125)
             #f
             (assq term2$275 unify-subst$227)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$584 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 271 #f #f #f 1 (256) #f #f 0 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ((true-lst$288
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             214
             #f
             #f
             #f
             6
             (214 212 202 197 202 204)
             #f
             #f
             0
             6
             #t
             #f
             #f))))
      ((r$390 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  135
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 '*)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$391 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  130
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify$226
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(134
                        (k$495 term1$279 term2$278)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(132
                              (r$496)
                              ((one-way-unify1$225 k$495 term1$279 term2$278))
                              #f))
                          (set! unify-subst$227 '())))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$392 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  106
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify1$225
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(129
                        (k$480 term1$276 term2$275)
                        ((if (pair? term2$275)
                           (if (pair? term1$276)
                             (if (eq? (car term1$276) (car term2$275))
                               (one-way-unify1-lst$224
                                 k$480
                                 (cdr term1$276)
                                 (cdr term2$275))
                               (k$480 #f))
                             (k$480 #f))
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(125
                                (temp-temp$277)
                                ((if temp-temp$277
                                   (term-equal?$217
                                     k$480
                                     term1$276
                                     (cdr temp-temp$277))
                                   (if (number? term2$275)
                                     (k$480 (equal? term1$276 term2$275))
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(121
                                          (r$492)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(120 (r$491) ((k$480 #t)) #f))
                                            (set! unify-subst$227 r$492)))
                                          #f))
                                      (cons (cons term2$275 term1$276)
                                            unify-subst$227)))))
                                #f))
                            (assq term2$275 unify-subst$227))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$393 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  92
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify1-lst$224
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(105
                        (k$471 lst1$274 lst2$273)
                        ((if (null? lst1$274)
                           (k$471 (null? lst2$273))
                           (if (null? lst2$273)
                             (k$471 #f)
                             (one-way-unify1$225
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(100
                                   (r$474)
                                   ((if r$474
                                      (one-way-unify1-lst$224
                                        k$471
                                        (cdr lst1$274)
                                        (cdr lst2$273))
                                      (k$471 #f)))
                                   #f))
                               (car lst1$274)
                               (car lst2$273)))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$394 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  87
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! falsep$223
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(91
                        (k$468 x$271 lst$270)
                        ((term-equal?$217
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(89
                               (tmp$117$272)
                               ((if tmp$117$272
                                  (k$468 tmp$117$272)
                                  (term-member?$215 k$468 x$271 lst$270)))
                               #f))
                           x$271
                           false-term$221))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$271 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 91 #f #f #f 2 (91 89) #f #f 0 2 #t #f #f))))
      ((r$395 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  82
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! truep$222
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(86
                        (k$465 x$268 lst$267)
                        ((term-equal?$217
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(84
                               (tmp$120$269)
                               ((if tmp$120$269
                                  (k$465 tmp$120$269)
                                  (term-member?$215 k$465 x$268 lst$267)))
                               #f))
                           x$268
                           true-term$220))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$396 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  80
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! false-term$221 '*)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$397 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  78
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! true-term$220 '*)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$398 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  70
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! trans-of-implies$219
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(77
                        (k$456 n$266)
                        ((trans-of-implies1$218
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(75
                               (r$459)
                               ((list #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(73
                                          (r$460)
                                          ((list #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(72
                                                     (r$457)
                                                     ((translate-term$251
                                                        k$456
                                                        r$457))
                                                     #f))
                                                 'implies
                                                 r$459
                                                 r$460))
                                          #f))
                                      'implies
                                      0
                                      n$266))
                               #f))
                           n$266))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$399 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  57
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! trans-of-implies1$218
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(69
                        (k$446 n$265)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(68
                              (r$447)
                              ((if r$447
                                 (list k$446 'implies 0 1)
                                 (#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(64
                                      (r$454)
                                      ((list #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(63
                                                 (r$450)
                                                 ((trans-of-implies1$218
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(61
                                                        (r$451)
                                                        ((list k$446
                                                               'and
                                                               r$450
                                                               r$451))
                                                        #f))
                                                    (Cyc-fast-sub n$265 1)))
                                                 #f))
                                             'implies
                                             r$454
                                             n$265))
                                      #f))
                                  (Cyc-fast-sub n$265 1))))
                              #f))
                          (equal? n$265 1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((display
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             13
             (425
              392
              393
              394
              395
              396
              398
              400
              401
              403
              406
              441
              442)
             #f
             #f
             13
             0
             #f
             #f
             #f))))
      ((caddr .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  3
                  (198 204 146)
                  #f
                  #f
                  3
                  0
                  #t
                  #f
                  #f)))
       (r$400 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  45
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-equal?$217
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(56
                        (k$437 x$264 y$263)
                        ((if (pair? x$264)
                           (if (pair? y$263)
                             (symbol-record-equal?$240
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(49
                                   (r$440)
                                   ((if r$440
                                      (term-args-equal?$216
                                        k$437
                                        (cdr x$264)
                                        (cdr y$263))
                                      (k$437 #f)))
                                   #f))
                               (car x$264)
                               (car y$263))
                             (k$437 #f))
                           (k$437 (equal? x$264 y$263))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$692 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 385 #f #f #f 1 (385) #f #f 0 1 #t #f #f)))
       (r$401 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  31
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-args-equal?$216
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(44
                        (k$428 lst1$262 lst2$261)
                        ((if (null? lst1$262)
                           (k$428 (null? lst2$261))
                           (if (null? lst2$261)
                             (k$428 #f)
                             (term-equal?$217
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(39
                                   (r$431)
                                   ((if r$431
                                      (term-args-equal?$216
                                        k$428
                                        (cdr lst1$262)
                                        (cdr lst2$261))
                                      (k$428 #f)))
                                   #f))
                               (car lst1$262)
                               (car lst2$261)))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$693 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 425 #f #f #f 1 (425) #f #f 0 0 #t #f #f)))
       (r$402 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  21
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-member?$215
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(30
                        (k$422 x$260 lst$259)
                        ((if (null? lst$259)
                           (k$422 #f)
                           (term-equal?$217
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(27
                                 (r$424)
                                 ((if r$424
                                    (k$422 #t)
                                    (term-member?$215
                                      k$422
                                      x$260
                                      (cdr lst$259))))
                                 #f))
                             x$260
                             (car lst$259))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$694 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 388 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$403 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  7
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! setup-boyer
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(20
                        (k$409)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(18
                              (r$410)
                              ((symbol->symbol-record$246
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(16
                                     (r$418)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(15
                                           (r$411)
                                           ((translate-term$251
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(13
                                                  (r$416)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(12
                                                        (r$412)
                                                        ((translate-term$251
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(10
                                                               (r$414)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(9
                                                                     (r$413)
                                                                     ((setup$254
                                                                        k$409))
                                                                     #f))
                                                                 (set! true-term$220
                                                                   r$414)))
                                                               #f))
                                                           '(t)))
                                                        #f))
                                                    (set! false-term$221
                                                      r$416)))
                                                  #f))
                                              '(f)))
                                           #f))
                                       (set! if-constructor$233 r$418)))
                                     #f))
                                 'if))
                              #f))
                          (set! *symbol-records-alist*$245 '())))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((r$406 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  5
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ((r$700 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 404 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$701 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 403 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$702 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((count$352
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             482
             #f
             #f
             #f
             3
             (478 469 471)
             #f
             #f
             0
             3
             #f
             #f
             #f)))
       (r$703 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 401 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$704 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 400 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((k$591 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 267 #f #f #f 2 (263 267) #f #f 1 1 #t #f #t)))
       (r$705 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 399 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$706 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$707 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 397 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$708 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 395 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$709 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((k$598 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 274 #f #f #f 1 (274) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ((k$600 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 277 #f #f #f 1 (277) #f #f 1 0 #t #f #t))))
      ()
      ((k$602 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 280 #f #f #f 1 (280) #f #f 1 0 #t #f #t))))
      ((trans-of-implies$219
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             1
             (78)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(77
                 (k$456 n$266)
                 ((trans-of-implies1$218
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(75
                        (r$459)
                        ((list #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(73
                                   (r$460)
                                   ((list #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(72
                                              (r$457)
                                              ((translate-term$251 k$456 r$457))
                                              #f))
                                          'implies
                                          r$459
                                          r$460))
                                   #f))
                               'implies
                               0
                               n$266))
                        #f))
                    n$266))
                 #t))
             0
             0
             #f
             #f
             #f))))
      ((k$604 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 283 #f #f #f 1 (283) #f #f 1 0 #t #f #t))))
      ()
      ((k$606 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #t)))
       (round__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f))))
      ((x$286 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 181) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((x$289 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  214
                  #f
                  #f
                  #f
                  12
                  (214 213 212 204 202 198 197 197 202 204 212 212)
                  #f
                  #f
                  0
                  12
                  #t
                  #f
                  #f)))
       (cons .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 15
                 (341
                  330
                  321
                  310
                  295
                  294
                  245
                  245
                  233
                  224
                  202
                  197
                  177
                  125
                  125)
                 #f
                 #f
                 15
                 0
                 #t
                 #f
                 #f)))
       (r$410 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  18
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 '())
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$411 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  15
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! if-constructor$233 r$418)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$412 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  12
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! false-term$221 r$416)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$413 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  9
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! true-term$220 r$414)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$414 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 10 #f #f #f 1 (10) #f #f 0 0 #t #f #f))))
      ()
      ((r$416 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 13 #f #f #f 1 (13) #f #f 0 0 #t #f #f))))
      ()
      ((r$418 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 16 #f #f #f 1 (16) #f #f 0 0 #t #f #f))))
      ()
      ((temp-temp$295
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             237
             #f
             #f
             #f
             2
             (237 237)
             #f
             (assq term$293 alist$294)
             0
             1
             #t
             #f
             #f))))
      ((r$710 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 393 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$711 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 392 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$712 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$713 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 390 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$714 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 389 #f #f #f 1 (389) #f #f 0 1 #t #f #f))))
      ((r$715 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 396 #f #f #f 1 (396) #f #f 0 1 #t #f #f))))
      ()
      ((translate-alist$238
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (271 248 254)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(253
                 (k$575 alist$296)
                 ((if (null? alist$296)
                    (k$575 '())
                    (translate-term$251
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(248
                          (r$581)
                          ((translate-alist$238
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(245
                                 (r$578)
                                 ((k$575 (cons (cons (caar alist$296) r$581)
                                               r$578)))
                                 #f))
                             (cdr alist$296)))
                          #f))
                      (cdar alist$296))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((r$718 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 423 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$719 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 422 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$610 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 299 #f #f #f 2 (292 297) #f #f 2 0 #t #f #t))))
      ((x$290 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 220 #f #f #f 1 (220) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$617 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 303 #f #f #f 1 (302) #f #f 0 1 #t #f #t)))
       (tautp$235
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (256 221)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(220
                 (k$556 x$290)
                 ((rewrite$230
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(219
                        (r$557)
                        ((tautologyp$234 k$556 r$557 '() '()))
                        #f))
                    x$290))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$424 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 27 #f #f #f 1 (27) #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$720 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 421 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$721 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 419 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$722 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 420 #f #f #f 1 (420) #f #f 0 1 #t #f #f))))
      ((r$723 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((one-way-unify1-lst$224
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (129 100 106)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(105
                 (k$471 lst1$274 lst2$273)
                 ((if (null? lst1$274)
                    (k$471 (null? lst2$273))
                    (if (null? lst2$273)
                      (k$471 #f)
                      (one-way-unify1$225
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(100
                            (r$474)
                            ((if r$474
                               (one-way-unify1-lst$224
                                 k$471
                                 (cdr lst1$274)
                                 (cdr lst2$273))
                               (k$471 #f)))
                            #f))
                        (car lst1$274)
                        (car lst2$273)))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((inexact__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (404 392) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ((k$620 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 307 #f #f #f 1 (306) #f #f 0 1 #f #f #t))))
      ()
      ()
      ((k$623 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 317 #f #f #f 2 (317 310) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((jiffies-per-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (437) #f #f 1 0 #f #f #f))))
      ((r$431 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 39 #f #f #f 1 (39) #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((x$314 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  297
                  #f
                  #f
                  #f
                  2
                  (297 297)
                  #f
                  (assq sym$313 *symbol-records-alist*$245)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((put-lemmas!$243
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (306 284)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(283
                 (k$604 symbol-record$311 lemmas$310)
                 ((k$604 (vector-set! symbol-record$311 1 lemmas$310)))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ((ok?$326
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (427) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ((r$736 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 457 #f #f #f 1 (454) #f #f 0 1 #f #f #f))))
      ((r$737 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 454 #f #f #f 1 (454) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((vector-ref
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (280 277 452)
             #f
             #f
             3
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((k$630 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 327 #f #f #f 2 (321 327) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ((-1
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(? ? () #t)))))))
 */
/* 
"---------------- after cps optimizations (2):"
 */
/* 
((define main
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(484
       (k$754)
       ((read #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(482
                  (count$352)
                  ((read #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(480
                             (input$353)
                             ((read #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(478
                                        (output$354)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(476
                                              (s2$355)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(474
                                                    (s1$356)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(471
                                                          (r$760)
                                                          ((run-r7rs-benchmark
                                                             k$754
                                                             r$760
                                                             count$352
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(470
                                                                 (k$765)
                                                                 ((setup-boyer
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(469
                                                                        (r$766)
                                                                        ((hide #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(468
                                                                                   (r$767)
                                                                                   ((test-boyer
                                                                                      k$765
                                                                                      alist
                                                                                      term
                                                                                      r$767))
                                                                                   #f))
                                                                               count$352
                                                                               input$353))
                                                                        #f))))
                                                                 #t))
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(466
                                                                 (k$763 rewrites$358)
                                                                 ((if (number?
                                                                        rewrites$358)
                                                                    (k$763 (Cyc-fast-eq
                                                                             rewrites$358
                                                                             output$354))
                                                                    (k$763 #f)))
                                                                 #t))))
                                                          #f))
                                                      (string-append
                                                        "sboyer"
                                                        ":"
                                                        s1$356
                                                        ":"
                                                        s2$355)))
                                                    #f))
                                                (number->string input$353)))
                                              #f))
                                          (number->string count$352)))
                                        #f))))
                             #f))))
                  #f))))
       #t)))
 (define alist #f)
 (define term #f)
 (define setup-boyer
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(463 (k$747) ((k$747 #t)) #t)))
 (define test-boyer
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(462 (k$744) ((k$744 #t)) #t)))
 (define hide
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(461
       (k$730 r$348 x$347)
       ((call-with-values
          k$730
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(460
              (k$735)
              ((vector
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(457
                     (r$736)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(456
                           (k$738)
                           ((if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(454 (r$737) ((values k$735 r$736 r$737)) #f))))
                     #f))
                 values
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(459 (k$741 x$351) ((k$741 x$351)) #t))))
              #t))
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(452
              (k$733 v$350 i$349)
              (((vector-ref v$350 i$349) k$733 x$347))
              #t))))
       #t)))
 (define run-r7rs-benchmark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(449
       (k$678 name$329 count$328 thunk$327 ok?$326)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(448
             (rounded$331)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(442
                   (r$679)
                   ((display
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(441
                          (r$680)
                          ((display
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(440
                                 (r$681)
                                 ((newline
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(439
                                        (r$682)
                                        ((current-output-port
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(438
                                               (r$723)
                                               ((flush-output-port
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(437
                                                      (r$683)
                                                      ((jiffies-per-second
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(435
                                                             (j/s$333)
                                                             ((current-second
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(433
                                                                    (t0$334)
                                                                    ((current-jiffy
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(431
                                                                           (j0$335)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(428
                                                                                 (loop$338)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(383
                                                                                       (r$687)
                                                                                       ((loop$338
                                                                                          k$678
                                                                                          0
                                                                                          #f))
                                                                                       #f))
                                                                                   (set! loop$338
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(427
                                                                                         (k$689 i$340
                                                                                                result$339)
                                                                                         ((if (Cyc-fast-lt
                                                                                                i$340
                                                                                                count$328)
                                                                                            (thunk$327
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(385
                                                                                                  (r$692)
                                                                                                  ((loop$338
                                                                                                     k$689
                                                                                                     (Cyc-fast-plus
                                                                                                       i$340
                                                                                                       1)
                                                                                                     r$692))
                                                                                                  #f)))
                                                                                            (ok?$326
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(425
                                                                                                  (r$693)
                                                                                                  ((if r$693
                                                                                                     (current-jiffy
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(416
                                                                                                           (j1$341)
                                                                                                           ((current-second
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(414
                                                                                                                  (t1$342)
                                                                                                                  ((rounded$331
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(406
                                                                                                                         (secs2$345)
                                                                                                                         ((display
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(404
                                                                                                                                (r$700)
                                                                                                                                ((write #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(403
                                                                                                                                            (r$701)
                                                                                                                                            ((display
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(402
                                                                                                                                                   (r$702)
                                                                                                                                                   ((write #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(401
                                                                                                                                                               (r$703)
                                                                                                                                                               ((display
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(400
                                                                                                                                                                      (r$704)
                                                                                                                                                                      ((display
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(399
                                                                                                                                                                             (r$705)
                                                                                                                                                                             ((newline
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(398
                                                                                                                                                                                    (r$706)
                                                                                                                                                                                    ((display
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(397
                                                                                                                                                                                           (r$707)
                                                                                                                                                                                           ((this-scheme-implementation-name
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(396
                                                                                                                                                                                                  (r$715)
                                                                                                                                                                                                  ((display
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(395
                                                                                                                                                                                                         (r$708)
                                                                                                                                                                                                         ((display
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(394
                                                                                                                                                                                                                (r$709)
                                                                                                                                                                                                                ((display
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                           body
                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                     #(393
                                                                                                                                                                                                                       (r$710)
                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(392
                                                                                                                                                                                                                              (r$711)
                                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                   #(391
                                                                                                                                                                                                                                     (r$712)
                                                                                                                                                                                                                                     ((newline
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(390
                                                                                                                                                                                                                                            (r$713)
                                                                                                                                                                                                                                            ((current-output-port
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(389
                                                                                                                                                                                                                                                   (r$714)
                                                                                                                                                                                                                                                   ((flush-output-port
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                        #(388
                                                                                                                                                                                                                                                          (r$694)
                                                                                                                                                                                                                                                          ((k$689 result$339))
                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                      r$714))
                                                                                                                                                                                                                                                   #f))))
                                                                                                                                                                                                                                            #f))))
                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                 (inexact__inline__
                                                                                                                                                                                                                                   (Cyc-fast-div
                                                                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                                                                       j1$341
                                                                                                                                                                                                                                       j0$335)
                                                                                                                                                                                                                                     j/s$333))))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          ","))
                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                   name$329))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            ","))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$715))
                                                                                                                                                                                                  #f))))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       "+!CSVLINE!+"))
                                                                                                                                                                                    #f))))
                                                                                                                                                                             #f))
                                                                                                                                                                         name$329))
                                                                                                                                                                      #f))
                                                                                                                                                                  ") for "))
                                                                                                                                                               #f))
                                                                                                                                                           secs2$345))
                                                                                                                                                   #f))
                                                                                                                                               " seconds ("))
                                                                                                                                            #f))
                                                                                                                                        (inexact__inline__
                                                                                                                                          (Cyc-fast-div
                                                                                                                                            (Cyc-fast-sub
                                                                                                                                              j1$341
                                                                                                                                              j0$335)
                                                                                                                                            j/s$333))))
                                                                                                                                #f))
                                                                                                                            "Elapsed time: "))
                                                                                                                         #f))
                                                                                                                     (Cyc-fast-sub
                                                                                                                       t1$342
                                                                                                                       t0$334)))
                                                                                                                  #f))))
                                                                                                           #f)))
                                                                                                     (display
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(423
                                                                                                           (r$718)
                                                                                                           ((write #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(422
                                                                                                                       (r$719)
                                                                                                                       ((newline
                                                                                                                          #((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(421
                                                                                                                              (r$720)
                                                                                                                              ((current-output-port
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(420
                                                                                                                                     (r$722)
                                                                                                                                     ((flush-output-port
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(419
                                                                                                                                            (r$721)
                                                                                                                                            ((k$689 result$339))
                                                                                                                                            #f))
                                                                                                                                        r$722))
                                                                                                                                     #f))))
                                                                                                                              #f))))
                                                                                                                       #f))
                                                                                                                   result$339))
                                                                                                           #f))
                                                                                                       "ERROR: returned incorrect result: ")))
                                                                                                  #f))
                                                                                              result$339)))
                                                                                         #t)))))
                                                                                 #f))
                                                                             #f))
                                                                           #f))))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  r$723))
                                               #f))))
                                        #f))))
                                 #f))
                             name$329))
                          #f))
                      "Running "))
                   #f))
               (set! rounded$331
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(446
                     (k$725 x$346)
                     ((k$725 (Cyc-fast-div
                               (round__inline__ (Cyc-fast-mul 1000 x$346))
                               1000)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define this-scheme-implementation-name
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(382
       (k$674)
       ((Cyc-version
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(381
              (r$675)
              ((k$674 (string-append "cyclone-" r$675)))
              #f))))
       #t)))
 (#((record-marker)
    #((record-marker) #f (id args body has-cont))
    #(376
      (r$360)
      ((#((record-marker)
          #((record-marker) #f (id args body has-cont))
          #(374
            (r$361)
            ((#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(372
                  (setup$254
                    add-lemma-lst$253
                    add-lemma$252
                    translate-term$251
                    translate-args$250
                    untranslate-term$249
                    put$248
                    get$247
                    symbol->symbol-record$246
                    *symbol-records-alist*$245
                    make-symbol-record$244
                    put-lemmas!$243
                    get-lemmas$242
                    get-name$241
                    symbol-record-equal?$240
                    test$239
                    translate-alist$238
                    apply-subst$237
                    apply-subst-lst$236
                    tautp$235
                    tautologyp$234
                    if-constructor$233
                    rewrite-count$232
                    scons$231
                    rewrite$230
                    rewrite-args$229
                    rewrite-with-lemmas$228
                    unify-subst$227
                    one-way-unify$226
                    one-way-unify1$225
                    one-way-unify1-lst$224
                    falsep$223
                    truep$222
                    false-term$221
                    true-term$220
                    trans-of-implies$219
                    trans-of-implies1$218
                    term-equal?$217
                    term-args-equal?$216
                    term-member?$215)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(368
                        (r$363)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(359
                              (r$364)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(338
                                    (r$365)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(328
                                          (r$366)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(318
                                                (r$367)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(308
                                                      (r$368)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(304
                                                            (r$369)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(300
                                                                  (r$370)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(290
                                                                        (r$371)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(288
                                                                              (r$372)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(284
                                                                                    (r$373)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(281
                                                                                          (r$374)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(278
                                                                                                (r$375)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(275
                                                                                                      (r$376)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(272
                                                                                                            (r$377)
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(254
                                                                                                                  (r$378)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(242
                                                                                                                        (r$379)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(231
                                                                                                                              (r$380)
                                                                                                                              ((#((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(221
                                                                                                                                    (r$381)
                                                                                                                                    ((#((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(215
                                                                                                                                          (r$382)
                                                                                                                                          ((#((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(186
                                                                                                                                                (r$383)
                                                                                                                                                ((#((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(184
                                                                                                                                                      (r$384)
                                                                                                                                                      ((#((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(183
                                                                                                                                                            (r$385)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(175
                                                                                                                                                                  (r$386)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(161
                                                                                                                                                                        (r$387)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(151
                                                                                                                                                                              (r$388)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(137
                                                                                                                                                                                    (r$389)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(135
                                                                                                                                                                                          (r$390)
                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(130
                                                                                                                                                                                                (r$391)
                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(106
                                                                                                                                                                                                      (r$392)
                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(92
                                                                                                                                                                                                            (r$393)
                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                      body
                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                #(87
                                                                                                                                                                                                                  (r$394)
                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                            body
                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                      #(82
                                                                                                                                                                                                                        (r$395)
                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(80
                                                                                                                                                                                                                              (r$396)
                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                  #(78
                                                                                                                                                                                                                                    (r$397)
                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(70
                                                                                                                                                                                                                                          (r$398)
                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(57
                                                                                                                                                                                                                                                (r$399)
                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                    #(45
                                                                                                                                                                                                                                                      (r$400)
                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(31
                                                                                                                                                                                                                                                            (r$401)
                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                #(21
                                                                                                                                                                                                                                                                  (r$402)
                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                      #(7
                                                                                                                                                                                                                                                                        (r$403)
                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(1
                                                                                                                                                                                                                                                                              (r$362)
                                                                                                                                                                                                                                                                              ((main %halt))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          (set! test-boyer
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                              #(6
                                                                                                                                                                                                                                                                                (k$405 alist$257
                                                                                                                                                                                                                                                                                       term$256
                                                                                                                                                                                                                                                                                       n$255)
                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(5
                                                                                                                                                                                                                                                                                      (r$406)
                                                                                                                                                                                                                                                                                      ((test$239
                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(3
                                                                                                                                                                                                                                                                                             (answer$258)
                                                                                                                                                                                                                                                                                             ((if answer$258
                                                                                                                                                                                                                                                                                                (k$405 rewrite-count$232)
                                                                                                                                                                                                                                                                                                (k$405 #f)))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         alist$257
                                                                                                                                                                                                                                                                                         term$256
                                                                                                                                                                                                                                                                                         n$255))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  (set! rewrite-count$232
                                                                                                                                                                                                                                                                                    0)))
                                                                                                                                                                                                                                                                                #t)))))
                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                    (set! setup-boyer
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                        #(20
                                                                                                                                                                                                                                                                          (k$409)
                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                              #(18
                                                                                                                                                                                                                                                                                (r$410)
                                                                                                                                                                                                                                                                                ((symbol->symbol-record$246
                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                     #(16
                                                                                                                                                                                                                                                                                       (r$418)
                                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(15
                                                                                                                                                                                                                                                                                             (r$411)
                                                                                                                                                                                                                                                                                             ((translate-term$251
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                  #(13
                                                                                                                                                                                                                                                                                                    (r$416)
                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                        #(12
                                                                                                                                                                                                                                                                                                          (r$412)
                                                                                                                                                                                                                                                                                                          ((translate-term$251
                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                               #(10
                                                                                                                                                                                                                                                                                                                 (r$414)
                                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                     #(9
                                                                                                                                                                                                                                                                                                                       (r$413)
                                                                                                                                                                                                                                                                                                                       ((add-lemma-lst$253
                                                                                                                                                                                                                                                                                                                          k$409
                                                                                                                                                                                                                                                                                                                          '((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))
                                                                                                                                                                                                                                                                                                                   (set! true-term$220
                                                                                                                                                                                                                                                                                                                     r$414)))
                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                             '(t)))
                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                      (set! false-term$221
                                                                                                                                                                                                                                                                                                        r$416)))
                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                '(f)))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         (set! if-constructor$233
                                                                                                                                                                                                                                                                                           r$418)))
                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                   'if))
                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                            (set! *symbol-records-alist*$245
                                                                                                                                                                                                                                                                              '())))
                                                                                                                                                                                                                                                                          #t)))))
                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                              (set! term-member?$215
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                  #(30
                                                                                                                                                                                                                                                                    (k$422 x$260
                                                                                                                                                                                                                                                                           lst$259)
                                                                                                                                                                                                                                                                    ((if (null? lst$259)
                                                                                                                                                                                                                                                                       (k$422 #f)
                                                                                                                                                                                                                                                                       (term-equal?$217
                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                           #(27
                                                                                                                                                                                                                                                                             (r$424)
                                                                                                                                                                                                                                                                             ((if r$424
                                                                                                                                                                                                                                                                                (k$422 #t)
                                                                                                                                                                                                                                                                                (term-member?$215
                                                                                                                                                                                                                                                                                  k$422
                                                                                                                                                                                                                                                                                  x$260
                                                                                                                                                                                                                                                                                  (cdr lst$259))))
                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                         x$260
                                                                                                                                                                                                                                                                         (car lst$259))))
                                                                                                                                                                                                                                                                    #t)))))
                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                        (set! term-args-equal?$216
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(44
                                                                                                                                                                                                                                                              (k$428 lst1$262
                                                                                                                                                                                                                                                                     lst2$261)
                                                                                                                                                                                                                                                              ((if (null? lst1$262)
                                                                                                                                                                                                                                                                 (k$428 (null? lst2$261))
                                                                                                                                                                                                                                                                 (if (null? lst2$261)
                                                                                                                                                                                                                                                                   (k$428 #f)
                                                                                                                                                                                                                                                                   (term-equal?$217
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                       #(39
                                                                                                                                                                                                                                                                         (r$431)
                                                                                                                                                                                                                                                                         ((if r$431
                                                                                                                                                                                                                                                                            (term-args-equal?$216
                                                                                                                                                                                                                                                                              k$428
                                                                                                                                                                                                                                                                              (cdr lst1$262)
                                                                                                                                                                                                                                                                              (cdr lst2$261))
                                                                                                                                                                                                                                                                            (k$428 #f)))
                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                     (car lst1$262)
                                                                                                                                                                                                                                                                     (car lst2$261)))))
                                                                                                                                                                                                                                                              #t)))))
                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                  (set! term-equal?$217
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(56
                                                                                                                                                                                                                                                        (k$437 x$264
                                                                                                                                                                                                                                                               y$263)
                                                                                                                                                                                                                                                        ((if (pair? x$264)
                                                                                                                                                                                                                                                           (if (pair? y$263)
                                                                                                                                                                                                                                                             (if (eq? (car x$264)
                                                                                                                                                                                                                                                                      (car y$263))
                                                                                                                                                                                                                                                               (term-args-equal?$216
                                                                                                                                                                                                                                                                 k$437
                                                                                                                                                                                                                                                                 (cdr x$264)
                                                                                                                                                                                                                                                                 (cdr y$263))
                                                                                                                                                                                                                                                               (k$437 #f))
                                                                                                                                                                                                                                                             (k$437 #f))
                                                                                                                                                                                                                                                           (k$437 (equal?
                                                                                                                                                                                                                                                                    x$264
                                                                                                                                                                                                                                                                    y$263))))
                                                                                                                                                                                                                                                        #t)))))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            (set! trans-of-implies1$218
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                #(69
                                                                                                                                                                                                                                                  (k$446 n$265)
                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(68
                                                                                                                                                                                                                                                        (r$447)
                                                                                                                                                                                                                                                        ((if r$447
                                                                                                                                                                                                                                                           (list k$446
                                                                                                                                                                                                                                                                 'implies
                                                                                                                                                                                                                                                                 0
                                                                                                                                                                                                                                                                 1)
                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                              #(64
                                                                                                                                                                                                                                                                (r$454)
                                                                                                                                                                                                                                                                ((list #((record-marker)
                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                         #(63
                                                                                                                                                                                                                                                                           (r$450)
                                                                                                                                                                                                                                                                           ((trans-of-implies1$218
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                #(61
                                                                                                                                                                                                                                                                                  (r$451)
                                                                                                                                                                                                                                                                                  ((list k$446
                                                                                                                                                                                                                                                                                         'and
                                                                                                                                                                                                                                                                                         r$450
                                                                                                                                                                                                                                                                                         r$451))
                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                                                                                                                                n$265
                                                                                                                                                                                                                                                                                1)))
                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                       'implies
                                                                                                                                                                                                                                                                       r$454
                                                                                                                                                                                                                                                                       n$265))
                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                                                                                                              n$265
                                                                                                                                                                                                                                                              1))))
                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                    (equal?
                                                                                                                                                                                                                                                      n$265
                                                                                                                                                                                                                                                      1)))
                                                                                                                                                                                                                                                  #t)))))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      (set! trans-of-implies$219
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(77
                                                                                                                                                                                                                                            (k$456 n$266)
                                                                                                                                                                                                                                            ((trans-of-implies1$218
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(75
                                                                                                                                                                                                                                                   (r$459)
                                                                                                                                                                                                                                                   ((list #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(73
                                                                                                                                                                                                                                                              (r$460)
                                                                                                                                                                                                                                                              ((list #((record-marker)
                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                       #(72
                                                                                                                                                                                                                                                                         (r$457)
                                                                                                                                                                                                                                                                         ((translate-term$251
                                                                                                                                                                                                                                                                            k$456
                                                                                                                                                                                                                                                                            r$457))
                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                     'implies
                                                                                                                                                                                                                                                                     r$459
                                                                                                                                                                                                                                                                     r$460))
                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                          'implies
                                                                                                                                                                                                                                                          0
                                                                                                                                                                                                                                                          n$266))
                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                               n$266))
                                                                                                                                                                                                                                            #t)))))
                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                (set! true-term$220
                                                                                                                                                                                                                                  '*)))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          (set! false-term$221
                                                                                                                                                                                                                            '*)))
                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                    (set! truep$222
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                              body
                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                        #(86
                                                                                                                                                                                                                          (k$465 x$268
                                                                                                                                                                                                                                 lst$267)
                                                                                                                                                                                                                          ((term-equal?$217
                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(84
                                                                                                                                                                                                                                 (tmp$120$269)
                                                                                                                                                                                                                                 ((if tmp$120$269
                                                                                                                                                                                                                                    (k$465 tmp$120$269)
                                                                                                                                                                                                                                    (term-member?$215
                                                                                                                                                                                                                                      k$465
                                                                                                                                                                                                                                      x$268
                                                                                                                                                                                                                                      lst$267)))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             x$268
                                                                                                                                                                                                                             true-term$220))
                                                                                                                                                                                                                          #t)))))
                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                              (set! falsep$223
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(91
                                                                                                                                                                                                                    (k$468 x$271
                                                                                                                                                                                                                           lst$270)
                                                                                                                                                                                                                    ((term-equal?$217
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(89
                                                                                                                                                                                                                           (tmp$117$272)
                                                                                                                                                                                                                           ((if tmp$117$272
                                                                                                                                                                                                                              (k$468 tmp$117$272)
                                                                                                                                                                                                                              (term-member?$215
                                                                                                                                                                                                                                k$468
                                                                                                                                                                                                                                x$271
                                                                                                                                                                                                                                lst$270)))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       x$271
                                                                                                                                                                                                                       false-term$221))
                                                                                                                                                                                                                    #t)))))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        (set! one-way-unify1-lst$224
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #f
                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                  body
                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                            #(105
                                                                                                                                                                                                              (k$471 lst1$274
                                                                                                                                                                                                                     lst2$273)
                                                                                                                                                                                                              ((if (null? lst1$274)
                                                                                                                                                                                                                 (k$471 (null? lst2$273))
                                                                                                                                                                                                                 (if (null? lst2$273)
                                                                                                                                                                                                                   (k$471 #f)
                                                                                                                                                                                                                   (one-way-unify1$225
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                             body
                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                       #(100
                                                                                                                                                                                                                         (r$474)
                                                                                                                                                                                                                         ((if r$474
                                                                                                                                                                                                                            (one-way-unify1-lst$224
                                                                                                                                                                                                                              k$471
                                                                                                                                                                                                                              (cdr lst1$274)
                                                                                                                                                                                                                              (cdr lst2$273))
                                                                                                                                                                                                                            (k$471 #f)))
                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                     (car lst1$274)
                                                                                                                                                                                                                     (car lst2$273)))))
                                                                                                                                                                                                              #t)))))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  (set! one-way-unify1$225
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(129
                                                                                                                                                                                                        (k$480 term1$276
                                                                                                                                                                                                               term2$275)
                                                                                                                                                                                                        ((if (pair? term2$275)
                                                                                                                                                                                                           (if (pair? term1$276)
                                                                                                                                                                                                             (if (eq? (car term1$276)
                                                                                                                                                                                                                      (car term2$275))
                                                                                                                                                                                                               (one-way-unify1-lst$224
                                                                                                                                                                                                                 k$480
                                                                                                                                                                                                                 (cdr term1$276)
                                                                                                                                                                                                                 (cdr term2$275))
                                                                                                                                                                                                               (k$480 #f))
                                                                                                                                                                                                             (k$480 #f))
                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(125
                                                                                                                                                                                                                (temp-temp$277)
                                                                                                                                                                                                                ((if temp-temp$277
                                                                                                                                                                                                                   (term-equal?$217
                                                                                                                                                                                                                     k$480
                                                                                                                                                                                                                     term1$276
                                                                                                                                                                                                                     (cdr temp-temp$277))
                                                                                                                                                                                                                   (if (number?
                                                                                                                                                                                                                         term2$275)
                                                                                                                                                                                                                     (k$480 (equal?
                                                                                                                                                                                                                              term1$276
                                                                                                                                                                                                                              term2$275))
                                                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                              body
                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                        #(121
                                                                                                                                                                                                                          (r$492)
                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                              #(120
                                                                                                                                                                                                                                (r$491)
                                                                                                                                                                                                                                ((k$480 #t))
                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                            (set! unify-subst$227
                                                                                                                                                                                                                              r$492)))
                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                      (cons (cons term2$275
                                                                                                                                                                                                                                  term1$276)
                                                                                                                                                                                                                            unify-subst$227)))))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            (assq term2$275
                                                                                                                                                                                                                  unify-subst$227))))
                                                                                                                                                                                                        #t)))))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            (set! one-way-unify$226
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(134
                                                                                                                                                                                                  (k$495 term1$279
                                                                                                                                                                                                         term2$278)
                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(132
                                                                                                                                                                                                        (r$496)
                                                                                                                                                                                                        ((one-way-unify1$225
                                                                                                                                                                                                           k$495
                                                                                                                                                                                                           term1$279
                                                                                                                                                                                                           term2$278))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    (set! unify-subst$227
                                                                                                                                                                                                      '())))
                                                                                                                                                                                                  #t)))))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      (set! unify-subst$227
                                                                                                                                                                                        '*)))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (set! rewrite-with-lemmas$228
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(150
                                                                                                                                                                                      (k$500 term$281
                                                                                                                                                                                             lst$280)
                                                                                                                                                                                      ((if (null? lst$280)
                                                                                                                                                                                         (k$500 term$281)
                                                                                                                                                                                         (one-way-unify$226
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(146
                                                                                                                                                                                               (r$502)
                                                                                                                                                                                               ((if r$502
                                                                                                                                                                                                  (apply-subst$237
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(140
                                                                                                                                                                                                        (r$503)
                                                                                                                                                                                                        ((rewrite$230
                                                                                                                                                                                                           k$500
                                                                                                                                                                                                           r$503))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    unify-subst$227
                                                                                                                                                                                                    (caddr (car lst$280)))
                                                                                                                                                                                                  (rewrite-with-lemmas$228
                                                                                                                                                                                                    k$500
                                                                                                                                                                                                    term$281
                                                                                                                                                                                                    (cdr lst$280))))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           term$281
                                                                                                                                                                                           (cadr (car lst$280)))))
                                                                                                                                                                                      #t)))))
                                                                                                                                                                              #f))
                                                                                                                                                                          (set! rewrite-args$229
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(160
                                                                                                                                                                                (k$510 lst$282)
                                                                                                                                                                                ((if (null? lst$282)
                                                                                                                                                                                   (k$510 '())
                                                                                                                                                                                   (rewrite$230
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(156
                                                                                                                                                                                         (r$512)
                                                                                                                                                                                         ((rewrite-args$229
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(154
                                                                                                                                                                                                (r$513)
                                                                                                                                                                                                ((scons$231
                                                                                                                                                                                                   k$510
                                                                                                                                                                                                   r$512
                                                                                                                                                                                                   r$513
                                                                                                                                                                                                   lst$282))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            (cdr lst$282)))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     (car lst$282))))
                                                                                                                                                                                #t)))))
                                                                                                                                                                        #f))
                                                                                                                                                                    (set! rewrite$230
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(174
                                                                                                                                                                          (k$517 term$283)
                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(173
                                                                                                                                                                                (r$526)
                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(172
                                                                                                                                                                                      (r$518)
                                                                                                                                                                                      ((if (pair? term$283)
                                                                                                                                                                                         (rewrite-args$229
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(166
                                                                                                                                                                                               (r$524)
                                                                                                                                                                                               ((scons$231
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(165
                                                                                                                                                                                                      (r$520)
                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(163
                                                                                                                                                                                                            (r$521)
                                                                                                                                                                                                            ((rewrite-with-lemmas$228
                                                                                                                                                                                                               k$517
                                                                                                                                                                                                               r$520
                                                                                                                                                                                                               r$521))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        (vector-ref
                                                                                                                                                                                                          (car term$283)
                                                                                                                                                                                                          1)))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  (car term$283)
                                                                                                                                                                                                  r$524
                                                                                                                                                                                                  term$283))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           (cdr term$283))
                                                                                                                                                                                         (k$517 term$283)))
                                                                                                                                                                                      #f))
                                                                                                                                                                                  (set! rewrite-count$232
                                                                                                                                                                                    r$526)))
                                                                                                                                                                                #f))
                                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                                              rewrite-count$232
                                                                                                                                                                              1)))
                                                                                                                                                                          #t)))))
                                                                                                                                                                  #f))
                                                                                                                                                              (set! scons$231
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(182
                                                                                                                                                                    (k$528 x$286
                                                                                                                                                                           y$285
                                                                                                                                                                           original$284)
                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(181
                                                                                                                                                                          (k$530)
                                                                                                                                                                          ((if (eq? x$286
                                                                                                                                                                                    (car original$284))
                                                                                                                                                                             (k$530 (eq? y$285
                                                                                                                                                                                         (cdr original$284)))
                                                                                                                                                                             (k$530 #f)))
                                                                                                                                                                          #t))
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(177
                                                                                                                                                                          (r$529)
                                                                                                                                                                          ((if r$529
                                                                                                                                                                             (k$528 original$284)
                                                                                                                                                                             (k$528 (cons x$286
                                                                                                                                                                                          y$285))))
                                                                                                                                                                          #f))))
                                                                                                                                                                    #t)))))
                                                                                                                                                            #f))
                                                                                                                                                        (set! rewrite-count$232
                                                                                                                                                          0)))
                                                                                                                                                      #f))
                                                                                                                                                  (set! if-constructor$233
                                                                                                                                                    '*)))
                                                                                                                                                #f))
                                                                                                                                            (set! tautologyp$234
                                                                                                                                              #((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(214
                                                                                                                                                  (k$536 x$289
                                                                                                                                                         true-lst$288
                                                                                                                                                         false-lst$287)
                                                                                                                                                  ((truep$222
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(213
                                                                                                                                                         (r$537)
                                                                                                                                                         ((if r$537
                                                                                                                                                            (k$536 #t)
                                                                                                                                                            (falsep$223
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(212
                                                                                                                                                                  (r$538)
                                                                                                                                                                  ((if r$538
                                                                                                                                                                     (k$536 #f)
                                                                                                                                                                     (if (pair? x$289)
                                                                                                                                                                       (if (eq? (car x$289)
                                                                                                                                                                                if-constructor$233)
                                                                                                                                                                         (truep$222
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(204
                                                                                                                                                                               (r$541)
                                                                                                                                                                               ((if r$541
                                                                                                                                                                                  (tautologyp$234
                                                                                                                                                                                    k$536
                                                                                                                                                                                    (caddr x$289)
                                                                                                                                                                                    true-lst$288
                                                                                                                                                                                    false-lst$287)
                                                                                                                                                                                  (falsep$223
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(202
                                                                                                                                                                                        (r$543)
                                                                                                                                                                                        ((if r$543
                                                                                                                                                                                           (tautologyp$234
                                                                                                                                                                                             k$536
                                                                                                                                                                                             (cadddr
                                                                                                                                                                                               x$289)
                                                                                                                                                                                             true-lst$288
                                                                                                                                                                                             false-lst$287)
                                                                                                                                                                                           (tautologyp$234
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #f
                                                                                                                                                                                                 (id args
                                                                                                                                                                                                     body
                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                               #(197
                                                                                                                                                                                                 (r$545)
                                                                                                                                                                                                 ((if r$545
                                                                                                                                                                                                    (tautologyp$234
                                                                                                                                                                                                      k$536
                                                                                                                                                                                                      (cadddr
                                                                                                                                                                                                        x$289)
                                                                                                                                                                                                      true-lst$288
                                                                                                                                                                                                      (cons (cadr x$289)
                                                                                                                                                                                                            false-lst$287))
                                                                                                                                                                                                    (k$536 #f)))
                                                                                                                                                                                                 #f))
                                                                                                                                                                                             (caddr x$289)
                                                                                                                                                                                             (cons (cadr x$289)
                                                                                                                                                                                                   true-lst$288)
                                                                                                                                                                                             false-lst$287)))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    (cadr x$289)
                                                                                                                                                                                    false-lst$287)))
                                                                                                                                                                               #f))
                                                                                                                                                                           (cadr x$289)
                                                                                                                                                                           true-lst$288)
                                                                                                                                                                         (k$536 #f))
                                                                                                                                                                       (k$536 #f))))
                                                                                                                                                                  #f))
                                                                                                                                                              x$289
                                                                                                                                                              false-lst$287)))
                                                                                                                                                         #f))
                                                                                                                                                     x$289
                                                                                                                                                     true-lst$288))
                                                                                                                                                  #t)))))
                                                                                                                                          #f))
                                                                                                                                      (set! tautp$235
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(220
                                                                                                                                            (k$556 x$290)
                                                                                                                                            ((rewrite$230
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(219
                                                                                                                                                   (r$557)
                                                                                                                                                   ((tautologyp$234
                                                                                                                                                      k$556
                                                                                                                                                      r$557
                                                                                                                                                      '()
                                                                                                                                                      '()))
                                                                                                                                                   #f))
                                                                                                                                               x$290))
                                                                                                                                            #t)))))
                                                                                                                                    #f))
                                                                                                                                (set! apply-subst-lst$236
                                                                                                                                  #((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(230
                                                                                                                                      (k$561 alist$292
                                                                                                                                             lst$291)
                                                                                                                                      ((if (null? lst$291)
                                                                                                                                         (k$561 '())
                                                                                                                                         (apply-subst$237
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(226
                                                                                                                                               (r$563)
                                                                                                                                               ((apply-subst-lst$236
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(224
                                                                                                                                                      (r$564)
                                                                                                                                                      ((k$561 (cons r$563
                                                                                                                                                                    r$564)))
                                                                                                                                                      #f))
                                                                                                                                                  alist$292
                                                                                                                                                  (cdr lst$291)))
                                                                                                                                               #f))
                                                                                                                                           alist$292
                                                                                                                                           (car lst$291))))
                                                                                                                                      #t)))))
                                                                                                                              #f))
                                                                                                                          (set! apply-subst$237
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(241
                                                                                                                                (k$568 alist$294
                                                                                                                                       term$293)
                                                                                                                                ((if (pair? term$293)
                                                                                                                                   (apply-subst-lst$236
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(233
                                                                                                                                         (r$571)
                                                                                                                                         ((k$568 (cons (car term$293)
                                                                                                                                                       r$571)))
                                                                                                                                         #f))
                                                                                                                                     alist$294
                                                                                                                                     (cdr term$293))
                                                                                                                                   (if (assq term$293
                                                                                                                                             alist$294)
                                                                                                                                     (k$568 (cdr (assq term$293
                                                                                                                                                       alist$294)))
                                                                                                                                     (k$568 term$293))))
                                                                                                                                #t)))))
                                                                                                                        #f))
                                                                                                                    (set! translate-alist$238
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(253
                                                                                                                          (k$575 alist$296)
                                                                                                                          ((if (null? alist$296)
                                                                                                                             (k$575 '())
                                                                                                                             (translate-term$251
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(248
                                                                                                                                   (r$581)
                                                                                                                                   ((translate-alist$238
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(245
                                                                                                                                          (r$578)
                                                                                                                                          ((k$575 (cons (cons (caar alist$296)
                                                                                                                                                              r$581)
                                                                                                                                                        r$578)))
                                                                                                                                          #f))
                                                                                                                                      (cdr alist$296)))
                                                                                                                                   #f))
                                                                                                                               (cdar alist$296))))
                                                                                                                          #t)))))
                                                                                                                  #f))
                                                                                                              (set! test$239
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(271
                                                                                                                    (k$584 alist$299
                                                                                                                           term$298
                                                                                                                           n$297)
                                                                                                                    ((translate-alist$238
                                                                                                                       #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(270
                                                                                                                           (r$586)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(269
                                                                                                                                 (term$301
                                                                                                                                   n$300)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(268
                                                                                                                                       (lp$37$302)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(260
                                                                                                                                             (r$589)
                                                                                                                                             ((lp$37$302
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(259
                                                                                                                                                    (r$588)
                                                                                                                                                    ((translate-term$251
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(258
                                                                                                                                                           (r$587)
                                                                                                                                                           ((apply-subst$237
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(256
                                                                                                                                                                  (term$305)
                                                                                                                                                                  ((tautp$235
                                                                                                                                                                     k$584
                                                                                                                                                                     term$305))
                                                                                                                                                                  #f))
                                                                                                                                                              r$586
                                                                                                                                                              r$587))
                                                                                                                                                           #f))
                                                                                                                                                       r$588))
                                                                                                                                                    #f))
                                                                                                                                                term$301
                                                                                                                                                n$300))
                                                                                                                                             #f))
                                                                                                                                         (set! lp$37$302
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(267
                                                                                                                                               (k$591 term$304
                                                                                                                                                      n$303)
                                                                                                                                               ((if (zero?__inline__
                                                                                                                                                      n$303)
                                                                                                                                                  (k$591 term$304)
                                                                                                                                                  (list #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(263
                                                                                                                                                            (r$593)
                                                                                                                                                            ((lp$37$302
                                                                                                                                                               k$591
                                                                                                                                                               r$593
                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                 n$303
                                                                                                                                                                 1)))
                                                                                                                                                            #f))
                                                                                                                                                        'or
                                                                                                                                                        term$304
                                                                                                                                                        '(f))))
                                                                                                                                               #t)))))
                                                                                                                                       #f))
                                                                                                                                   #f))
                                                                                                                                 #f))
                                                                                                                             term$298
                                                                                                                             n$297))
                                                                                                                           #f))
                                                                                                                       alist$299))
                                                                                                                    #t)))))
                                                                                                            #f))
                                                                                                        (set! symbol-record-equal?$240
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(274
                                                                                                              (k$598 r1$307
                                                                                                                     r2$306)
                                                                                                              ((k$598 (eq? r1$307
                                                                                                                           r2$306)))
                                                                                                              #t)))))
                                                                                                      #f))
                                                                                                  (set! get-name$241
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(277
                                                                                                        (k$600 symbol-record$308)
                                                                                                        ((k$600 (vector-ref
                                                                                                                  symbol-record$308
                                                                                                                  0)))
                                                                                                        #t)))))
                                                                                                #f))
                                                                                            (set! get-lemmas$242
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(280
                                                                                                  (k$602 symbol-record$309)
                                                                                                  ((k$602 (vector-ref
                                                                                                            symbol-record$309
                                                                                                            1)))
                                                                                                  #t)))))
                                                                                          #f))
                                                                                      (set! put-lemmas!$243
                                                                                        #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(283
                                                                                            (k$604 symbol-record$311
                                                                                                   lemmas$310)
                                                                                            ((k$604 (vector-set!
                                                                                                      symbol-record$311
                                                                                                      1
                                                                                                      lemmas$310)))
                                                                                            #t)))))
                                                                                    #f))
                                                                                (set! make-symbol-record$244
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(287
                                                                                      (k$606 sym$312)
                                                                                      ((vector
                                                                                         k$606
                                                                                         sym$312
                                                                                         '()))
                                                                                      #t)))))
                                                                              #f))
                                                                          (set! *symbol-records-alist*$245
                                                                            '())))
                                                                        #f))
                                                                    (set! symbol->symbol-record$246
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(299
                                                                          (k$610 sym$313)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(297
                                                                                (x$314)
                                                                                ((if x$314
                                                                                   (k$610 (cdr x$314))
                                                                                   (vector
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(295
                                                                                         (r$315)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(293
                                                                                               (r$614)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(292
                                                                                                     (r$613)
                                                                                                     ((k$610 r$315))
                                                                                                     #f))
                                                                                                 (set! *symbol-records-alist*$245
                                                                                                   r$614)))
                                                                                               #f))
                                                                                           (cons (cons sym$313
                                                                                                       r$315)
                                                                                                 *symbol-records-alist*$245)))
                                                                                         #f))
                                                                                     sym$313
                                                                                     '())))
                                                                                #f))
                                                                            (assq sym$313
                                                                                  *symbol-records-alist*$245)))
                                                                          #t)))))
                                                                  #f))
                                                              (set! get$247
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(303
                                                                    (k$617 sym$317
                                                                           property$316)
                                                                    ((symbol->symbol-record$246
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(302
                                                                           (r$618)
                                                                           ((k$617 (vector-ref
                                                                                     r$618
                                                                                     1)))
                                                                           #f))
                                                                       sym$317))
                                                                    #t)))))
                                                            #f))
                                                        (set! put$248
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(307
                                                              (k$620 sym$320
                                                                     property$319
                                                                     value$318)
                                                              ((symbol->symbol-record$246
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(306
                                                                     (r$621)
                                                                     ((k$620 (vector-set!
                                                                               r$621
                                                                               1
                                                                               value$318)))
                                                                     #f))
                                                                 sym$320))
                                                              #t)))))
                                                      #f))
                                                  (set! untranslate-term$249
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(317
                                                        (k$623 term$321)
                                                        ((if (pair? term$321)
                                                           (map #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(310
                                                                    (r$626)
                                                                    ((k$623 (cons (vector-ref
                                                                                    (car term$321)
                                                                                    0)
                                                                                  r$626)))
                                                                    #f))
                                                                untranslate-term$249
                                                                (cdr term$321))
                                                           (k$623 term$321)))
                                                        #t)))))
                                                #f))
                                            (set! translate-args$250
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(327
                                                  (k$630 lst$322)
                                                  ((if (null? lst$322)
                                                     (k$630 '())
                                                     (translate-term$251
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(323
                                                           (r$632)
                                                           ((translate-args$250
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(321
                                                                  (r$633)
                                                                  ((k$630 (cons r$632
                                                                                r$633)))
                                                                  #f))
                                                              (cdr lst$322)))
                                                           #f))
                                                       (car lst$322))))
                                                  #t)))))
                                          #f))
                                      (set! translate-term$251
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(337
                                            (k$637 term$323)
                                            ((if (pair? term$323)
                                               (symbol->symbol-record$246
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(332
                                                     (r$639)
                                                     ((translate-args$250
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(330
                                                            (r$640)
                                                            ((k$637 (cons r$639
                                                                          r$640)))
                                                            #f))
                                                        (cdr term$323)))
                                                     #f))
                                                 (car term$323))
                                               (k$637 term$323)))
                                            #t)))))
                                    #f))
                                (set! add-lemma$252
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(358
                                      (k$644 term$324)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(357
                                            (k$655)
                                            ((if (pair? term$324)
                                               (if (eq? (car term$324) 'equal)
                                                 (k$655 (pair? (cadr term$324)))
                                                 (k$655 #f))
                                               (k$655 #f)))
                                            #t))
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(351
                                            (r$645)
                                            ((if r$645
                                               (#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(348
                                                    (r$654)
                                                    ((translate-term$251
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(345
                                                           (r$649)
                                                           ((get$247
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(341
                                                                  (r$650)
                                                                  ((put$248
                                                                     k$644
                                                                     (car r$654)
                                                                     'lemmas
                                                                     (cons r$649
                                                                           r$650)))
                                                                  #f))
                                                              (car (cadr term$324))
                                                              'lemmas))
                                                           #f))
                                                       term$324))
                                                    #f))
                                                (cadr term$324))
                                               (error k$644
                                                      #f
                                                      "ADD-LEMMA did not like term:  "
                                                      term$324)))
                                            #f))))
                                      #t)))))
                              #f))
                          (set! add-lemma-lst$253
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(367
                                (k$662 lst$325)
                                ((if (null? lst$325)
                                   (k$662 #t)
                                   (add-lemma$252
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(363
                                         (r$664)
                                         ((add-lemma-lst$253
                                            k$662
                                            (cdr lst$325)))
                                         #f))
                                     (car lst$325))))
                                #t)))))
                        #f))
                    (set! setup$254
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(371
                          (k$668)
                          ((add-lemma-lst$253
                             k$668
                             '((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))))))
                          #t)))))
                  #f))
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #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
          '(implies
             (and (implies x y)
                  (and (implies y z)
                       (and (implies z u) (implies u w))))
             (implies x w)))))
      #f))
  (set! alist
    '((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)))))))
 */
/* 
"---------------- cps analysis db:"
 */
/* 
#((record-marker)
  #((record-marker)
    #f
    (size hash compare associate entries))
  #(602
    #[procedure]
    #[procedure]
    #[procedure]
    #(()
      ((1
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$637 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 337 #f #f #f 2 (337 330) #f #f 2 0 #t #f #t))))
      ((3
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((loop$338
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             428
             #f
             #f
             #f
             3
             (385 428 383)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(427
                 (k$689 i$340 result$339)
                 ((if (Cyc-fast-lt i$340 count$328)
                    (thunk$327
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(385
                          (r$692)
                          ((loop$338 k$689 (Cyc-fast-plus i$340 1) r$692))
                          #f)))
                    (ok?$326
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(425
                          (r$693)
                          ((if r$693
                             (current-jiffy
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(416
                                   (j1$341)
                                   ((current-second
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(414
                                          (t1$342)
                                          ((rounded$331
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(406
                                                 (secs2$345)
                                                 ((display
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(404
                                                        (r$700)
                                                        ((write #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(403
                                                                    (r$701)
                                                                    ((display
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(402
                                                                           (r$702)
                                                                           ((write #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(401
                                                                                       (r$703)
                                                                                       ((display
                                                                                          #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(400
                                                                                              (r$704)
                                                                                              ((display
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(399
                                                                                                     (r$705)
                                                                                                     ((newline
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(398
                                                                                                            (r$706)
                                                                                                            ((display
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(397
                                                                                                                   (r$707)
                                                                                                                   ((this-scheme-implementation-name
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(396
                                                                                                                          (r$715)
                                                                                                                          ((display
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(395
                                                                                                                                 (r$708)
                                                                                                                                 ((display
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(394
                                                                                                                                        (r$709)
                                                                                                                                        ((display
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(393
                                                                                                                                               (r$710)
                                                                                                                                               ((display
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(392
                                                                                                                                                      (r$711)
                                                                                                                                                      ((display
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(391
                                                                                                                                                             (r$712)
                                                                                                                                                             ((newline
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(390
                                                                                                                                                                    (r$713)
                                                                                                                                                                    ((current-output-port
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(389
                                                                                                                                                                           (r$714)
                                                                                                                                                                           ((flush-output-port
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(388
                                                                                                                                                                                  (r$694)
                                                                                                                                                                                  ((k$689 result$339))
                                                                                                                                                                                  #f))
                                                                                                                                                                              r$714))
                                                                                                                                                                           #f))))
                                                                                                                                                                    #f))))
                                                                                                                                                             #f))
                                                                                                                                                         (inexact__inline__
                                                                                                                                                           (Cyc-fast-div
                                                                                                                                                             (Cyc-fast-sub
                                                                                                                                                               j1$341
                                                                                                                                                               j0$335)
                                                                                                                                                             j/s$333))))
                                                                                                                                                      #f))
                                                                                                                                                  ","))
                                                                                                                                               #f))
                                                                                                                                           name$329))
                                                                                                                                        #f))
                                                                                                                                    ","))
                                                                                                                                 #f))
                                                                                                                             r$715))
                                                                                                                          #f))))
                                                                                                                   #f))
                                                                                                               "+!CSVLINE!+"))
                                                                                                            #f))))
                                                                                                     #f))
                                                                                                 name$329))
                                                                                              #f))
                                                                                          ") for "))
                                                                                       #f))
                                                                                   secs2$345))
                                                                           #f))
                                                                       " seconds ("))
                                                                    #f))
                                                                (inexact__inline__
                                                                  (Cyc-fast-div
                                                                    (Cyc-fast-sub
                                                                      j1$341
                                                                      j0$335)
                                                                    j/s$333))))
                                                        #f))
                                                    "Elapsed time: "))
                                                 #f))
                                             (Cyc-fast-sub t1$342 t0$334)))
                                          #f))))
                                   #f)))
                             (display
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(423
                                   (r$718)
                                   ((write #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(422
                                               (r$719)
                                               ((newline
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(421
                                                      (r$720)
                                                      ((current-output-port
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(420
                                                             (r$722)
                                                             ((flush-output-port
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(419
                                                                    (r$721)
                                                                    ((k$689 result$339))
                                                                    #f))
                                                                r$722))
                                                             #f))))
                                                      #f))))
                                               #f))
                                           result$339))
                                   #f))
                               "ERROR: returned incorrect result: ")))
                          #f))
                      result$339)))
                 #t))
             2
             0
             #t
             #f
             #f))))
      ((5
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((6
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (test-boyer) #t))))
      ((7
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((9
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (add-lemma$252
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (367 359)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(358
                 (k$644 term$324)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(357
                       (k$655)
                       ((if (pair? term$324)
                          (if (eq? (car term$324) 'equal)
                            (k$655 (pair? (cadr term$324)))
                            (k$655 #f))
                          (k$655 #f)))
                       #t))
                   #((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(351
                       (r$645)
                       ((if r$645
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(348
                               (r$654)
                               ((translate-term$251
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(345
                                      (r$649)
                                      ((get$247
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(341
                                             (r$650)
                                             ((put$248
                                                k$644
                                                (car r$654)
                                                'lemmas
                                                (cons r$649 r$650)))
                                             #f))
                                         (car (cadr term$324))
                                         'lemmas))
                                      #f))
                                  term$324))
                               #f))
                           (cadr term$324))
                          (error k$644
                                 #f
                                 "ADD-LEMMA did not like term:  "
                                 term$324)))
                       #f))))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((10
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((12
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (r$447 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  68
                  #f
                  #f
                  #f
                  1
                  (68)
                  #f
                  (equal? n$265 1)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((13
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((15
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((16
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (term2$275
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             129
             #f
             #f
             #f
             7
             (129 125 125 125 129 129 129)
             #f
             #f
             0
             7
             #t
             #f
             #f))))
      ()
      ((18
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((term2$278
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f))))
      ((20
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (setup-boyer) #t)))
       (j1$341
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 416 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f))))
      ((21
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((setup-boyer
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             463
             #f
             #f
             3
             (21 -1 470)
             #t
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(20
                 (k$409)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(18
                       (r$410)
                       ((symbol->symbol-record$246
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(16
                              (r$418)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(15
                                    (r$411)
                                    ((translate-term$251
                                       #((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(13
                                           (r$416)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(12
                                                 (r$412)
                                                 ((translate-term$251
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(10
                                                        (r$414)
                                                        ((#((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(9
                                                              (r$413)
                                                              ((add-lemma-lst$253
                                                                 k$409
                                                                 '((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))
                                                          (set! true-term$220
                                                            r$414)))
                                                        #f))
                                                    '(t)))
                                                 #f))
                                             (set! false-term$221 r$416)))
                                           #f))
                                       '(f)))
                                    #f))
                                (set! if-constructor$233 r$418)))
                              #f))
                          'if))
                       #f))
                   (set! *symbol-records-alist*$245 '())))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((lemmas$310
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #f #f))))
      ((27
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((Cyc-fast-eq
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (466) #f #f 1 0 #t #f #f))))
      ((30
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (term-member?$215) #f))))
      ((31
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (read .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 3
                 (480 482 484)
                 #f
                 #f
                 3
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ((k$644 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 358 #f #f #f 2 (351 341) #f #f 0 2 #f #f #t))))
      ()
      ((current-jiffy
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (425 433) #f #f 2 0 #f #f #f))))
      ((39
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((Cyc-fast-mul
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f))))
      ((r$450 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 63 #f #f #f 1 (61) #f #f 0 1 #f #f #f))))
      ((r$451 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 61 #f #f #f 1 (61) #f #f 0 1 #t #f #f))))
      ((44
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (term-args-equal?$216) #f))))
      ((45
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$454 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  64
                  #f
                  #f
                  #f
                  1
                  (64)
                  #f
                  (Cyc-fast-sub n$265 1)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ((r$457 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 72 #f #f #f 1 (72) #f #f 0 1 #t #f #f))))
      ()
      ((r$459 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 75 #f #f #f 1 (73) #f #f 0 1 #f #f #f))))
      ()
      ((Cyc-fast-sub
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (263 68 63 414 404 392)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ((y$263 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (56 56 56 56)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((zero?__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (267) #f #f 1 0 #t #f #f)))
       (56
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (term-equal?$217) #f))))
      ((57
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((61
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((pair? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  11
                  (357 357 337 317 241 212 172 129 129 56 56)
                  #f
                  #f
                  11
                  0
                  #t
                  #f
                  #f))))
      ((63
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((64
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((68
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((69
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (trans-of-implies1$218) #f))))
      ((70
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((72
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((73
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$655 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  357
                  #f
                  #f
                  #f
                  3
                  (357 357 357)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(351
                      (r$645)
                      ((if r$645
                         (#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(348
                              (r$654)
                              ((translate-term$251
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(345
                                     (r$649)
                                     ((get$247
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(341
                                            (r$650)
                                            ((put$248
                                               k$644
                                               (car r$654)
                                               'lemmas
                                               (cons r$649 r$650)))
                                            #f))
                                        (car (cadr term$324))
                                        'lemmas))
                                     #f))
                                 term$324))
                              #f))
                          (cadr term$324))
                         (error k$644
                                #f
                                "ADD-LEMMA did not like term:  "
                                term$324)))
                      #f))
                  3
                  0
                  #t
                  #f
                  #t))))
      ((75
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((77
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (trans-of-implies$219) #f))))
      ((78
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$460 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 73 #f #f #f 1 (73) #f #f 0 1 #t #f #f))))
      ((80
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((82
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((84
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((86
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (truep$222) #f))))
      ((87
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((x$346 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 1 (446) #f #f 0 1 #t #f #f))))
      ((89
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (x$347 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (452) #f #f 0 1 #f #f #f))))
      ((r$760 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  471
                  #f
                  #f
                  #f
                  1
                  (471)
                  #f
                  (string-append "sboyer" ":" s1$356 ":" s2$355)
                  0
                  1
                  #t
                  #f
                  #f))))
      ((91
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (falsep$223) #f))))
      ((92
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((r$766 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 469 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$767 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 468 #f #f #f 1 (468) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((100
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((Cyc-version
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (382) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ((symbol-record$308
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 277 #f #f #f 1 (277) #f #f 0 1 #t #f #f)))
       (105
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (one-way-unify1-lst$224) #f))))
      ((symbol-record$309
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 280 #f #f #f 1 (280) #f #f 0 1 #t #f #f)))
       (106
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (t1$342
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 414 #f #f #f 1 (414) #f #f 0 1 #t #f #f))))
      ()
      ((k$662 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 367 #f #f #f 2 (363 367) #f #f 1 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ((property$316
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 303 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (k$668 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 371 #f #f #f 1 (371) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((property$319
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (answer$258
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 3 #f #f #f 1 (3) #f #f 0 0 #t #f #f))))
      ()
      ()
      ((120
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (x$351 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 459 #f #f #f 1 (459) #f #f 0 1 #t #f #f)))
       (r$474 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 100 #f #f #f 1 (100) #f #f 0 0 #t #f #f))))
      ((121
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((125
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((129
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (one-way-unify1$225) #t))))
      ((130
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((y$285 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 181) #f #f 0 2 #t #f #f))))
      ((132
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((134
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (one-way-unify$226) #t))))
      ((symbol-record$311
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 283 #f #f #f 1 (283) #f #f 0 1 #t #t #f)))
       (135
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((137
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((140
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ()
      ((146
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$674 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 382 #f #f #f 1 (381) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((150
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rewrite-with-lemmas$228) #f))))
      ((k$678 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 449 #f #f #f 1 (383) #f #f 0 1 #t #f #t)))
       (151
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((154
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((156
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((false-term$221
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (91 82 13)
             #t
             '*
             0
             1
             #f
             #f
             #f))))
      ((160
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rewrite-args$229) #f))))
      ((161
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((163
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((165
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((166
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ()
      ((172
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((173
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((174
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rewrite$230) #t))))
      ((175
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((177
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$530) #f))))
      ()
      ()
      ((term-equal?$217
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (125 91 86 57 44 30)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(56
                 (k$437 x$264 y$263)
                 ((if (pair? x$264)
                    (if (pair? y$263)
                      (if (eq? (car x$264) (car y$263))
                        (term-args-equal?$216
                          k$437
                          (cdr x$264)
                          (cdr y$263))
                        (k$437 #f))
                      (k$437 #f))
                    (k$437 (equal? x$264 y$263))))
                 #t))
             5
             0
             #f
             #f
             #f))))
      ((181
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((182
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (scons$231) #f))))
      ((183
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((184
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (current-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (416 435) #f #f 2 0 #f #f #f))))
      ()
      ((186
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((rewrite-args$229
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (172 156 161)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(160
                 (k$510 lst$282)
                 ((if (null? lst$282)
                    (k$510 '())
                    (rewrite$230
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(156
                          (r$512)
                          ((rewrite-args$229
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(154
                                 (r$513)
                                 ((scons$231 k$510 r$512 r$513 lst$282))
                                 #f))
                             (cdr lst$282)))
                          #f))
                      (car lst$282))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ((k$689 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  427
                  #f
                  #f
                  #f
                  3
                  (419 388 385)
                  #f
                  #f
                  2
                  1
                  #t
                  #f
                  #t))))
      ()
      ((r$491 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  120
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 r$492)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$492 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  121
                  #f
                  #f
                  #f
                  1
                  (121)
                  #f
                  (cons (cons term2$275 term1$276) unify-subst$227)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((r$496 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  132
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 '())
                  0
                  0
                  #t
                  #f
                  #f))))
      ((197
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((202
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((value$318
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 1 (306) #f #f 0 1 #t #f #f)))
       (vector
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (297 287 460)
             #f
             #f
             3
             0
             #f
             #f
             #f))))
      ((204
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (r$502 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 146 #f #f #f 1 (146) #f #f 0 0 #t #f #f))))
      ((r$503 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 140 #f #f #f 1 (140) #f #f 0 1 #t #f #f))))
      ((if-constructor$233
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (212 186 16)
             #t
             '*
             0
             1
             #f
             #f
             #f))))
      ()
      ()
      ((get-lemmas$242
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             1
             (281)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(280
                 (k$602 symbol-record$309)
                 ((k$602 (vector-ref symbol-record$309 1)))
                 #t))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ((212
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((213
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((214
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (tautologyp$234) #f))))
      ((215
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((219
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((220
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (tautp$235) #f)))
       (apply-subst-lst$236
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (241 226 231)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(230
                 (k$561 alist$292 lst$291)
                 ((if (null? lst$291)
                    (k$561 '())
                    (apply-subst$237
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(226
                          (r$563)
                          ((apply-subst-lst$236
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(224 (r$564) ((k$561 (cons r$563 r$564))) #f))
                             alist$292
                             (cdr lst$291)))
                          #f))
                      alist$292
                      (car lst$291))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((221
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$405 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 6 #f #f #f 2 (3 3) #f #f 2 0 #t #f #t))))
      ((224
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((226
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$409 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 20 #f #f #f 1 (9) #f #f 0 1 #t #f #t))))
      ()
      ()
      ((230
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (apply-subst-lst$236) #f))))
      ((231
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (call-with-values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (461) #f #f 1 0 #f #f #f))))
      ()
      ((233
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((string-append
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (381 474) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$512 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 156 #f #f #f 1 (154) #f #f 0 1 #t #f #f)))
       (241
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (apply-subst$237) #f))))
      ((r$513 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 154 #f #f #f 1 (154) #f #f 0 1 #t #f #f)))
       (242
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((245
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((r$518 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  172
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 r$526)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((248
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ((253
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (translate-alist$238) #f))))
      ((254
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((list .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 6
                 (267 73 75 61 64 68)
                 #f
                 #f
                 6
                 0
                 #f
                 #f
                 #f))))
      ((256
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((258
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((259
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((260
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((263
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((get$247
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (345 304)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(303
                 (k$617 sym$317 property$316)
                 ((symbol->symbol-record$246
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(302 (r$618) ((k$617 (vector-ref r$618 1))) #f))
                    sym$317))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ((267
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (lp$37$302) #f))))
      ((268
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((269
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((270
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lst$259
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 30 #f #f #f 3 (30 27 30) #f #f 0 3 #t #f #f))))
      ((271
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (test$239) #t))))
      ((272
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((274
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (symbol-record-equal?$240) #f))))
      ((275
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$520 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 165 #f #f #f 1 (163) #f #f 0 1 #t #f #f))))
      ((r$521 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  163
                  #f
                  #f
                  #f
                  1
                  (163)
                  #f
                  (vector-ref (car term$283) 1)
                  0
                  1
                  #t
                  #f
                  #f)))
       (277
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (get-name$241) #f)))
       (thunk$327
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (427) #f #f 1 0 #f #f #f))))
      ((278
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((r$524 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 166 #f #f #f 1 (166) #f #f 0 1 #t #f #f)))
       (280
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (get-lemmas$242) #f))))
      ((281
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((lp$37$302
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             268
             #f
             #f
             #f
             3
             (263 268 260)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(267
                 (k$591 term$304 n$303)
                 ((if (zero?__inline__ n$303)
                    (k$591 term$304)
                    (list #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(263
                              (r$593)
                              ((lp$37$302 k$591 r$593 (Cyc-fast-sub n$303 1)))
                              #f))
                          'or
                          term$304
                          '(f))))
                 #t))
             2
             0
             #t
             #f
             #f)))
       (r$526 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  173
                  #f
                  #f
                  #f
                  1
                  (173)
                  #f
                  (Cyc-fast-plus rewrite-count$232 1)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((283
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (put-lemmas!$243) #t))))
      ((284
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((r$529 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 177 #f #f #f 1 (177) #f #f 0 0 #t #f #f))))
      ()
      ((287
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (make-symbol-record$244) #f))))
      ((288
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((290
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (translate-term$251
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             8
             (348 338 327 259 253 72 12 15)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(337
                 (k$637 term$323)
                 ((if (pair? term$323)
                    (symbol->symbol-record$246
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(332
                          (r$639)
                          ((translate-args$250
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(330 (r$640) ((k$637 (cons r$639 r$640))) #f))
                             (cdr term$323)))
                          #f))
                      (car term$323))
                    (k$637 term$323)))
                 #t))
             7
             0
             #f
             #f
             #f))))
      ((Cyc-fast-lt
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (427 456) #f #f 2 0 #t #f #f))))
      ((292
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((293
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((k$422 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 30 #f #f #f 3 (27 27 30) #f #f 2 1 #t #f #t))))
      ((295
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((297
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((299
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (symbol->symbol-record$246) #t))))
      ((k$428 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  44
                  #f
                  #f
                  #f
                  4
                  (39 39 44 44)
                  #f
                  #f
                  3
                  1
                  #t
                  #f
                  #t)))
       (300
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((302
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((303
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (get$247) #f))))
      ((304
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((lst$267
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 86 #f #f #f 1 (84) #f #f 0 1 #t #f #f))))
      ((306
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((307
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (put$248) #t))))
      ((k$725 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 446 #f #f #f 1 (446) #f #f 1 0 #t #f #t)))
       (308
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((term$256
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ((310
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((317
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (untranslate-term$249) #f))))
      ((318
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((r$537 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 213 #f #f #f 1 (213) #f #f 0 0 #t #f #f))))
      ((r$538 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 212 #f #f #f 1 (212) #f #f 0 0 #t #f #f)))
       (321
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((323
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ()
      ((327
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (translate-args$250) #f))))
      ((328
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((330
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((332
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((Cyc-fast-plus
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (174 385) #f #f 2 0 #t #f #f))))
      ((lst1$262
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 44 #f #f #f 3 (44 39 44) #f #f 0 3 #t #f #f))))
      ((input$353
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 480 #f #f #f 2 (476 469) #f #f 0 2 #t #f #f)))
       (lst$270
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 91 #f #f #f 1 (89) #f #f 0 1 #t #f #f))))
      ((k$437 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (56 56 56 56)
                  #f
                  #f
                  3
                  1
                  #t
                  #f
                  #t))))
      ((337
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (translate-term$251) #f))))
      ((338
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$730 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (461) #f #f 0 1 #t #f #t))))
      ((341
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (tmp$117$272
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 89 #f #f #f 2 (89 89) #f #f 0 1 #t #f #f))))
      ()
      ((k$733 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #t)))
       (*symbol-records-alist*$245
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (299 295 293 290 20)
             #t
             r$614
             0
             2
             #f
             #f
             #f))))
      ()
      ((k$735 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 460 #f #f #f 1 (454) #f #f 0 1 #f #f #t)))
       (345
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((k$738 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  456
                  #f
                  #f
                  #f
                  2
                  (456 456)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(454 (r$737) ((values k$735 r$736 r$737)) #f))
                  2
                  0
                  #t
                  #f
                  #t)))
       (348
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((r$541 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 204 #f #f #f 1 (204) #f #f 0 0 #t #f #f)))
       (351
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$655) #f))))
      ()
      ((r$543 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 202 #f #f #f 1 (202) #f #f 0 0 #t #f #f))))
      ()
      ((r$545 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 197 #f #f #f 1 (197) #f #f 0 0 #t #f #f)))
       (rounded$331
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             448
             #f
             #f
             #f
             2
             (448 414)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(446
                 (k$725 x$346)
                 ((k$725 (Cyc-fast-div
                           (round__inline__ (Cyc-fast-mul 1000 x$346))
                           1000)))
                 #t))
             1
             0
             #t
             #f
             #f))))
      ()
      ((357
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (tautologyp$234
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (219 197 202 202 204 215)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(214
                 (k$536 x$289 true-lst$288 false-lst$287)
                 ((truep$222
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(213
                        (r$537)
                        ((if r$537
                           (k$536 #t)
                           (falsep$223
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(212
                                 (r$538)
                                 ((if r$538
                                    (k$536 #f)
                                    (if (pair? x$289)
                                      (if (eq? (car x$289) if-constructor$233)
                                        (truep$222
                                          #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(204
                                              (r$541)
                                              ((if r$541
                                                 (tautologyp$234
                                                   k$536
                                                   (caddr x$289)
                                                   true-lst$288
                                                   false-lst$287)
                                                 (falsep$223
                                                   #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(202
                                                       (r$543)
                                                       ((if r$543
                                                          (tautologyp$234
                                                            k$536
                                                            (cadddr x$289)
                                                            true-lst$288
                                                            false-lst$287)
                                                          (tautologyp$234
                                                            #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(197
                                                                (r$545)
                                                                ((if r$545
                                                                   (tautologyp$234
                                                                     k$536
                                                                     (cadddr
                                                                       x$289)
                                                                     true-lst$288
                                                                     (cons (cadr x$289)
                                                                           false-lst$287))
                                                                   (k$536 #f)))
                                                                #f))
                                                            (caddr x$289)
                                                            (cons (cadr x$289)
                                                                  true-lst$288)
                                                            false-lst$287)))
                                                       #f))
                                                   (cadr x$289)
                                                   false-lst$287)))
                                              #f))
                                          (cadr x$289)
                                          true-lst$288)
                                        (k$536 #f))
                                      (k$536 #f))))
                                 #f))
                             x$289
                             false-lst$287)))
                        #f))
                    x$289
                    true-lst$288))
                 #t))
             5
             0
             #f
             #f
             #f))))
      ((358
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (add-lemma$252) #f))))
      ((359
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (output$354
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 478 #f #f #f 1 (466) #f #f 0 1 #t #f #f))))
      ()
      ((flush-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (420 389 438)
             #f
             #f
             3
             0
             #f
             #f
             #f))))
      ()
      ((363
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((run-r7rs-benchmark
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             449
             #f
             #f
             2
             (-1 471)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(449
                  (k$678 name$329 count$328 thunk$327 ok?$326)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(448
                        (rounded$331)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(442
                              (r$679)
                              ((display
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(441
                                     (r$680)
                                     ((display
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(440
                                            (r$681)
                                            ((newline
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(439
                                                   (r$682)
                                                   ((current-output-port
                                                      #((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(438
                                                          (r$723)
                                                          ((flush-output-port
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(437
                                                                 (r$683)
                                                                 ((jiffies-per-second
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(435
                                                                        (j/s$333)
                                                                        ((current-second
                                                                           #((record-marker)
                                                                             #((record-marker)
                                                                               #f
                                                                               (id args
                                                                                   body
                                                                                   has-cont))
                                                                             #(433
                                                                               (t0$334)
                                                                               ((current-jiffy
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(431
                                                                                      (j0$335)
                                                                                      ((#((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(428
                                                                                            (loop$338)
                                                                                            ((#((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(383
                                                                                                  (r$687)
                                                                                                  ((loop$338
                                                                                                     k$678
                                                                                                     0
                                                                                                     #f))
                                                                                                  #f))
                                                                                              (set! loop$338
                                                                                                #((record-marker)
                                                                                                  #((record-marker)
                                                                                                    #f
                                                                                                    (id args
                                                                                                        body
                                                                                                        has-cont))
                                                                                                  #(427
                                                                                                    (k$689 i$340
                                                                                                           result$339)
                                                                                                    ((if (Cyc-fast-lt
                                                                                                           i$340
                                                                                                           count$328)
                                                                                                       (thunk$327
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(385
                                                                                                             (r$692)
                                                                                                             ((loop$338
                                                                                                                k$689
                                                                                                                (Cyc-fast-plus
                                                                                                                  i$340
                                                                                                                  1)
                                                                                                                r$692))
                                                                                                             #f)))
                                                                                                       (ok?$326
                                                                                                         #((record-marker)
                                                                                                           #((record-marker)
                                                                                                             #f
                                                                                                             (id args
                                                                                                                 body
                                                                                                                 has-cont))
                                                                                                           #(425
                                                                                                             (r$693)
                                                                                                             ((if r$693
                                                                                                                (current-jiffy
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(416
                                                                                                                      (j1$341)
                                                                                                                      ((current-second
                                                                                                                         #((record-marker)
                                                                                                                           #((record-marker)
                                                                                                                             #f
                                                                                                                             (id args
                                                                                                                                 body
                                                                                                                                 has-cont))
                                                                                                                           #(414
                                                                                                                             (t1$342)
                                                                                                                             ((rounded$331
                                                                                                                                #((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(406
                                                                                                                                    (secs2$345)
                                                                                                                                    ((display
                                                                                                                                       #((record-marker)
                                                                                                                                         #((record-marker)
                                                                                                                                           #f
                                                                                                                                           (id args
                                                                                                                                               body
                                                                                                                                               has-cont))
                                                                                                                                         #(404
                                                                                                                                           (r$700)
                                                                                                                                           ((write #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(403
                                                                                                                                                       (r$701)
                                                                                                                                                       ((display
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #((record-marker)
                                                                                                                                                              #f
                                                                                                                                                              (id args
                                                                                                                                                                  body
                                                                                                                                                                  has-cont))
                                                                                                                                                            #(402
                                                                                                                                                              (r$702)
                                                                                                                                                              ((write #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(401
                                                                                                                                                                          (r$703)
                                                                                                                                                                          ((display
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                 #f
                                                                                                                                                                                 (id args
                                                                                                                                                                                     body
                                                                                                                                                                                     has-cont))
                                                                                                                                                                               #(400
                                                                                                                                                                                 (r$704)
                                                                                                                                                                                 ((display
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(399
                                                                                                                                                                                        (r$705)
                                                                                                                                                                                        ((newline
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(398
                                                                                                                                                                                               (r$706)
                                                                                                                                                                                               ((display
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(397
                                                                                                                                                                                                      (r$707)
                                                                                                                                                                                                      ((this-scheme-implementation-name
                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                             #f
                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                 body
                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                           #(396
                                                                                                                                                                                                             (r$715)
                                                                                                                                                                                                             ((display
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(395
                                                                                                                                                                                                                    (r$708)
                                                                                                                                                                                                                    ((display
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(394
                                                                                                                                                                                                                           (r$709)
                                                                                                                                                                                                                           ((display
                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                #(393
                                                                                                                                                                                                                                  (r$710)
                                                                                                                                                                                                                                  ((display
                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                       #(392
                                                                                                                                                                                                                                         (r$711)
                                                                                                                                                                                                                                         ((display
                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(391
                                                                                                                                                                                                                                                (r$712)
                                                                                                                                                                                                                                                ((newline
                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                     #(390
                                                                                                                                                                                                                                                       (r$713)
                                                                                                                                                                                                                                                       ((current-output-port
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(389
                                                                                                                                                                                                                                                              (r$714)
                                                                                                                                                                                                                                                              ((flush-output-port
                                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                                                   #(388
                                                                                                                                                                                                                                                                     (r$694)
                                                                                                                                                                                                                                                                     ((k$689 result$339))
                                                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                                                 r$714))
                                                                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                                                                       #f))))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            (inexact__inline__
                                                                                                                                                                                                                                              (Cyc-fast-div
                                                                                                                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                                                                                                                  j1$341
                                                                                                                                                                                                                                                  j0$335)
                                                                                                                                                                                                                                                j/s$333))))
                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                     ","))
                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                              name$329))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       ","))
                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                r$715))
                                                                                                                                                                                                             #f))))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  "+!CSVLINE!+"))
                                                                                                                                                                                               #f))))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    name$329))
                                                                                                                                                                                 #f))
                                                                                                                                                                             ") for "))
                                                                                                                                                                          #f))
                                                                                                                                                                      secs2$345))
                                                                                                                                                              #f))
                                                                                                                                                          " seconds ("))
                                                                                                                                                       #f))
                                                                                                                                                   (inexact__inline__
                                                                                                                                                     (Cyc-fast-div
                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                         j1$341
                                                                                                                                                         j0$335)
                                                                                                                                                       j/s$333))))
                                                                                                                                           #f))
                                                                                                                                       "Elapsed time: "))
                                                                                                                                    #f))
                                                                                                                                (Cyc-fast-sub
                                                                                                                                  t1$342
                                                                                                                                  t0$334)))
                                                                                                                             #f))))
                                                                                                                      #f)))
                                                                                                                (display
                                                                                                                  #((record-marker)
                                                                                                                    #((record-marker)
                                                                                                                      #f
                                                                                                                      (id args
                                                                                                                          body
                                                                                                                          has-cont))
                                                                                                                    #(423
                                                                                                                      (r$718)
                                                                                                                      ((write #((record-marker)
                                                                                                                                #((record-marker)
                                                                                                                                  #f
                                                                                                                                  (id args
                                                                                                                                      body
                                                                                                                                      has-cont))
                                                                                                                                #(422
                                                                                                                                  (r$719)
                                                                                                                                  ((newline
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(421
                                                                                                                                         (r$720)
                                                                                                                                         ((current-output-port
                                                                                                                                            #((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(420
                                                                                                                                                (r$722)
                                                                                                                                                ((flush-output-port
                                                                                                                                                   #((record-marker)
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #f
                                                                                                                                                       (id args
                                                                                                                                                           body
                                                                                                                                                           has-cont))
                                                                                                                                                     #(419
                                                                                                                                                       (r$721)
                                                                                                                                                       ((k$689 result$339))
                                                                                                                                                       #f))
                                                                                                                                                   r$722))
                                                                                                                                                #f))))
                                                                                                                                         #f))))
                                                                                                                                  #f))
                                                                                                                              result$339))
                                                                                                                      #f))
                                                                                                                  "ERROR: returned incorrect result: ")))
                                                                                                             #f))
                                                                                                         result$339)))
                                                                                                    #t)))))
                                                                                            #f))
                                                                                        #f))
                                                                                      #f))))
                                                                               #f))))
                                                                        #f))))
                                                                 #f))
                                                             r$723))
                                                          #f))))
                                                   #f))))
                                            #f))
                                        name$329))
                                     #f))
                                 "Running "))
                              #f))
                          (set! rounded$331
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(446
                                (k$725 x$346)
                                ((k$725 (Cyc-fast-div
                                          (round__inline__
                                            (Cyc-fast-mul 1000 x$346))
                                          1000)))
                                #t)))))
                        #f))
                    #f))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ()
      ((367
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (add-lemma-lst$253) #f))))
      ((368
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((371
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (setup$254) #f))))
      ((k$446 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 69 #f #f #f 2 (61 68) #f #f 0 2 #f #f #t)))
       (372
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (lst$280
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             150
             #f
             #f
             #f
             4
             (150 146 146 150)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ((error .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (351) #f #f 1 0 #f #f #f)))
       (tmp$120$269
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 84 #f #f #f 2 (84 84) #f #f 0 1 #t #f #f)))
       (lst1$274
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             3
             (105 100 105)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((lst$282
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             160
             #f
             #f
             #f
             4
             (160 156 154 160)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (374
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((376
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$741 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 459 #f #f #f 1 (459) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$744 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 462 #f #f #f 1 (462) #f #f 1 0 #t #f #t)))
       (381
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((382
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((383
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((k$747 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 463 #f #f #f 1 (463) #f #f 1 0 #t #f #t))))
      ((385
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((388
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((389
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((390
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((391
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((392
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((393
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$557 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 219 #f #f #f 1 (219) #f #f 0 1 #t #f #f)))
       (394
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((395
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((396
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((397
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((398
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((399
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (unify-subst$227
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             6
             (146 137 134 129 125 121)
             #t
             '*
             0
             3
             #f
             #f
             #f))))
      ((400
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (symbol->symbol-record$246
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (337 307 303 300 18)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(299
                 (k$610 sym$313)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(297
                       (x$314)
                       ((if x$314
                          (k$610 (cdr x$314))
                          (vector
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(295
                                (r$315)
                                ((#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(293
                                      (r$614)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(292 (r$613) ((k$610 r$315)) #f))
                                        (set! *symbol-records-alist*$245
                                          r$614)))
                                      #f))
                                  (cons (cons sym$313 r$315)
                                        *symbol-records-alist*$245)))
                                #f))
                            sym$313
                            '())))
                       #f))
                   (assq sym$313 *symbol-records-alist*$245)))
                 #t))
             4
             0
             #f
             #f
             #f))))
      ((401
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((402
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((403
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((404
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((untranslate-term$249
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (317 318)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(317
                 (k$623 term$321)
                 ((if (pair? term$321)
                    (map #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(310
                             (r$626)
                             ((k$623 (cons (vector-ref (car term$321) 0)
                                           r$626)))
                             #f))
                         untranslate-term$249
                         (cdr term$321))
                    (k$623 term$321)))
                 #t))
             0
             1
             #f
             #f
             #f))))
      ((406
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ()
      ((k$456 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 77 #f #f #f 1 (72) #f #f 0 1 #t #f #t))))
      ((lst$291
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             230
             #f
             #f
             #f
             3
             (230 226 230)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((414
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$281
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             150
             #f
             #f
             #f
             3
             (150 146 150)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((416
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$283
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             174
             #f
             #f
             #f
             6
             (172 172 166 166 165 172)
             #f
             #f
             0
             6
             #t
             #f
             #f))))
      ((k$754 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 484 #f #f #f 1 (471) #f #f 0 1 #f #f #t))))
      ((419
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((420
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((421
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (car .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                25
                (367
                 345
                 341
                 357
                 337
                 327
                 310
                 233
                 230
                 212
                 181
                 166
                 165
                 160
                 150
                 146
                 129
                 129
                 105
                 105
                 56
                 56
                 44
                 44
                 30)
                #f
                #f
                25
                0
                #t
                #f
                #f))))
      ((422
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((423
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((425
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((r$563 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 226 #f #f #f 1 (224) #f #f 0 1 #t #f #f)))
       (427
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (loop$338) #f))))
      ((r$564 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 224 #f #f #f 1 (224) #f #f 0 1 #t #f #f)))
       (428
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((431
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((433
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (test-boyer
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             462
             #f
             #f
             3
             (7 -1 468)
             #t
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(6
                 (k$405 alist$257 term$256 n$255)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(5
                       (r$406)
                       ((test$239
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(3
                              (answer$258)
                              ((if answer$258
                                 (k$405 rewrite-count$232)
                                 (k$405 #f)))
                              #f))
                          alist$257
                          term$256
                          n$255))
                       #f))
                   (set! rewrite-count$232 0)))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((false-lst$287
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             214
             #f
             #f
             #f
             6
             (213 204 202 197 202 204)
             #f
             #f
             0
             6
             #t
             #f
             #f))))
      ((435
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((values
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (460 454) #f #f 1 1 #f #f #f))))
      ((437
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((438
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((439
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((440
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((441
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (n$255 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ((442
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((k$465 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 86 #f #f #f 2 (84 84) #f #f 1 1 #t #f #t))))
      ((446
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (rounded$331) #f)))
       (s1$356
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             474
             #f
             #f
             #f
             1
             (474)
             #f
             (number->string input$353)
             0
             1
             #t
             #f
             #f))))
      ()
      ((k$468 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 91 #f #f #f 2 (89 89) #f #f 1 1 #t #f #t)))
       (448
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ((449
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ((452
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((term$293
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             241
             #f
             #f
             #f
             6
             (241 241 241 241 233 241)
             #f
             #f
             0
             6
             #t
             #f
             #f)))
       (454
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? (k$738) #f)))
       (k$763 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 466 #f #f #f 2 (466 466) #f #f 2 0 #t #f #t))))
      ((alist$257
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 6 #f #f #f 1 (5) #f #f 0 1 #f #f #f))))
      ((456
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f)))
       (k$765 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 470 #f #f #f 1 (468) #f #f 0 1 #t #f #t))))
      ((457
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ()
      ((term$298
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f)))
       (459
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((460
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((461
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$571 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 233 #f #f #f 1 (233) #f #f 0 1 #t #f #f)))
       (462
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((463
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$301
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             269
             #f
             #f
             #f
             1
             (260)
             #f
             term$298
             0
             1
             #t
             #f
             #f))))
      ((secs2$345
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 406 #f #f #f 1 (402) #f #f 0 1 #f #f #f))))
      ((466
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((term$304
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 267 #f #f #f 2 (267 267) #f #f 0 2 #t #f #f))))
      ((term$305
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 256 #f #f #f 1 (256) #f #f 0 1 #t #f #f)))
       (468
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((r$578 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 245 #f #f #f 1 (245) #f #f 0 1 #t #f #f)))
       (469
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((470
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #f))))
      ((471
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((result$339
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             427
             #f
             #f
             #f
             4
             (427 423 419 388)
             #f
             #f
             0
             4
             #f
             #f
             #f))))
      ((474
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((476
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((k$471 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  105
                  #f
                  #f
                  #f
                  4
                  (100 100 105 105)
                  #f
                  #f
                  3
                  1
                  #t
                  #f
                  #t)))
       (478
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t)))
       (n$265 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  69
                  #f
                  #f
                  #f
                  4
                  (69 68 64 63)
                  #f
                  #f
                  0
                  4
                  #f
                  #f
                  #f))))
      ((n$266 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 77 #f #f #f 2 (77 75) #f #f 0 2 #f #f #f))))
      ((480
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((482
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ((484
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(#f ? () #t))))
      ()
      ()
      ()
      ((cadddr
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (197 202) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((lst$322
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             327
             #f
             #f
             #f
             3
             (327 323 327)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((put$248
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (341 308)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(307
                 (k$620 sym$320 property$319 value$318)
                 ((symbol->symbol-record$246
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(306
                        (r$621)
                        ((k$620 (vector-set! r$621 1 value$318)))
                        #f))
                    sym$320))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ((r$581 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 248 #f #f #f 1 (245) #f #f 0 1 #t #f #f))))
      ((lst$325
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             367
             #f
             #f
             #f
             3
             (367 363 367)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ()
      ()
      ((assq .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 4
                 (299 241 241 129)
                 #f
                 #f
                 4
                 0
                 #t
                 #f
                 #f))))
      ((r$586 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 270 #f #f #f 1 (258) #f #f 0 1 #t #f #f)))
       (get-name$241
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             1
             (278)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(277
                 (k$600 symbol-record$308)
                 ((k$600 (vector-ref symbol-record$308 0)))
                 #t))
             0
             0
             #f
             #f
             #f))))
      ((r$587 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 258 #f #f #f 1 (258) #f #f 0 1 #t #f #f))))
      ((r$588 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 259 #f #f #f 1 (259) #f #f 0 1 #t #f #f))))
      ((r$589 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  260
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! lp$37$302
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(267
                        (k$591 term$304 n$303)
                        ((if (zero?__inline__ n$303)
                           (k$591 term$304)
                           (list #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(263
                                     (r$593)
                                     ((lp$37$302
                                        k$591
                                        r$593
                                        (Cyc-fast-sub n$303 1)))
                                     #f))
                                 'or
                                 term$304
                                 '(f))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$480 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  129
                  #f
                  #f
                  #f
                  6
                  (120 125 125 129 129 129)
                  #f
                  #f
                  4
                  2
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((make-symbol-record$244
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             1
             (288)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(287
                 (k$606 sym$312)
                 ((vector k$606 sym$312 '()))
                 #t))
             0
             0
             #f
             #f
             #f))))
      ((symbol-record-equal?$240
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             1
             (275)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(274
                 (k$598 r1$307 r2$306)
                 ((k$598 (eq? r1$307 r2$306)))
                 #t))
             0
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((cdr .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                23
                (363
                 332
                 323
                 317
                 297
                 248
                 241
                 241
                 226
                 181
                 172
                 156
                 146
                 125
                 129
                 129
                 100
                 100
                 56
                 56
                 39
                 39
                 27)
                #f
                #f
                23
                0
                #t
                #f
                #f))))
      ()
      ()
      ()
      ()
      ()
      ((term$321
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             317
             #f
             #f
             #f
             4
             (317 317 310 317)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (r$593 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 263 #f #f #f 1 (263) #f #f 0 1 #t #f #f))))
      ((sym$312
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #f))))
      ((term$323
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             337
             #f
             #f
             #f
             4
             (337 337 332 337)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (sym$313
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             299
             #f
             #f
             #f
             3
             (299 297 295)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ((term$324
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             358
             #f
             #f
             #f
             7
             (351 351 348 345 357 357 357)
             #f
             #f
             0
             7
             #f
             #f
             #f))))
      ()
      ()
      ((sym$317
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 303 #f #f #f 1 (303) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((truep$222
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (212 214 87)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(86
                 (k$465 x$268 lst$267)
                 ((term-equal?$217
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(84
                        (tmp$120$269)
                        ((if tmp$120$269
                           (k$465 tmp$120$269)
                           (term-member?$215 k$465 x$268 lst$267)))
                        #f))
                    x$268
                    true-term$220))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$495 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #t))))
      ()
      ()
      ()
      ()
      ((r1$307
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f))))
      ((rewrite$230
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (220 175 160 140)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(174
                 (k$517 term$283)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(173
                       (r$526)
                       ((#((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(172
                             (r$518)
                             ((if (pair? term$283)
                                (rewrite-args$229
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(166
                                      (r$524)
                                      ((scons$231
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(165
                                             (r$520)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(163
                                                   (r$521)
                                                   ((rewrite-with-lemmas$228
                                                      k$517
                                                      r$520
                                                      r$521))
                                                   #f))
                                               (vector-ref (car term$283) 1)))
                                             #f))
                                         (car term$283)
                                         r$524
                                         term$283))
                                      #f))
                                  (cdr term$283))
                                (k$517 term$283)))
                             #f))
                         (set! rewrite-count$232 r$526)))
                       #f))
                   (Cyc-fast-plus rewrite-count$232 1)))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ((k$500 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  150
                  #f
                  #f
                  #f
                  3
                  (146 140 150)
                  #f
                  #f
                  1
                  2
                  #f
                  #f
                  #t)))
       (i$340 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 427 #f #f #f 2 (385 427) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((i$349 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f))))
      ()
      ((sym$320
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 307 #f #f #f 1 (307) #f #f 0 1 #t #f #f)))
       (lst2$261
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             44
             #f
             #f
             #f
             4
             (44 39 44 44)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((r$315 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 295 #f #f #f 2 (295 292) #f #f 0 2 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$613 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  292
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 r$614)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$614 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  293
                  #f
                  #f
                  #f
                  1
                  (293)
                  #f
                  (cons (cons sym$313 r$315)
                        *symbol-records-alist*$245)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((n$297 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 271 #f #f #f 1 (270) #f #f 0 1 #f #f #f))))
      ((r$618 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 302 #f #f #f 1 (302) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((n$300 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 269 #f #f #f 1 (260) #f n$297 0 1 #t #f #f)))
       (name$329
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             449
             #f
             #f
             #f
             3
             (441 400 394)
             #f
             #f
             0
             3
             #f
             #f
             #f))))
      ()
      ((alist$292
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 230 #f #f #f 2 (230 226) #f #f 0 2 #t #f #f)))
       (Cyc-fast-div
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (446 404 392)
             #f
             #f
             3
             0
             #t
             #f
             #f))))
      ((n$303 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 267 #f #f #f 2 (263 267) #f #f 0 2 #t #f #f)))
       (term .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 #f
                 #f
                 #f
                 3
                 (376 -1 468)
                 #t
                 '(implies
                    (and (implies x y)
                         (and (implies y z)
                              (and (implies z u) (implies u w))))
                    (implies x w))
                 0
                 1
                 #f
                 #f
                 #f))))
      ((alist$294
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             241
             #f
             #f
             #f
             3
             (241 241 241)
             #f
             #f
             0
             3
             #t
             #f
             #f)))
       (k$510 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 160 #f #f #f 2 (154 160) #f #f 1 1 #t #f #t))))
      ()
      ((alist$296
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             253
             #f
             #f
             #f
             4
             (253 248 245 253)
             #f
             #f
             0
             4
             #t
             #f
             #f)))
       (test$239
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (272 5)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(271
                 (k$584 alist$299 term$298 n$297)
                 ((translate-alist$238
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(270
                        (r$586)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(269
                              (term$301 n$300)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(268
                                    (lp$37$302)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(260
                                          (r$589)
                                          ((lp$37$302
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(259
                                                 (r$588)
                                                 ((translate-term$251
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(258
                                                        (r$587)
                                                        ((apply-subst$237
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(256
                                                               (term$305)
                                                               ((tautp$235
                                                                  k$584
                                                                  term$305))
                                                               #f))
                                                           r$586
                                                           r$587))
                                                        #f))
                                                    r$588))
                                                 #f))
                                             term$301
                                             n$300))
                                          #f))
                                      (set! lp$37$302
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(267
                                            (k$591 term$304 n$303)
                                            ((if (zero?__inline__ n$303)
                                               (k$591 term$304)
                                               (list #((record-marker)
                                                       #((record-marker)
                                                         #f
                                                         (id args
                                                             body
                                                             has-cont))
                                                       #(263
                                                         (r$593)
                                                         ((lp$37$302
                                                            k$591
                                                            r$593
                                                            (Cyc-fast-sub
                                                              n$303
                                                              1)))
                                                         #f))
                                                     'or
                                                     term$304
                                                     '(f))))
                                            #t)))))
                                    #f))
                                #f))
                              #f))
                          term$298
                          n$297))
                        #f))
                    alist$299))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ((alist$299
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 271 #f #f #f 1 (271) #f #f 0 1 #t #f #f))))
      ()
      ((k$517 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 174 #f #f #f 2 (172 163) #f #f 1 1 #t #f #t))))
      ()
      ((apply-subst$237
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (258 242 230 146)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(241
                 (k$568 alist$294 term$293)
                 ((if (pair? term$293)
                    (apply-subst-lst$236
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(233
                          (r$571)
                          ((k$568 (cons (car term$293) r$571)))
                          #f))
                      alist$294
                      (cdr term$293))
                    (if (assq term$293 alist$294)
                      (k$568 (cdr (assq term$293 alist$294)))
                      (k$568 term$293))))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((lst2$273
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             105
             #f
             #f
             #f
             4
             (105 100 105 105)
             #f
             #f
             0
             4
             #t
             #f
             #f))))
      ()
      ((one-way-unify$226
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (150 135)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(134
                 (k$495 term1$279 term2$278)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(132
                       (r$496)
                       ((one-way-unify1$225 k$495 term1$279 term2$278))
                       #f))
                   (set! unify-subst$227 '())))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$621 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 306 #f #f #f 1 (306) #f #f 0 1 #t #t #f))))
      ()
      ()
      ()
      ()
      ((r$626 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 310 #f #f #f 1 (310) #f #f 0 1 #t #f #f))))
      ((eq? .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(?
                ?
                #f
                #f
                #f
                7
                (357 274 212 181 181 129 56)
                #f
                #f
                7
                0
                #t
                #f
                #f))))
      ((current-output-port
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             3
             (421 390 439)
             #f
             #f
             3
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((rewrites$358
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 466 #f #f #f 2 (466 466) #f #f 0 2 #t #f #f)))
       (trans-of-implies1$218
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (77 63 70)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(69
                 (k$446 n$265)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(68
                       (r$447)
                       ((if r$447
                          (list k$446 'implies 0 1)
                          (#((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(64
                               (r$454)
                               ((list #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(63
                                          (r$450)
                                          ((trans-of-implies1$218
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(61
                                                 (r$451)
                                                 ((list k$446 'and r$450 r$451))
                                                 #f))
                                             (Cyc-fast-sub n$265 1)))
                                          #f))
                                      'implies
                                      r$454
                                      n$265))
                               #f))
                           (Cyc-fast-sub n$265 1))))
                       #f))
                   (equal? n$265 1)))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$528 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 177) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$632 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 323 #f #f #f 1 (321) #f #f 0 1 #t #f #f))))
      ((r$633 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 321 #f #f #f 1 (321) #f #f 0 1 #t #f #f)))
       (v$350 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 452 #f #f #f 1 (452) #f #f 0 1 #t #f #f)))
       (newline
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             4
             (422 391 399 440)
             #f
             #f
             4
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$639 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 332 #f #f #f 1 (330) #f #f 0 1 #t #f #f))))
      ((main .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 484
                 #f
                 #f
                 2
                 (1 -1)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(484
                      (k$754)
                      ((read #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(482
                                 (count$352)
                                 ((read #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(480
                                            (input$353)
                                            ((read #((record-marker)
                                                     #((record-marker)
                                                       #f
                                                       (id args body has-cont))
                                                     #(478
                                                       (output$354)
                                                       ((#((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(476
                                                             (s2$355)
                                                             ((#((record-marker)
                                                                 #((record-marker)
                                                                   #f
                                                                   (id args
                                                                       body
                                                                       has-cont))
                                                                 #(474
                                                                   (s1$356)
                                                                   ((#((record-marker)
                                                                       #((record-marker)
                                                                         #f
                                                                         (id args
                                                                             body
                                                                             has-cont))
                                                                       #(471
                                                                         (r$760)
                                                                         ((run-r7rs-benchmark
                                                                            k$754
                                                                            r$760
                                                                            count$352
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(470
                                                                                (k$765)
                                                                                ((setup-boyer
                                                                                   #((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(469
                                                                                       (r$766)
                                                                                       ((hide #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(468
                                                                                                  (r$767)
                                                                                                  ((test-boyer
                                                                                                     k$765
                                                                                                     alist
                                                                                                     term
                                                                                                     r$767))
                                                                                                  #f))
                                                                                              count$352
                                                                                              input$353))
                                                                                       #f))))
                                                                                #t))
                                                                            #((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(466
                                                                                (k$763 rewrites$358)
                                                                                ((if (number?
                                                                                       rewrites$358)
                                                                                   (k$763 (Cyc-fast-eq
                                                                                            rewrites$358
                                                                                            output$354))
                                                                                   (k$763 #f)))
                                                                                #t))))
                                                                         #f))
                                                                     (string-append
                                                                       "sboyer"
                                                                       ":"
                                                                       s1$356
                                                                       ":"
                                                                       s2$355)))
                                                                   #f))
                                                               (number->string
                                                                 input$353)))
                                                             #f))
                                                         (number->string
                                                           count$352)))
                                                       #f))))
                                            #f))))
                                 #f))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$530 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  181
                  #f
                  #f
                  #f
                  2
                  (181 181)
                  #f
                  #((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(177
                      (r$529)
                      ((if r$529
                         (k$528 original$284)
                         (k$528 (cons x$286 y$285))))
                      #f))
                  2
                  0
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ((k$536 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  214
                  #f
                  #f
                  #f
                  8
                  (212 212 197 197 202 204 212 213)
                  #f
                  #f
                  5
                  3
                  #t
                  #f
                  #t))))
      ()
      ()
      ()
      ()
      ()
      ((s2$355
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             476
             #f
             #f
             #f
             1
             (474)
             #f
             (number->string count$352)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$348 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 461 #f #f #f 1 (456) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((r$640 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 330 #f #f #f 1 (330) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((r$645 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 351 #f #f #f 1 (351) #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ((r$649 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 345 #f #f #f 1 (341) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((j/s$333
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 435 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((null? .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  13
                  (367 327 253 230 160 150 105 105 105 44 44 44 30)
                  #f
                  #f
                  13
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ((term-args-equal?$216
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (56 39 45)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(44
                 (k$428 lst1$262 lst2$261)
                 ((if (null? lst1$262)
                    (k$428 (null? lst2$261))
                    (if (null? lst2$261)
                      (k$428 #f)
                      (term-equal?$217
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(39
                            (r$431)
                            ((if r$431
                               (term-args-equal?$216
                                 k$428
                                 (cdr lst1$262)
                                 (cdr lst2$261))
                               (k$428 #f)))
                            #f))
                        (car lst1$262)
                        (car lst2$261)))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((caar .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(? ? #f #f #f 1 (245) #f #f 1 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((r$650 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 341 #f #f #f 1 (341) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((r$654 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  348
                  #f
                  #f
                  #f
                  1
                  (341)
                  #f
                  (cadr term$324)
                  0
                  1
                  #t
                  #f
                  #f)))
       (original$284
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             182
             #f
             #f
             #f
             3
             (177 181 181)
             #f
             #f
             0
             3
             #t
             #f
             #f))))
      ((cdar .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(? ? #f #f #f 1 (253) #f #f 1 0 #t #f #f))))
      ()
      ((number->string
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (478 476) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ((this-scheme-implementation-name
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             -1
             382
             #f
             #f
             2
             (-1 397)
             #f
             (#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(382
                  (k$674)
                  ((Cyc-version
                     #((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(381
                         (r$675)
                         ((k$674 (string-append "cyclone-" r$675)))
                         #f))))
                  #t)))
             1
             0
             #f
             #f
             #f))))
      ((number?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (125 466) #f #f 2 0 #t #f #f))))
      ()
      ()
      ((rewrite-count$232
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             5
             (184 174 173 6 3)
             #t
             0
             0
             2
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((setup$254
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             1
             (372)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(371
                 (k$668)
                 ((add-lemma-lst$253
                    k$668
                    '((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))))))
                 #t))
             0
             0
             #t
             #f
             #f))))
      ()
      ((k$556 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 220 #f #f #f 1 (219) #f #f 0 1 #t #f #t)))
       (write .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  3
                  (423 402 404)
                  #f
                  #f
                  3
                  0
                  #f
                  #f
                  #f))))
      ((vector-set!
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (306 283) #f #f 2 0 #t #f #f)))
       (add-lemma-lst$253
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (371 363 368 9)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(367
                 (k$662 lst$325)
                 ((if (null? lst$325)
                    (k$662 #t)
                    (add-lemma$252
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(363
                          (r$664)
                          ((add-lemma-lst$253 k$662 (cdr lst$325)))
                          #f))
                      (car lst$325))))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ()
      ()
      ((r$360 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  376
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! alist
                    '((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
                  0
                  #t
                  #f
                  #f)))
       (one-way-unify1$225
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (132 130 105)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(129
                 (k$480 term1$276 term2$275)
                 ((if (pair? term2$275)
                    (if (pair? term1$276)
                      (if (eq? (car term1$276) (car term2$275))
                        (one-way-unify1-lst$224
                          k$480
                          (cdr term1$276)
                          (cdr term2$275))
                        (k$480 #f))
                      (k$480 #f))
                    (#((record-marker)
                       #((record-marker) #f (id args body has-cont))
                       #(125
                         (temp-temp$277)
                         ((if temp-temp$277
                            (term-equal?$217
                              k$480
                              term1$276
                              (cdr temp-temp$277))
                            (if (number? term2$275)
                              (k$480 (equal? term1$276 term2$275))
                              (#((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(121
                                   (r$492)
                                   ((#((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(120 (r$491) ((k$480 #t)) #f))
                                     (set! unify-subst$227 r$492)))
                                   #f))
                               (cons (cons term2$275 term1$276)
                                     unify-subst$227)))))
                         #f))
                     (assq term2$275 unify-subst$227))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((r$361 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  374
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term
                    '(implies
                       (and (implies x y)
                            (and (implies y z)
                                 (and (implies z u) (implies u w))))
                       (implies x w)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((alist .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  -1
                  #f
                  #f
                  #f
                  3
                  (-1 -1 468)
                  #t
                  '((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
                  1
                  #f
                  #f
                  #f)))
       (r$362 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  1
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! test-boyer
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(6
                        (k$405 alist$257 term$256 n$255)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(5
                              (r$406)
                              ((test$239
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(3
                                     (answer$258)
                                     ((if answer$258
                                        (k$405 rewrite-count$232)
                                        (k$405 #f)))
                                     #f))
                                 alist$257
                                 term$256
                                 n$255))
                              #f))
                          (set! rewrite-count$232 0)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$363 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  368
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! setup$254
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(371
                        (k$668)
                        ((add-lemma-lst$253
                           k$668
                           '((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))))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((true-term$220
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (86 80 10)
             #t
             '*
             0
             1
             #f
             #f
             #f)))
       (r$364 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  359
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! add-lemma-lst$253
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(367
                        (k$662 lst$325)
                        ((if (null? lst$325)
                           (k$662 #t)
                           (add-lemma$252
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(363
                                 (r$664)
                                 ((add-lemma-lst$253 k$662 (cdr lst$325)))
                                 #f))
                             (car lst$325))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$365 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  338
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! add-lemma$252
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(358
                        (k$644 term$324)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(357
                              (k$655)
                              ((if (pair? term$324)
                                 (if (eq? (car term$324) 'equal)
                                   (k$655 (pair? (cadr term$324)))
                                   (k$655 #f))
                                 (k$655 #f)))
                              #t))
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(351
                              (r$645)
                              ((if r$645
                                 (#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(348
                                      (r$654)
                                      ((translate-term$251
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(345
                                             (r$649)
                                             ((get$247
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(341
                                                    (r$650)
                                                    ((put$248
                                                       k$644
                                                       (car r$654)
                                                       'lemmas
                                                       (cons r$649 r$650)))
                                                    #f))
                                                (car (cadr term$324))
                                                'lemmas))
                                             #f))
                                         term$324))
                                      #f))
                                  (cadr term$324))
                                 (error k$644
                                        #f
                                        "ADD-LEMMA did not like term:  "
                                        term$324)))
                              #f))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$366 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  328
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-term$251
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(337
                        (k$637 term$323)
                        ((if (pair? term$323)
                           (symbol->symbol-record$246
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(332
                                 (r$639)
                                 ((translate-args$250
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(330
                                        (r$640)
                                        ((k$637 (cons r$639 r$640)))
                                        #f))
                                    (cdr term$323)))
                                 #f))
                             (car term$323))
                           (k$637 term$323)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$367 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  318
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-args$250
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(327
                        (k$630 lst$322)
                        ((if (null? lst$322)
                           (k$630 '())
                           (translate-term$251
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(323
                                 (r$632)
                                 ((translate-args$250
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(321
                                        (r$633)
                                        ((k$630 (cons r$632 r$633)))
                                        #f))
                                    (cdr lst$322)))
                                 #f))
                             (car lst$322))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$368 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  308
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! untranslate-term$249
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(317
                        (k$623 term$321)
                        ((if (pair? term$321)
                           (map #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(310
                                    (r$626)
                                    ((k$623 (cons (vector-ref (car term$321) 0)
                                                  r$626)))
                                    #f))
                                untranslate-term$249
                                (cdr term$321))
                           (k$623 term$321)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$369 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  304
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! put$248
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(307
                        (k$620 sym$320 property$319 value$318)
                        ((symbol->symbol-record$246
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(306
                               (r$621)
                               ((k$620 (vector-set! r$621 1 value$318)))
                               #f))
                           sym$320))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((j0$335
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 431 #f #f #f 2 (404 392) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((r$664 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 363 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$561 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 230 #f #f #f 2 (224 230) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ((count$328
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (427) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((k$568 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  241
                  #f
                  #f
                  #f
                  3
                  (241 241 233)
                  #f
                  #f
                  3
                  0
                  #t
                  #f
                  #t))))
      ()
      ((r$370 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  300
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get$247
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(303
                        (k$617 sym$317 property$316)
                        ((symbol->symbol-record$246
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(302 (r$618) ((k$617 (vector-ref r$618 1))) #f))
                           sym$317))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$371 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  290
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! symbol->symbol-record$246
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(299
                        (k$610 sym$313)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(297
                              (x$314)
                              ((if x$314
                                 (k$610 (cdr x$314))
                                 (vector
                                   #((record-marker)
                                     #((record-marker)
                                       #f
                                       (id args body has-cont))
                                     #(295
                                       (r$315)
                                       ((#((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(293
                                             (r$614)
                                             ((#((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(292
                                                   (r$613)
                                                   ((k$610 r$315))
                                                   #f))
                                               (set! *symbol-records-alist*$245
                                                 r$614)))
                                             #f))
                                         (cons (cons sym$313 r$315)
                                               *symbol-records-alist*$245)))
                                       #f))
                                   sym$313
                                   '())))
                              #f))
                          (assq sym$313 *symbol-records-alist*$245)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((map .
            #((record-marker)
              #((record-marker)
                #f
                (global
                  defined-by
                  defines-lambda-id
                  const
                  const-value
                  ref-count
                  ref-by
                  reassigned
                  assigned-value
                  app-fnc-count
                  app-arg-count
                  inlinable
                  mutated-indirectly
                  cont))
              #(? ? #f #f #f 1 (317) #f #f 1 0 #f #f #f)))
       (r$372 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  288
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 '())
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$373 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  284
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! make-symbol-record$244
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(287
                        (k$606 sym$312)
                        ((vector k$606 sym$312 '()))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$374 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  281
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! put-lemmas!$243
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(283
                        (k$604 symbol-record$311 lemmas$310)
                        ((k$604 (vector-set! symbol-record$311 1 lemmas$310)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$375 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  278
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get-lemmas$242
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(280
                        (k$602 symbol-record$309)
                        ((k$602 (vector-ref symbol-record$309 1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (term1$276
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             129
             #f
             #f
             #f
             6
             (125 125 125 129 129 129)
             #f
             #f
             0
             6
             #t
             #f
             #f))))
      ((r2$306
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 274 #f #f #f 1 (274) #f #f 0 1 #t #f #f)))
       (r$376 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  275
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! get-name$241
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(277
                        (k$600 symbol-record$308)
                        ((k$600 (vector-ref symbol-record$308 0)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$377 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  272
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! symbol-record-equal?$240
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(274
                        (k$598 r1$307 r2$306)
                        ((k$598 (eq? r1$307 r2$306)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$378 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  254
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! test$239
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(271
                        (k$584 alist$299 term$298 n$297)
                        ((translate-alist$238
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(270
                               (r$586)
                               ((#((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(269
                                     (term$301 n$300)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(268
                                           (lp$37$302)
                                           ((#((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(260
                                                 (r$589)
                                                 ((lp$37$302
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(259
                                                        (r$588)
                                                        ((translate-term$251
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(258
                                                               (r$587)
                                                               ((apply-subst$237
                                                                  #((record-marker)
                                                                    #((record-marker)
                                                                      #f
                                                                      (id args
                                                                          body
                                                                          has-cont))
                                                                    #(256
                                                                      (term$305)
                                                                      ((tautp$235
                                                                         k$584
                                                                         term$305))
                                                                      #f))
                                                                  r$586
                                                                  r$587))
                                                               #f))
                                                           r$588))
                                                        #f))
                                                    term$301
                                                    n$300))
                                                 #f))
                                             (set! lp$37$302
                                               #((record-marker)
                                                 #((record-marker)
                                                   #f
                                                   (id args body has-cont))
                                                 #(267
                                                   (k$591 term$304 n$303)
                                                   ((if (zero?__inline__ n$303)
                                                      (k$591 term$304)
                                                      (list #((record-marker)
                                                              #((record-marker)
                                                                #f
                                                                (id args
                                                                    body
                                                                    has-cont))
                                                              #(263
                                                                (r$593)
                                                                ((lp$37$302
                                                                   k$591
                                                                   r$593
                                                                   (Cyc-fast-sub
                                                                     n$303
                                                                     1)))
                                                                #f))
                                                            'or
                                                            term$304
                                                            '(f))))
                                                   #t)))))
                                           #f))
                                       #f))
                                     #f))
                                 term$298
                                 n$297))
                               #f))
                           alist$299))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (term1$279
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 134 #f #f #f 1 (132) #f #f 0 1 #f #f #f))))
      ((r$379 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  242
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! translate-alist$238
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(253
                        (k$575 alist$296)
                        ((if (null? alist$296)
                           (k$575 '())
                           (translate-term$251
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(248
                                 (r$581)
                                 ((translate-alist$238
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(245
                                        (r$578)
                                        ((k$575 (cons (cons (caar alist$296)
                                                            r$581)
                                                      r$578)))
                                        #f))
                                    (cdr alist$296)))
                                 #f))
                             (cdar alist$296))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$675 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 381 #f #f #f 1 (381) #f #f 0 1 #t #f #f))))
      ()
      ()
      ((scons$231
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (183 166 154)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(182
                 (k$528 x$286 y$285 original$284)
                 ((#((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(181
                       (k$530)
                       ((if (eq? x$286 (car original$284))
                          (k$530 (eq? y$285 (cdr original$284)))
                          (k$530 #f)))
                       #t))
                   #((record-marker)
                     #((record-marker) #f (id args body has-cont))
                     #(177
                       (r$529)
                       ((if r$529
                          (k$528 original$284)
                          (k$528 (cons x$286 y$285))))
                       #f))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((r$679 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  442
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rounded$331
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(446
                        (k$725 x$346)
                        ((k$725 (Cyc-fast-div
                                  (round__inline__ (Cyc-fast-mul 1000 x$346))
                                  1000)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ()
      ((translate-args$250
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (332 323 328)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(327
                 (k$630 lst$322)
                 ((if (null? lst$322)
                    (k$630 '())
                    (translate-term$251
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(323
                          (r$632)
                          ((translate-args$250
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(321 (r$633) ((k$630 (cons r$632 r$633))) #f))
                             (cdr lst$322)))
                          #f))
                      (car lst$322))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ((term-member?$215
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             4
             (89 84 27 31)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(30
                 (k$422 x$260 lst$259)
                 ((if (null? lst$259)
                    (k$422 #f)
                    (term-equal?$217
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(27
                          (r$424)
                          ((if r$424
                             (k$422 #t)
                             (term-member?$215 k$422 x$260 (cdr lst$259))))
                          #f))
                      x$260
                      (car lst$259))))
                 #t))
             3
             0
             #f
             #f
             #f))))
      ()
      ((equal?
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 3 (125 69 56) #f #f 3 0 #t #f #f))))
      ()
      ((k$575 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 253 #f #f #f 2 (245 253) #f #f 2 0 #t #f #t))))
      ()
      ((%halt .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(? ? #f #f #f 1 (1) #f #f 0 1 #f #f #f))))
      ()
      ()
      ((r$380 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  231
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! apply-subst$237
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(241
                        (k$568 alist$294 term$293)
                        ((if (pair? term$293)
                           (apply-subst-lst$236
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(233
                                 (r$571)
                                 ((k$568 (cons (car term$293) r$571)))
                                 #f))
                             alist$294
                             (cdr term$293))
                           (if (assq term$293 alist$294)
                             (k$568 (cdr (assq term$293 alist$294)))
                             (k$568 term$293))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$381 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  221
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! apply-subst-lst$236
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(230
                        (k$561 alist$292 lst$291)
                        ((if (null? lst$291)
                           (k$561 '())
                           (apply-subst$237
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(226
                                 (r$563)
                                 ((apply-subst-lst$236
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(224
                                        (r$564)
                                        ((k$561 (cons r$563 r$564)))
                                        #f))
                                    alist$292
                                    (cdr lst$291)))
                                 #f))
                             alist$292
                             (car lst$291))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$382 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  215
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tautp$235
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(220
                        (k$556 x$290)
                        ((rewrite$230
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(219
                               (r$557)
                               ((tautologyp$234 k$556 r$557 '() '()))
                               #f))
                           x$290))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$383 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  186
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! tautologyp$234
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(214
                        (k$536 x$289 true-lst$288 false-lst$287)
                        ((truep$222
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(213
                               (r$537)
                               ((if r$537
                                  (k$536 #t)
                                  (falsep$223
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(212
                                        (r$538)
                                        ((if r$538
                                           (k$536 #f)
                                           (if (pair? x$289)
                                             (if (eq? (car x$289)
                                                      if-constructor$233)
                                               (truep$222
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(204
                                                     (r$541)
                                                     ((if r$541
                                                        (tautologyp$234
                                                          k$536
                                                          (caddr x$289)
                                                          true-lst$288
                                                          false-lst$287)
                                                        (falsep$223
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(202
                                                              (r$543)
                                                              ((if r$543
                                                                 (tautologyp$234
                                                                   k$536
                                                                   (cadddr
                                                                     x$289)
                                                                   true-lst$288
                                                                   false-lst$287)
                                                                 (tautologyp$234
                                                                   #((record-marker)
                                                                     #((record-marker)
                                                                       #f
                                                                       (id args
                                                                           body
                                                                           has-cont))
                                                                     #(197
                                                                       (r$545)
                                                                       ((if r$545
                                                                          (tautologyp$234
                                                                            k$536
                                                                            (cadddr
                                                                              x$289)
                                                                            true-lst$288
                                                                            (cons (cadr x$289)
                                                                                  false-lst$287))
                                                                          (k$536 #f)))
                                                                       #f))
                                                                   (caddr x$289)
                                                                   (cons (cadr x$289)
                                                                         true-lst$288)
                                                                   false-lst$287)))
                                                              #f))
                                                          (cadr x$289)
                                                          false-lst$287)))
                                                     #f))
                                                 (cadr x$289)
                                                 true-lst$288)
                                               (k$536 #f))
                                             (k$536 #f))))
                                        #f))
                                    x$289
                                    false-lst$287)))
                               #f))
                           x$289
                           true-lst$288))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$260 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 30 #f #f #f 2 (30 27) #f #f 0 2 #t #f #f))))
      ((r$384 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  184
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! if-constructor$233 '*)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((cadr .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 8
                 (351 345 357 212 204 202 197 150)
                 #f
                 #f
                 8
                 0
                 #t
                 #f
                 #f)))
       (r$385 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  183
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$386 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  175
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! scons$231
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(182
                        (k$528 x$286 y$285 original$284)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(181
                              (k$530)
                              ((if (eq? x$286 (car original$284))
                                 (k$530 (eq? y$285 (cdr original$284)))
                                 (k$530 #f)))
                              #t))
                          #((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(177
                              (r$529)
                              ((if r$529
                                 (k$528 original$284)
                                 (k$528 (cons x$286 y$285))))
                              #f))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((rewrite-with-lemmas$228
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (163 146 151)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(150
                 (k$500 term$281 lst$280)
                 ((if (null? lst$280)
                    (k$500 term$281)
                    (one-way-unify$226
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(146
                          (r$502)
                          ((if r$502
                             (apply-subst$237
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(140 (r$503) ((rewrite$230 k$500 r$503)) #f))
                               unify-subst$227
                               (caddr (car lst$280)))
                             (rewrite-with-lemmas$228
                               k$500
                               term$281
                               (cdr lst$280))))
                          #f))
                      term$281
                      (cadr (car lst$280)))))
                 #t))
             2
             0
             #f
             #f
             #f)))
       (r$387 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  161
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite$230
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(174
                        (k$517 term$283)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(173
                              (r$526)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(172
                                    (r$518)
                                    ((if (pair? term$283)
                                       (rewrite-args$229
                                         #((record-marker)
                                           #((record-marker)
                                             #f
                                             (id args body has-cont))
                                           #(166
                                             (r$524)
                                             ((scons$231
                                                #((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(165
                                                    (r$520)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(163
                                                          (r$521)
                                                          ((rewrite-with-lemmas$228
                                                             k$517
                                                             r$520
                                                             r$521))
                                                          #f))
                                                      (vector-ref
                                                        (car term$283)
                                                        1)))
                                                    #f))
                                                (car term$283)
                                                r$524
                                                term$283))
                                             #f))
                                         (cdr term$283))
                                       (k$517 term$283)))
                                    #f))
                                (set! rewrite-count$232 r$526)))
                              #f))
                          (Cyc-fast-plus rewrite-count$232 1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$264 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  56
                  #f
                  #f
                  #f
                  4
                  (56 56 56 56)
                  #f
                  #f
                  0
                  4
                  #t
                  #f
                  #f))))
      ((r$388 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  151
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-args$229
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(160
                        (k$510 lst$282)
                        ((if (null? lst$282)
                           (k$510 '())
                           (rewrite$230
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(156
                                 (r$512)
                                 ((rewrite-args$229
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(154
                                        (r$513)
                                        ((scons$231 k$510 r$512 r$513 lst$282))
                                        #f))
                                    (cdr lst$282)))
                                 #f))
                             (car lst$282))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$389 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  137
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-with-lemmas$228
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(150
                        (k$500 term$281 lst$280)
                        ((if (null? lst$280)
                           (k$500 term$281)
                           (one-way-unify$226
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(146
                                 (r$502)
                                 ((if r$502
                                    (apply-subst$237
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(140
                                          (r$503)
                                          ((rewrite$230 k$500 r$503))
                                          #f))
                                      unify-subst$227
                                      (caddr (car lst$280)))
                                    (rewrite-with-lemmas$228
                                      k$500
                                      term$281
                                      (cdr lst$280))))
                                 #f))
                             term$281
                             (cadr (car lst$280)))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((r$680 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 441 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (x$268 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 86 #f #f #f 2 (86 84) #f #f 0 2 #t #f #f))))
      ((r$681 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 440 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$682 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 439 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$683 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 437 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (falsep$223
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (204 213 92)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(91
                 (k$468 x$271 lst$270)
                 ((term-equal?$217
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(89
                        (tmp$117$272)
                        ((if tmp$117$272
                           (k$468 tmp$117$272)
                           (term-member?$215 k$468 x$271 lst$270)))
                        #f))
                    x$271
                    false-term$221))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ((hide .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 -1
                 461
                 #f
                 #f
                 2
                 (-1 469)
                 #f
                 (#((record-marker)
                    #((record-marker) #f (id args body has-cont))
                    #(461
                      (k$730 r$348 x$347)
                      ((call-with-values
                         k$730
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(460
                             (k$735)
                             ((vector
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(457
                                    (r$736)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(456
                                          (k$738)
                                          ((if (Cyc-fast-lt r$348 100)
                                             (k$738 0)
                                             (k$738 1)))
                                          #t))
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(454
                                          (r$737)
                                          ((values k$735 r$736 r$737))
                                          #f))))
                                    #f))
                                values
                                #((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(459 (k$741 x$351) ((k$741 x$351)) #t))))
                             #t))
                         #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(452
                             (k$733 v$350 i$349)
                             (((vector-ref v$350 i$349) k$733 x$347))
                             #t))))
                      #t)))
                 1
                 0
                 #f
                 #f
                 #f))))
      ((r$687 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  383
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! loop$338
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(427
                        (k$689 i$340 result$339)
                        ((if (Cyc-fast-lt i$340 count$328)
                           (thunk$327
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(385
                                 (r$692)
                                 ((loop$338
                                    k$689
                                    (Cyc-fast-plus i$340 1)
                                    r$692))
                                 #f)))
                           (ok?$326
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(425
                                 (r$693)
                                 ((if r$693
                                    (current-jiffy
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(416
                                          (j1$341)
                                          ((current-second
                                             #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(414
                                                 (t1$342)
                                                 ((rounded$331
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(406
                                                        (secs2$345)
                                                        ((display
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(404
                                                               (r$700)
                                                               ((write #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(403
                                                                           (r$701)
                                                                           ((display
                                                                              #((record-marker)
                                                                                #((record-marker)
                                                                                  #f
                                                                                  (id args
                                                                                      body
                                                                                      has-cont))
                                                                                #(402
                                                                                  (r$702)
                                                                                  ((write #((record-marker)
                                                                                            #((record-marker)
                                                                                              #f
                                                                                              (id args
                                                                                                  body
                                                                                                  has-cont))
                                                                                            #(401
                                                                                              (r$703)
                                                                                              ((display
                                                                                                 #((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(400
                                                                                                     (r$704)
                                                                                                     ((display
                                                                                                        #((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(399
                                                                                                            (r$705)
                                                                                                            ((newline
                                                                                                               #((record-marker)
                                                                                                                 #((record-marker)
                                                                                                                   #f
                                                                                                                   (id args
                                                                                                                       body
                                                                                                                       has-cont))
                                                                                                                 #(398
                                                                                                                   (r$706)
                                                                                                                   ((display
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(397
                                                                                                                          (r$707)
                                                                                                                          ((this-scheme-implementation-name
                                                                                                                             #((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(396
                                                                                                                                 (r$715)
                                                                                                                                 ((display
                                                                                                                                    #((record-marker)
                                                                                                                                      #((record-marker)
                                                                                                                                        #f
                                                                                                                                        (id args
                                                                                                                                            body
                                                                                                                                            has-cont))
                                                                                                                                      #(395
                                                                                                                                        (r$708)
                                                                                                                                        ((display
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(394
                                                                                                                                               (r$709)
                                                                                                                                               ((display
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(393
                                                                                                                                                      (r$710)
                                                                                                                                                      ((display
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #((record-marker)
                                                                                                                                                             #f
                                                                                                                                                             (id args
                                                                                                                                                                 body
                                                                                                                                                                 has-cont))
                                                                                                                                                           #(392
                                                                                                                                                             (r$711)
                                                                                                                                                             ((display
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(391
                                                                                                                                                                    (r$712)
                                                                                                                                                                    ((newline
                                                                                                                                                                       #((record-marker)
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #f
                                                                                                                                                                           (id args
                                                                                                                                                                               body
                                                                                                                                                                               has-cont))
                                                                                                                                                                         #(390
                                                                                                                                                                           (r$713)
                                                                                                                                                                           ((current-output-port
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #f
                                                                                                                                                                                  (id args
                                                                                                                                                                                      body
                                                                                                                                                                                      has-cont))
                                                                                                                                                                                #(389
                                                                                                                                                                                  (r$714)
                                                                                                                                                                                  ((flush-output-port
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(388
                                                                                                                                                                                         (r$694)
                                                                                                                                                                                         ((k$689 result$339))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     r$714))
                                                                                                                                                                                  #f))))
                                                                                                                                                                           #f))))
                                                                                                                                                                    #f))
                                                                                                                                                                (inexact__inline__
                                                                                                                                                                  (Cyc-fast-div
                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                      j1$341
                                                                                                                                                                      j0$335)
                                                                                                                                                                    j/s$333))))
                                                                                                                                                             #f))
                                                                                                                                                         ","))
                                                                                                                                                      #f))
                                                                                                                                                  name$329))
                                                                                                                                               #f))
                                                                                                                                           ","))
                                                                                                                                        #f))
                                                                                                                                    r$715))
                                                                                                                                 #f))))
                                                                                                                          #f))
                                                                                                                      "+!CSVLINE!+"))
                                                                                                                   #f))))
                                                                                                            #f))
                                                                                                        name$329))
                                                                                                     #f))
                                                                                                 ") for "))
                                                                                              #f))
                                                                                          secs2$345))
                                                                                  #f))
                                                                              " seconds ("))
                                                                           #f))
                                                                       (inexact__inline__
                                                                         (Cyc-fast-div
                                                                           (Cyc-fast-sub
                                                                             j1$341
                                                                             j0$335)
                                                                           j/s$333))))
                                                               #f))
                                                           "Elapsed time: "))
                                                        #f))
                                                    (Cyc-fast-sub
                                                      t1$342
                                                      t0$334)))
                                                 #f))))
                                          #f)))
                                    (display
                                      #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(423
                                          (r$718)
                                          ((write #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(422
                                                      (r$719)
                                                      ((newline
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(421
                                                             (r$720)
                                                             ((current-output-port
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(420
                                                                    (r$722)
                                                                    ((flush-output-port
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(419
                                                                           (r$721)
                                                                           ((k$689 result$339))
                                                                           #f))
                                                                       r$722))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  result$339))
                                          #f))
                                      "ERROR: returned incorrect result: ")))
                                 #f))
                             result$339)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((t0$334
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 433 #f #f #f 1 (414) #f #f 0 1 #t #f #f))))
      ()
      ((temp-temp$277
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             125
             #f
             #f
             #f
             2
             (125 125)
             #f
             (assq term2$275 unify-subst$227)
             0
             1
             #t
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$584 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 271 #f #f #f 1 (256) #f #f 0 1 #t #f #t))))
      ()
      ()
      ()
      ()
      ((true-lst$288
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             214
             #f
             #f
             #f
             6
             (214 212 202 197 202 204)
             #f
             #f
             0
             6
             #t
             #f
             #f))))
      ((r$390 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  135
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! unify-subst$227 '*)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$391 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  130
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify$226
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(134
                        (k$495 term1$279 term2$278)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(132
                              (r$496)
                              ((one-way-unify1$225 k$495 term1$279 term2$278))
                              #f))
                          (set! unify-subst$227 '())))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$392 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  106
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify1$225
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(129
                        (k$480 term1$276 term2$275)
                        ((if (pair? term2$275)
                           (if (pair? term1$276)
                             (if (eq? (car term1$276) (car term2$275))
                               (one-way-unify1-lst$224
                                 k$480
                                 (cdr term1$276)
                                 (cdr term2$275))
                               (k$480 #f))
                             (k$480 #f))
                           (#((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(125
                                (temp-temp$277)
                                ((if temp-temp$277
                                   (term-equal?$217
                                     k$480
                                     term1$276
                                     (cdr temp-temp$277))
                                   (if (number? term2$275)
                                     (k$480 (equal? term1$276 term2$275))
                                     (#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(121
                                          (r$492)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(120 (r$491) ((k$480 #t)) #f))
                                            (set! unify-subst$227 r$492)))
                                          #f))
                                      (cons (cons term2$275 term1$276)
                                            unify-subst$227)))))
                                #f))
                            (assq term2$275 unify-subst$227))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$393 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  92
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! one-way-unify1-lst$224
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(105
                        (k$471 lst1$274 lst2$273)
                        ((if (null? lst1$274)
                           (k$471 (null? lst2$273))
                           (if (null? lst2$273)
                             (k$471 #f)
                             (one-way-unify1$225
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(100
                                   (r$474)
                                   ((if r$474
                                      (one-way-unify1-lst$224
                                        k$471
                                        (cdr lst1$274)
                                        (cdr lst2$273))
                                      (k$471 #f)))
                                   #f))
                               (car lst1$274)
                               (car lst2$273)))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$394 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  87
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! falsep$223
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(91
                        (k$468 x$271 lst$270)
                        ((term-equal?$217
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(89
                               (tmp$117$272)
                               ((if tmp$117$272
                                  (k$468 tmp$117$272)
                                  (term-member?$215 k$468 x$271 lst$270)))
                               #f))
                           x$271
                           false-term$221))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (x$271 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 91 #f #f #f 2 (91 89) #f #f 0 2 #t #f #f))))
      ((r$395 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  82
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! truep$222
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(86
                        (k$465 x$268 lst$267)
                        ((term-equal?$217
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(84
                               (tmp$120$269)
                               ((if tmp$120$269
                                  (k$465 tmp$120$269)
                                  (term-member?$215 k$465 x$268 lst$267)))
                               #f))
                           x$268
                           true-term$220))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$396 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  80
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! false-term$221 '*)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$397 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  78
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! true-term$220 '*)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$398 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  70
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! trans-of-implies$219
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(77
                        (k$456 n$266)
                        ((trans-of-implies1$218
                           #((record-marker)
                             #((record-marker) #f (id args body has-cont))
                             #(75
                               (r$459)
                               ((list #((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(73
                                          (r$460)
                                          ((list #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(72
                                                     (r$457)
                                                     ((translate-term$251
                                                        k$456
                                                        r$457))
                                                     #f))
                                                 'implies
                                                 r$459
                                                 r$460))
                                          #f))
                                      'implies
                                      0
                                      n$266))
                               #f))
                           n$266))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$399 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  57
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! trans-of-implies1$218
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(69
                        (k$446 n$265)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(68
                              (r$447)
                              ((if r$447
                                 (list k$446 'implies 0 1)
                                 (#((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(64
                                      (r$454)
                                      ((list #((record-marker)
                                               #((record-marker)
                                                 #f
                                                 (id args body has-cont))
                                               #(63
                                                 (r$450)
                                                 ((trans-of-implies1$218
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(61
                                                        (r$451)
                                                        ((list k$446
                                                               'and
                                                               r$450
                                                               r$451))
                                                        #f))
                                                    (Cyc-fast-sub n$265 1)))
                                                 #f))
                                             'implies
                                             r$454
                                             n$265))
                                      #f))
                                  (Cyc-fast-sub n$265 1))))
                              #f))
                          (equal? n$265 1)))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ((display
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             13
             (425
              392
              393
              394
              395
              396
              398
              400
              401
              403
              406
              441
              442)
             #f
             #f
             13
             0
             #f
             #f
             #f))))
      ((r$400 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  45
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-equal?$217
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(56
                        (k$437 x$264 y$263)
                        ((if (pair? x$264)
                           (if (pair? y$263)
                             (if (eq? (car x$264) (car y$263))
                               (term-args-equal?$216
                                 k$437
                                 (cdr x$264)
                                 (cdr y$263))
                               (k$437 #f))
                             (k$437 #f))
                           (k$437 (equal? x$264 y$263))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f)))
       (caddr .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(?
                  ?
                  #f
                  #f
                  #f
                  3
                  (202 204 146)
                  #f
                  #f
                  3
                  0
                  #t
                  #f
                  #f))))
      ((r$692 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 385 #f #f #f 1 (385) #f #f 0 1 #t #f #f)))
       (r$401 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  31
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-args-equal?$216
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(44
                        (k$428 lst1$262 lst2$261)
                        ((if (null? lst1$262)
                           (k$428 (null? lst2$261))
                           (if (null? lst2$261)
                             (k$428 #f)
                             (term-equal?$217
                               #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(39
                                   (r$431)
                                   ((if r$431
                                      (term-args-equal?$216
                                        k$428
                                        (cdr lst1$262)
                                        (cdr lst2$261))
                                      (k$428 #f)))
                                   #f))
                               (car lst1$262)
                               (car lst2$261)))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$693 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 425 #f #f #f 1 (425) #f #f 0 0 #t #f #f)))
       (r$402 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  21
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! term-member?$215
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(30
                        (k$422 x$260 lst$259)
                        ((if (null? lst$259)
                           (k$422 #f)
                           (term-equal?$217
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(27
                                 (r$424)
                                 ((if r$424
                                    (k$422 #t)
                                    (term-member?$215
                                      k$422
                                      x$260
                                      (cdr lst$259))))
                                 #f))
                             x$260
                             (car lst$259))))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$694 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 388 #f #f #f 0 () #f #f 0 0 #t #f #f)))
       (r$403 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  7
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! setup-boyer
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(20
                        (k$409)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(18
                              (r$410)
                              ((symbol->symbol-record$246
                                 #((record-marker)
                                   #((record-marker) #f (id args body has-cont))
                                   #(16
                                     (r$418)
                                     ((#((record-marker)
                                         #((record-marker)
                                           #f
                                           (id args body has-cont))
                                         #(15
                                           (r$411)
                                           ((translate-term$251
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(13
                                                  (r$416)
                                                  ((#((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(12
                                                        (r$412)
                                                        ((translate-term$251
                                                           #((record-marker)
                                                             #((record-marker)
                                                               #f
                                                               (id args
                                                                   body
                                                                   has-cont))
                                                             #(10
                                                               (r$414)
                                                               ((#((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(9
                                                                     (r$413)
                                                                     ((add-lemma-lst$253
                                                                        k$409
                                                                        '((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))
                                                                 (set! true-term$220
                                                                   r$414)))
                                                               #f))
                                                           '(t)))
                                                        #f))
                                                    (set! false-term$221
                                                      r$416)))
                                                  #f))
                                              '(f)))
                                           #f))
                                       (set! if-constructor$233 r$418)))
                                     #f))
                                 'if))
                              #f))
                          (set! *symbol-records-alist*$245 '())))
                        #t)))
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ((r$406 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  5
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! rewrite-count$232 0)
                  0
                  0
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ()
      ((r$700 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 404 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$701 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 403 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$702 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 402 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((count$352
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             482
             #f
             #f
             #f
             3
             (478 469 471)
             #f
             #f
             0
             3
             #f
             #f
             #f)))
       (r$703 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 401 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$704 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 400 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((k$591 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 267 #f #f #f 2 (263 267) #f #f 1 1 #t #f #t)))
       (r$705 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 399 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$706 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 398 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$707 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 397 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$708 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 395 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$709 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 394 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ((k$598 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 274 #f #f #f 1 (274) #f #f 1 0 #t #f #t))))
      ()
      ()
      ()
      ((k$600 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 277 #f #f #f 1 (277) #f #f 1 0 #t #f #t))))
      ()
      ((k$602 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 280 #f #f #f 1 (280) #f #f 1 0 #t #f #t))))
      ((trans-of-implies$219
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             1
             (78)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(77
                 (k$456 n$266)
                 ((trans-of-implies1$218
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(75
                        (r$459)
                        ((list #((record-marker)
                                 #((record-marker) #f (id args body has-cont))
                                 #(73
                                   (r$460)
                                   ((list #((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(72
                                              (r$457)
                                              ((translate-term$251 k$456 r$457))
                                              #f))
                                          'implies
                                          r$459
                                          r$460))
                                   #f))
                               'implies
                               0
                               n$266))
                        #f))
                    n$266))
                 #t))
             0
             0
             #f
             #f
             #f))))
      ((k$604 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 283 #f #f #f 1 (283) #f #f 1 0 #t #f #t))))
      ()
      ((k$606 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 287 #f #f #f 1 (287) #f #f 0 1 #t #f #t)))
       (round__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (446) #f #f 1 0 #t #f #f))))
      ((x$286 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 182 #f #f #f 2 (177 181) #f #f 0 2 #t #f #f))))
      ()
      ()
      ((x$289 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  214
                  #f
                  #f
                  #f
                  12
                  (214 213 212 204 202 202 197 197 202 204 212 212)
                  #f
                  #f
                  0
                  12
                  #t
                  #f
                  #f)))
       (r$410 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  18
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! *symbol-records-alist*$245 '())
                  0
                  0
                  #t
                  #f
                  #f)))
       (cons .
             #((record-marker)
               #((record-marker)
                 #f
                 (global
                   defined-by
                   defines-lambda-id
                   const
                   const-value
                   ref-count
                   ref-by
                   reassigned
                   assigned-value
                   app-fnc-count
                   app-arg-count
                   inlinable
                   mutated-indirectly
                   cont))
               #(?
                 ?
                 #f
                 #f
                 #f
                 15
                 (341
                  330
                  321
                  310
                  295
                  295
                  245
                  245
                  233
                  224
                  202
                  197
                  177
                  125
                  125)
                 #f
                 #f
                 15
                 0
                 #t
                 #f
                 #f))))
      ((r$411 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  15
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! if-constructor$233 r$418)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$412 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  12
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! false-term$221 r$416)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$413 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  9
                  #f
                  #f
                  #f
                  0
                  ()
                  #f
                  (set! true-term$220 r$414)
                  0
                  0
                  #t
                  #f
                  #f))))
      ((r$414 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 10 #f #f #f 1 (10) #f #f 0 0 #t #f #f))))
      ()
      ((r$416 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 13 #f #f #f 1 (13) #f #f 0 0 #t #f #f))))
      ()
      ((r$418 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 16 #f #f #f 1 (16) #f #f 0 0 #t #f #f))))
      ()
      ()
      ((r$710 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 393 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$711 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 392 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$712 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 391 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$713 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 390 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$714 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 389 #f #f #f 1 (389) #f #f 0 1 #t #f #f))))
      ((r$715 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 396 #f #f #f 1 (396) #f #f 0 1 #t #f #f))))
      ()
      ((translate-alist$238
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (271 248 254)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(253
                 (k$575 alist$296)
                 ((if (null? alist$296)
                    (k$575 '())
                    (translate-term$251
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(248
                          (r$581)
                          ((translate-alist$238
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(245
                                 (r$578)
                                 ((k$575 (cons (cons (caar alist$296) r$581)
                                               r$578)))
                                 #f))
                             (cdr alist$296)))
                          #f))
                      (cdar alist$296))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ((r$718 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 423 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$719 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 422 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((k$610 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 299 #f #f #f 2 (292 297) #f #f 2 0 #t #f #t))))
      ((x$290 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 220 #f #f #f 1 (220) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((k$617 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 303 #f #f #f 1 (302) #f #f 1 0 #t #f #t)))
       (tautp$235
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             2
             (256 221)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(220
                 (k$556 x$290)
                 ((rewrite$230
                    #((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(219
                        (r$557)
                        ((tautologyp$234 k$556 r$557 '() '()))
                        #f))
                    x$290))
                 #t))
             1
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$424 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 27 #f #f #f 1 (27) #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((r$720 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 421 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$721 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 419 #f #f #f 0 () #f #f 0 0 #t #f #f))))
      ((r$722 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 420 #f #f #f 1 (420) #f #f 0 1 #t #f #f))))
      ((r$723 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 438 #f #f #f 1 (438) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ((one-way-unify1-lst$224
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             3
             (129 100 106)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(105
                 (k$471 lst1$274 lst2$273)
                 ((if (null? lst1$274)
                    (k$471 (null? lst2$273))
                    (if (null? lst2$273)
                      (k$471 #f)
                      (one-way-unify1$225
                        #((record-marker)
                          #((record-marker) #f (id args body has-cont))
                          #(100
                            (r$474)
                            ((if r$474
                               (one-way-unify1-lst$224
                                 k$471
                                 (cdr lst1$274)
                                 (cdr lst2$273))
                               (k$471 #f)))
                            #f))
                        (car lst1$274)
                        (car lst2$273)))))
                 #t))
             2
             0
             #f
             #f
             #f))))
      ()
      ()
      ()
      ((inexact__inline__
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 2 (404 392) #f #f 2 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ((k$620 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 307 #f #f #f 1 (306) #f #f 1 0 #t #f #t))))
      ()
      ()
      ((k$623 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 317 #f #f #f 2 (317 310) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ()
      ()
      ()
      ((jiffies-per-second
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(? ? #f #f #f 1 (437) #f #f 1 0 #f #f #f))))
      ((r$431 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 39 #f #f #f 1 (39) #f #f 0 0 #t #f #f))))
      ()
      ()
      ()
      ()
      ()
      ((x$314 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f
                  297
                  #f
                  #f
                  #f
                  2
                  (297 297)
                  #f
                  (assq sym$313 *symbol-records-alist*$245)
                  0
                  1
                  #t
                  #f
                  #f))))
      ()
      ()
      ()
      ((put-lemmas!$243
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f
             372
             #f
             #f
             #f
             1
             (284)
             #f
             #((record-marker)
               #((record-marker) #f (id args body has-cont))
               #(283
                 (k$604 symbol-record$311 lemmas$310)
                 ((k$604 (vector-set! symbol-record$311 1 lemmas$310)))
                 #t))
             0
             0
             #f
             #f
             #f))))
      ()
      ((ok?$326
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(#f 449 #f #f #f 1 (427) #f #f 1 0 #f #f #f))))
      ()
      ()
      ()
      ((r$736 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 457 #f #f #f 1 (454) #f #f 0 1 #f #f #f))))
      ((r$737 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 454 #f #f #f 1 (454) #f #f 0 1 #t #f #f))))
      ()
      ()
      ()
      ()
      ((vector-ref
         .
         #((record-marker)
           #((record-marker)
             #f
             (global
               defined-by
               defines-lambda-id
               const
               const-value
               ref-count
               ref-by
               reassigned
               assigned-value
               app-fnc-count
               app-arg-count
               inlinable
               mutated-indirectly
               cont))
           #(?
             ?
             #f
             #f
             #f
             6
             (310 302 280 277 165 452)
             #f
             #f
             6
             0
             #t
             #f
             #f))))
      ()
      ()
      ()
      ((k$630 .
              #((record-marker)
                #((record-marker)
                  #f
                  (global
                    defined-by
                    defines-lambda-id
                    const
                    const-value
                    ref-count
                    ref-by
                    reassigned
                    assigned-value
                    app-fnc-count
                    app-arg-count
                    inlinable
                    mutated-indirectly
                    cont))
                #(#f 327 #f #f #f 2 (321 327) #f #f 2 0 #t #f #t))))
      ()
      ()
      ()
      ((-1
        .
        #((record-marker)
          #((record-marker)
            #f
            (simple
              unused-params
              assigned-to-var
              side-effects))
          #(? ? () #t)))))))
 */
/* 
"---------------- after cps optimizations (3):"
 */
/* 
((define main
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(484
       (k$754)
       ((read #((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(482
                  (count$352)
                  ((read #((record-marker)
                           #((record-marker) #f (id args body has-cont))
                           #(480
                             (input$353)
                             ((read #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(478
                                        (output$354)
                                        ((#((record-marker)
                                            #((record-marker)
                                              #f
                                              (id args body has-cont))
                                            #(476
                                              (s2$355)
                                              ((#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(474
                                                    (s1$356)
                                                    ((#((record-marker)
                                                        #((record-marker)
                                                          #f
                                                          (id args
                                                              body
                                                              has-cont))
                                                        #(471
                                                          (r$760)
                                                          ((run-r7rs-benchmark
                                                             k$754
                                                             r$760
                                                             count$352
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(470
                                                                 (k$765)
                                                                 ((setup-boyer
                                                                    #((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(469
                                                                        (r$766)
                                                                        ((hide #((record-marker)
                                                                                 #((record-marker)
                                                                                   #f
                                                                                   (id args
                                                                                       body
                                                                                       has-cont))
                                                                                 #(468
                                                                                   (r$767)
                                                                                   ((test-boyer
                                                                                      k$765
                                                                                      alist
                                                                                      term
                                                                                      r$767))
                                                                                   #f))
                                                                               count$352
                                                                               input$353))
                                                                        #f))))
                                                                 #t))
                                                             #((record-marker)
                                                               #((record-marker)
                                                                 #f
                                                                 (id args
                                                                     body
                                                                     has-cont))
                                                               #(466
                                                                 (k$763 rewrites$358)
                                                                 ((if (number?
                                                                        rewrites$358)
                                                                    (k$763 (Cyc-fast-eq
                                                                             rewrites$358
                                                                             output$354))
                                                                    (k$763 #f)))
                                                                 #t))))
                                                          #f))
                                                      (string-append
                                                        "sboyer"
                                                        ":"
                                                        s1$356
                                                        ":"
                                                        s2$355)))
                                                    #f))
                                                (number->string input$353)))
                                              #f))
                                          (number->string count$352)))
                                        #f))))
                             #f))))
                  #f))))
       #t)))
 (define alist #f)
 (define term #f)
 (define setup-boyer
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(463 (k$747) ((k$747 #t)) #t)))
 (define test-boyer
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(462 (k$744) ((k$744 #t)) #t)))
 (define hide
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(461
       (k$730 r$348 x$347)
       ((call-with-values
          k$730
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(460
              (k$735)
              ((vector
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(457
                     (r$736)
                     ((#((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(456
                           (k$738)
                           ((if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1)))
                           #t))
                       #((record-marker)
                         #((record-marker) #f (id args body has-cont))
                         #(454 (r$737) ((values k$735 r$736 r$737)) #f))))
                     #f))
                 values
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(459 (k$741 x$351) ((k$741 x$351)) #t))))
              #t))
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(452
              (k$733 v$350 i$349)
              (((vector-ref v$350 i$349) k$733 x$347))
              #t))))
       #t)))
 (define run-r7rs-benchmark
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(449
       (k$678 name$329 count$328 thunk$327 ok?$326)
       ((#((record-marker)
           #((record-marker) #f (id args body has-cont))
           #(448
             (rounded$331)
             ((#((record-marker)
                 #((record-marker) #f (id args body has-cont))
                 #(442
                   (r$679)
                   ((display
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(441
                          (r$680)
                          ((display
                             #((record-marker)
                               #((record-marker) #f (id args body has-cont))
                               #(440
                                 (r$681)
                                 ((newline
                                    #((record-marker)
                                      #((record-marker)
                                        #f
                                        (id args body has-cont))
                                      #(439
                                        (r$682)
                                        ((current-output-port
                                           #((record-marker)
                                             #((record-marker)
                                               #f
                                               (id args body has-cont))
                                             #(438
                                               (r$723)
                                               ((flush-output-port
                                                  #((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(437
                                                      (r$683)
                                                      ((jiffies-per-second
                                                         #((record-marker)
                                                           #((record-marker)
                                                             #f
                                                             (id args
                                                                 body
                                                                 has-cont))
                                                           #(435
                                                             (j/s$333)
                                                             ((current-second
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(433
                                                                    (t0$334)
                                                                    ((current-jiffy
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(431
                                                                           (j0$335)
                                                                           ((#((record-marker)
                                                                               #((record-marker)
                                                                                 #f
                                                                                 (id args
                                                                                     body
                                                                                     has-cont))
                                                                               #(428
                                                                                 (loop$338)
                                                                                 ((#((record-marker)
                                                                                     #((record-marker)
                                                                                       #f
                                                                                       (id args
                                                                                           body
                                                                                           has-cont))
                                                                                     #(383
                                                                                       (r$687)
                                                                                       ((loop$338
                                                                                          k$678
                                                                                          0
                                                                                          #f))
                                                                                       #f))
                                                                                   (set! loop$338
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(427
                                                                                         (k$689 i$340
                                                                                                result$339)
                                                                                         ((if (Cyc-fast-lt
                                                                                                i$340
                                                                                                count$328)
                                                                                            (thunk$327
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(385
                                                                                                  (r$692)
                                                                                                  ((loop$338
                                                                                                     k$689
                                                                                                     (Cyc-fast-plus
                                                                                                       i$340
                                                                                                       1)
                                                                                                     r$692))
                                                                                                  #f)))
                                                                                            (ok?$326
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(425
                                                                                                  (r$693)
                                                                                                  ((if r$693
                                                                                                     (current-jiffy
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(416
                                                                                                           (j1$341)
                                                                                                           ((current-second
                                                                                                              #((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(414
                                                                                                                  (t1$342)
                                                                                                                  ((rounded$331
                                                                                                                     #((record-marker)
                                                                                                                       #((record-marker)
                                                                                                                         #f
                                                                                                                         (id args
                                                                                                                             body
                                                                                                                             has-cont))
                                                                                                                       #(406
                                                                                                                         (secs2$345)
                                                                                                                         ((display
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(404
                                                                                                                                (r$700)
                                                                                                                                ((write #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(403
                                                                                                                                            (r$701)
                                                                                                                                            ((display
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(402
                                                                                                                                                   (r$702)
                                                                                                                                                   ((write #((record-marker)
                                                                                                                                                             #((record-marker)
                                                                                                                                                               #f
                                                                                                                                                               (id args
                                                                                                                                                                   body
                                                                                                                                                                   has-cont))
                                                                                                                                                             #(401
                                                                                                                                                               (r$703)
                                                                                                                                                               ((display
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #((record-marker)
                                                                                                                                                                      #f
                                                                                                                                                                      (id args
                                                                                                                                                                          body
                                                                                                                                                                          has-cont))
                                                                                                                                                                    #(400
                                                                                                                                                                      (r$704)
                                                                                                                                                                      ((display
                                                                                                                                                                         #((record-marker)
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #f
                                                                                                                                                                             (id args
                                                                                                                                                                                 body
                                                                                                                                                                                 has-cont))
                                                                                                                                                                           #(399
                                                                                                                                                                             (r$705)
                                                                                                                                                                             ((newline
                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(398
                                                                                                                                                                                    (r$706)
                                                                                                                                                                                    ((display
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                           #f
                                                                                                                                                                                           (id args
                                                                                                                                                                                               body
                                                                                                                                                                                               has-cont))
                                                                                                                                                                                         #(397
                                                                                                                                                                                           (r$707)
                                                                                                                                                                                           ((this-scheme-implementation-name
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(396
                                                                                                                                                                                                  (r$715)
                                                                                                                                                                                                  ((display
                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                         #f
                                                                                                                                                                                                         (id args
                                                                                                                                                                                                             body
                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                       #(395
                                                                                                                                                                                                         (r$708)
                                                                                                                                                                                                         ((display
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(394
                                                                                                                                                                                                                (r$709)
                                                                                                                                                                                                                ((display
                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                           body
                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                     #(393
                                                                                                                                                                                                                       (r$710)
                                                                                                                                                                                                                       ((display
                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(392
                                                                                                                                                                                                                              (r$711)
                                                                                                                                                                                                                              ((display
                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                     #f
                                                                                                                                                                                                                                     (id args
                                                                                                                                                                                                                                         body
                                                                                                                                                                                                                                         has-cont))
                                                                                                                                                                                                                                   #(391
                                                                                                                                                                                                                                     (r$712)
                                                                                                                                                                                                                                     ((newline
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(390
                                                                                                                                                                                                                                            (r$713)
                                                                                                                                                                                                                                            ((current-output-port
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(389
                                                                                                                                                                                                                                                   (r$714)
                                                                                                                                                                                                                                                   ((flush-output-port
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                        #(388
                                                                                                                                                                                                                                                          (r$694)
                                                                                                                                                                                                                                                          ((k$689 result$339))
                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                      r$714))
                                                                                                                                                                                                                                                   #f))))
                                                                                                                                                                                                                                            #f))))
                                                                                                                                                                                                                                     #f))
                                                                                                                                                                                                                                 (inexact__inline__
                                                                                                                                                                                                                                   (Cyc-fast-div
                                                                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                                                                       j1$341
                                                                                                                                                                                                                                       j0$335)
                                                                                                                                                                                                                                     j/s$333))))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          ","))
                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                   name$329))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            ","))
                                                                                                                                                                                                         #f))
                                                                                                                                                                                                     r$715))
                                                                                                                                                                                                  #f))))
                                                                                                                                                                                           #f))
                                                                                                                                                                                       "+!CSVLINE!+"))
                                                                                                                                                                                    #f))))
                                                                                                                                                                             #f))
                                                                                                                                                                         name$329))
                                                                                                                                                                      #f))
                                                                                                                                                                  ") for "))
                                                                                                                                                               #f))
                                                                                                                                                           secs2$345))
                                                                                                                                                   #f))
                                                                                                                                               " seconds ("))
                                                                                                                                            #f))
                                                                                                                                        (inexact__inline__
                                                                                                                                          (Cyc-fast-div
                                                                                                                                            (Cyc-fast-sub
                                                                                                                                              j1$341
                                                                                                                                              j0$335)
                                                                                                                                            j/s$333))))
                                                                                                                                #f))
                                                                                                                            "Elapsed time: "))
                                                                                                                         #f))
                                                                                                                     (Cyc-fast-sub
                                                                                                                       t1$342
                                                                                                                       t0$334)))
                                                                                                                  #f))))
                                                                                                           #f)))
                                                                                                     (display
                                                                                                       #((record-marker)
                                                                                                         #((record-marker)
                                                                                                           #f
                                                                                                           (id args
                                                                                                               body
                                                                                                               has-cont))
                                                                                                         #(423
                                                                                                           (r$718)
                                                                                                           ((write #((record-marker)
                                                                                                                     #((record-marker)
                                                                                                                       #f
                                                                                                                       (id args
                                                                                                                           body
                                                                                                                           has-cont))
                                                                                                                     #(422
                                                                                                                       (r$719)
                                                                                                                       ((newline
                                                                                                                          #((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(421
                                                                                                                              (r$720)
                                                                                                                              ((current-output-port
                                                                                                                                 #((record-marker)
                                                                                                                                   #((record-marker)
                                                                                                                                     #f
                                                                                                                                     (id args
                                                                                                                                         body
                                                                                                                                         has-cont))
                                                                                                                                   #(420
                                                                                                                                     (r$722)
                                                                                                                                     ((flush-output-port
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(419
                                                                                                                                            (r$721)
                                                                                                                                            ((k$689 result$339))
                                                                                                                                            #f))
                                                                                                                                        r$722))
                                                                                                                                     #f))))
                                                                                                                              #f))))
                                                                                                                       #f))
                                                                                                                   result$339))
                                                                                                           #f))
                                                                                                       "ERROR: returned incorrect result: ")))
                                                                                                  #f))
                                                                                              result$339)))
                                                                                         #t)))))
                                                                                 #f))
                                                                             #f))
                                                                           #f))))
                                                                    #f))))
                                                             #f))))
                                                      #f))
                                                  r$723))
                                               #f))))
                                        #f))))
                                 #f))
                             name$329))
                          #f))
                      "Running "))
                   #f))
               (set! rounded$331
                 #((record-marker)
                   #((record-marker) #f (id args body has-cont))
                   #(446
                     (k$725 x$346)
                     ((k$725 (Cyc-fast-div
                               (round__inline__ (Cyc-fast-mul 1000 x$346))
                               1000)))
                     #t)))))
             #f))
         #f))
       #t)))
 (define this-scheme-implementation-name
   #((record-marker)
     #((record-marker) #f (id args body has-cont))
     #(382
       (k$674)
       ((Cyc-version
          #((record-marker)
            #((record-marker) #f (id args body has-cont))
            #(381
              (r$675)
              ((k$674 (string-append "cyclone-" r$675)))
              #f))))
       #t)))
 (#((record-marker)
    #((record-marker) #f (id args body has-cont))
    #(376
      (r$360)
      ((#((record-marker)
          #((record-marker) #f (id args body has-cont))
          #(374
            (r$361)
            ((#((record-marker)
                #((record-marker) #f (id args body has-cont))
                #(372
                  (setup$254
                    add-lemma-lst$253
                    add-lemma$252
                    translate-term$251
                    translate-args$250
                    untranslate-term$249
                    put$248
                    get$247
                    symbol->symbol-record$246
                    *symbol-records-alist*$245
                    make-symbol-record$244
                    put-lemmas!$243
                    get-lemmas$242
                    get-name$241
                    symbol-record-equal?$240
                    test$239
                    translate-alist$238
                    apply-subst$237
                    apply-subst-lst$236
                    tautp$235
                    tautologyp$234
                    if-constructor$233
                    rewrite-count$232
                    scons$231
                    rewrite$230
                    rewrite-args$229
                    rewrite-with-lemmas$228
                    unify-subst$227
                    one-way-unify$226
                    one-way-unify1$225
                    one-way-unify1-lst$224
                    falsep$223
                    truep$222
                    false-term$221
                    true-term$220
                    trans-of-implies$219
                    trans-of-implies1$218
                    term-equal?$217
                    term-args-equal?$216
                    term-member?$215)
                  ((#((record-marker)
                      #((record-marker) #f (id args body has-cont))
                      #(368
                        (r$363)
                        ((#((record-marker)
                            #((record-marker) #f (id args body has-cont))
                            #(359
                              (r$364)
                              ((#((record-marker)
                                  #((record-marker) #f (id args body has-cont))
                                  #(338
                                    (r$365)
                                    ((#((record-marker)
                                        #((record-marker)
                                          #f
                                          (id args body has-cont))
                                        #(328
                                          (r$366)
                                          ((#((record-marker)
                                              #((record-marker)
                                                #f
                                                (id args body has-cont))
                                              #(318
                                                (r$367)
                                                ((#((record-marker)
                                                    #((record-marker)
                                                      #f
                                                      (id args body has-cont))
                                                    #(308
                                                      (r$368)
                                                      ((#((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(304
                                                            (r$369)
                                                            ((#((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(300
                                                                  (r$370)
                                                                  ((#((record-marker)
                                                                      #((record-marker)
                                                                        #f
                                                                        (id args
                                                                            body
                                                                            has-cont))
                                                                      #(290
                                                                        (r$371)
                                                                        ((#((record-marker)
                                                                            #((record-marker)
                                                                              #f
                                                                              (id args
                                                                                  body
                                                                                  has-cont))
                                                                            #(288
                                                                              (r$372)
                                                                              ((#((record-marker)
                                                                                  #((record-marker)
                                                                                    #f
                                                                                    (id args
                                                                                        body
                                                                                        has-cont))
                                                                                  #(284
                                                                                    (r$373)
                                                                                    ((#((record-marker)
                                                                                        #((record-marker)
                                                                                          #f
                                                                                          (id args
                                                                                              body
                                                                                              has-cont))
                                                                                        #(281
                                                                                          (r$374)
                                                                                          ((#((record-marker)
                                                                                              #((record-marker)
                                                                                                #f
                                                                                                (id args
                                                                                                    body
                                                                                                    has-cont))
                                                                                              #(278
                                                                                                (r$375)
                                                                                                ((#((record-marker)
                                                                                                    #((record-marker)
                                                                                                      #f
                                                                                                      (id args
                                                                                                          body
                                                                                                          has-cont))
                                                                                                    #(275
                                                                                                      (r$376)
                                                                                                      ((#((record-marker)
                                                                                                          #((record-marker)
                                                                                                            #f
                                                                                                            (id args
                                                                                                                body
                                                                                                                has-cont))
                                                                                                          #(272
                                                                                                            (r$377)
                                                                                                            ((#((record-marker)
                                                                                                                #((record-marker)
                                                                                                                  #f
                                                                                                                  (id args
                                                                                                                      body
                                                                                                                      has-cont))
                                                                                                                #(254
                                                                                                                  (r$378)
                                                                                                                  ((#((record-marker)
                                                                                                                      #((record-marker)
                                                                                                                        #f
                                                                                                                        (id args
                                                                                                                            body
                                                                                                                            has-cont))
                                                                                                                      #(242
                                                                                                                        (r$379)
                                                                                                                        ((#((record-marker)
                                                                                                                            #((record-marker)
                                                                                                                              #f
                                                                                                                              (id args
                                                                                                                                  body
                                                                                                                                  has-cont))
                                                                                                                            #(231
                                                                                                                              (r$380)
                                                                                                                              ((#((record-marker)
                                                                                                                                  #((record-marker)
                                                                                                                                    #f
                                                                                                                                    (id args
                                                                                                                                        body
                                                                                                                                        has-cont))
                                                                                                                                  #(221
                                                                                                                                    (r$381)
                                                                                                                                    ((#((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(215
                                                                                                                                          (r$382)
                                                                                                                                          ((#((record-marker)
                                                                                                                                              #((record-marker)
                                                                                                                                                #f
                                                                                                                                                (id args
                                                                                                                                                    body
                                                                                                                                                    has-cont))
                                                                                                                                              #(186
                                                                                                                                                (r$383)
                                                                                                                                                ((#((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(184
                                                                                                                                                      (r$384)
                                                                                                                                                      ((#((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(183
                                                                                                                                                            (r$385)
                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(175
                                                                                                                                                                  (r$386)
                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #f
                                                                                                                                                                        (id args
                                                                                                                                                                            body
                                                                                                                                                                            has-cont))
                                                                                                                                                                      #(161
                                                                                                                                                                        (r$387)
                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #f
                                                                                                                                                                              (id args
                                                                                                                                                                                  body
                                                                                                                                                                                  has-cont))
                                                                                                                                                                            #(151
                                                                                                                                                                              (r$388)
                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #f
                                                                                                                                                                                    (id args
                                                                                                                                                                                        body
                                                                                                                                                                                        has-cont))
                                                                                                                                                                                  #(137
                                                                                                                                                                                    (r$389)
                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                          #f
                                                                                                                                                                                          (id args
                                                                                                                                                                                              body
                                                                                                                                                                                              has-cont))
                                                                                                                                                                                        #(135
                                                                                                                                                                                          (r$390)
                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(130
                                                                                                                                                                                                (r$391)
                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(106
                                                                                                                                                                                                      (r$392)
                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #f
                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                body
                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                          #(92
                                                                                                                                                                                                            (r$393)
                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                      body
                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                #(87
                                                                                                                                                                                                                  (r$394)
                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                            body
                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                      #(82
                                                                                                                                                                                                                        (r$395)
                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                            #(80
                                                                                                                                                                                                                              (r$396)
                                                                                                                                                                                                                              ((#((record-marker)
                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                  #(78
                                                                                                                                                                                                                                    (r$397)
                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                        #(70
                                                                                                                                                                                                                                          (r$398)
                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                              #(57
                                                                                                                                                                                                                                                (r$399)
                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                    #(45
                                                                                                                                                                                                                                                      (r$400)
                                                                                                                                                                                                                                                      ((#((record-marker)
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                                          #(31
                                                                                                                                                                                                                                                            (r$401)
                                                                                                                                                                                                                                                            ((#((record-marker)
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                #(21
                                                                                                                                                                                                                                                                  (r$402)
                                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                                      #(7
                                                                                                                                                                                                                                                                        (r$403)
                                                                                                                                                                                                                                                                        ((#((record-marker)
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                                            #(1
                                                                                                                                                                                                                                                                              (r$362)
                                                                                                                                                                                                                                                                              ((main %halt))
                                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                                          (set! test-boyer
                                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                              #(6
                                                                                                                                                                                                                                                                                (k$405 alist$257
                                                                                                                                                                                                                                                                                       term$256
                                                                                                                                                                                                                                                                                       n$255)
                                                                                                                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                                                      #f
                                                                                                                                                                                                                                                                                      (id args
                                                                                                                                                                                                                                                                                          body
                                                                                                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                                                                                                    #(5
                                                                                                                                                                                                                                                                                      (r$406)
                                                                                                                                                                                                                                                                                      ((test$239
                                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(3
                                                                                                                                                                                                                                                                                             (answer$258)
                                                                                                                                                                                                                                                                                             ((if answer$258
                                                                                                                                                                                                                                                                                                (k$405 rewrite-count$232)
                                                                                                                                                                                                                                                                                                (k$405 #f)))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         alist$257
                                                                                                                                                                                                                                                                                         term$256
                                                                                                                                                                                                                                                                                         n$255))
                                                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                                                  (set! rewrite-count$232
                                                                                                                                                                                                                                                                                    0)))
                                                                                                                                                                                                                                                                                #t)))))
                                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                                    (set! setup-boyer
                                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                        #(20
                                                                                                                                                                                                                                                                          (k$409)
                                                                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                                              #(18
                                                                                                                                                                                                                                                                                (r$410)
                                                                                                                                                                                                                                                                                ((symbol->symbol-record$246
                                                                                                                                                                                                                                                                                   #((record-marker)
                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                     #(16
                                                                                                                                                                                                                                                                                       (r$418)
                                                                                                                                                                                                                                                                                       ((#((record-marker)
                                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                                           #(15
                                                                                                                                                                                                                                                                                             (r$411)
                                                                                                                                                                                                                                                                                             ((translate-term$251
                                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                                                  #(13
                                                                                                                                                                                                                                                                                                    (r$416)
                                                                                                                                                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                                                                                                              body
                                                                                                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                                                                                                        #(12
                                                                                                                                                                                                                                                                                                          (r$412)
                                                                                                                                                                                                                                                                                                          ((translate-term$251
                                                                                                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                                                                                                               #(10
                                                                                                                                                                                                                                                                                                                 (r$414)
                                                                                                                                                                                                                                                                                                                 ((#((record-marker)
                                                                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                                                                       #f
                                                                                                                                                                                                                                                                                                                       (id args
                                                                                                                                                                                                                                                                                                                           body
                                                                                                                                                                                                                                                                                                                           has-cont))
                                                                                                                                                                                                                                                                                                                     #(9
                                                                                                                                                                                                                                                                                                                       (r$413)
                                                                                                                                                                                                                                                                                                                       ((add-lemma-lst$253
                                                                                                                                                                                                                                                                                                                          k$409
                                                                                                                                                                                                                                                                                                                          '((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))
                                                                                                                                                                                                                                                                                                                   (set! true-term$220
                                                                                                                                                                                                                                                                                                                     r$414)))
                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                             '(t)))
                                                                                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                                                                                      (set! false-term$221
                                                                                                                                                                                                                                                                                                        r$416)))
                                                                                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                                                                                '(f)))
                                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                                         (set! if-constructor$233
                                                                                                                                                                                                                                                                                           r$418)))
                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                   'if))
                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                            (set! *symbol-records-alist*$245
                                                                                                                                                                                                                                                                              '())))
                                                                                                                                                                                                                                                                          #t)))))
                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                              (set! term-member?$215
                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                                                                        body
                                                                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                                                                  #(30
                                                                                                                                                                                                                                                                    (k$422 x$260
                                                                                                                                                                                                                                                                           lst$259)
                                                                                                                                                                                                                                                                    ((if (null? lst$259)
                                                                                                                                                                                                                                                                       (k$422 #f)
                                                                                                                                                                                                                                                                       (term-equal?$217
                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                                                                                                             #f
                                                                                                                                                                                                                                                                             (id args
                                                                                                                                                                                                                                                                                 body
                                                                                                                                                                                                                                                                                 has-cont))
                                                                                                                                                                                                                                                                           #(27
                                                                                                                                                                                                                                                                             (r$424)
                                                                                                                                                                                                                                                                             ((if r$424
                                                                                                                                                                                                                                                                                (k$422 #t)
                                                                                                                                                                                                                                                                                (term-member?$215
                                                                                                                                                                                                                                                                                  k$422
                                                                                                                                                                                                                                                                                  x$260
                                                                                                                                                                                                                                                                                  (cdr lst$259))))
                                                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                                                         x$260
                                                                                                                                                                                                                                                                         (car lst$259))))
                                                                                                                                                                                                                                                                    #t)))))
                                                                                                                                                                                                                                                            #f))
                                                                                                                                                                                                                                                        (set! term-args-equal?$216
                                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(44
                                                                                                                                                                                                                                                              (k$428 lst1$262
                                                                                                                                                                                                                                                                     lst2$261)
                                                                                                                                                                                                                                                              ((if (null? lst1$262)
                                                                                                                                                                                                                                                                 (k$428 (null? lst2$261))
                                                                                                                                                                                                                                                                 (if (null? lst2$261)
                                                                                                                                                                                                                                                                   (k$428 #f)
                                                                                                                                                                                                                                                                   (term-equal?$217
                                                                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                       #(39
                                                                                                                                                                                                                                                                         (r$431)
                                                                                                                                                                                                                                                                         ((if r$431
                                                                                                                                                                                                                                                                            (term-args-equal?$216
                                                                                                                                                                                                                                                                              k$428
                                                                                                                                                                                                                                                                              (cdr lst1$262)
                                                                                                                                                                                                                                                                              (cdr lst2$261))
                                                                                                                                                                                                                                                                            (k$428 #f)))
                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                     (car lst1$262)
                                                                                                                                                                                                                                                                     (car lst2$261)))))
                                                                                                                                                                                                                                                              #t)))))
                                                                                                                                                                                                                                                      #f))
                                                                                                                                                                                                                                                  (set! term-equal?$217
                                                                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(56
                                                                                                                                                                                                                                                        (k$437 x$264
                                                                                                                                                                                                                                                               y$263)
                                                                                                                                                                                                                                                        ((if (pair? x$264)
                                                                                                                                                                                                                                                           (if (pair? y$263)
                                                                                                                                                                                                                                                             (if (eq? (car x$264)
                                                                                                                                                                                                                                                                      (car y$263))
                                                                                                                                                                                                                                                               (term-args-equal?$216
                                                                                                                                                                                                                                                                 k$437
                                                                                                                                                                                                                                                                 (cdr x$264)
                                                                                                                                                                                                                                                                 (cdr y$263))
                                                                                                                                                                                                                                                               (k$437 #f))
                                                                                                                                                                                                                                                             (k$437 #f))
                                                                                                                                                                                                                                                           (k$437 (equal?
                                                                                                                                                                                                                                                                    x$264
                                                                                                                                                                                                                                                                    y$263))))
                                                                                                                                                                                                                                                        #t)))))
                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                            (set! trans-of-implies1$218
                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                #(69
                                                                                                                                                                                                                                                  (k$446 n$265)
                                                                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                                                        #f
                                                                                                                                                                                                                                                        (id args
                                                                                                                                                                                                                                                            body
                                                                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                                                                      #(68
                                                                                                                                                                                                                                                        (r$447)
                                                                                                                                                                                                                                                        ((if r$447
                                                                                                                                                                                                                                                           (list k$446
                                                                                                                                                                                                                                                                 'implies
                                                                                                                                                                                                                                                                 0
                                                                                                                                                                                                                                                                 1)
                                                                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                                                              #(64
                                                                                                                                                                                                                                                                (r$454)
                                                                                                                                                                                                                                                                ((list #((record-marker)
                                                                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                                                                               body
                                                                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                                                                         #(63
                                                                                                                                                                                                                                                                           (r$450)
                                                                                                                                                                                                                                                                           ((trans-of-implies1$218
                                                                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                                                                                  #f
                                                                                                                                                                                                                                                                                  (id args
                                                                                                                                                                                                                                                                                      body
                                                                                                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                                                                                                #(61
                                                                                                                                                                                                                                                                                  (r$451)
                                                                                                                                                                                                                                                                                  ((list k$446
                                                                                                                                                                                                                                                                                         'and
                                                                                                                                                                                                                                                                                         r$450
                                                                                                                                                                                                                                                                                         r$451))
                                                                                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                                                                                              (Cyc-fast-sub
                                                                                                                                                                                                                                                                                n$265
                                                                                                                                                                                                                                                                                1)))
                                                                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                                                                       'implies
                                                                                                                                                                                                                                                                       r$454
                                                                                                                                                                                                                                                                       n$265))
                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                            (Cyc-fast-sub
                                                                                                                                                                                                                                                              n$265
                                                                                                                                                                                                                                                              1))))
                                                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                                                    (equal?
                                                                                                                                                                                                                                                      n$265
                                                                                                                                                                                                                                                      1)))
                                                                                                                                                                                                                                                  #t)))))
                                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                                      (set! trans-of-implies$219
                                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                                                            #f
                                                                                                                                                                                                                                            (id args
                                                                                                                                                                                                                                                body
                                                                                                                                                                                                                                                has-cont))
                                                                                                                                                                                                                                          #(77
                                                                                                                                                                                                                                            (k$456 n$266)
                                                                                                                                                                                                                                            ((trans-of-implies1$218
                                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                                 #((record-marker)
                                                                                                                                                                                                                                                   #f
                                                                                                                                                                                                                                                   (id args
                                                                                                                                                                                                                                                       body
                                                                                                                                                                                                                                                       has-cont))
                                                                                                                                                                                                                                                 #(75
                                                                                                                                                                                                                                                   (r$459)
                                                                                                                                                                                                                                                   ((list #((record-marker)
                                                                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                                                                              #f
                                                                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                                                                  body
                                                                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                                                                            #(73
                                                                                                                                                                                                                                                              (r$460)
                                                                                                                                                                                                                                                              ((list #((record-marker)
                                                                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                                                                             body
                                                                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                                                                       #(72
                                                                                                                                                                                                                                                                         (r$457)
                                                                                                                                                                                                                                                                         ((translate-term$251
                                                                                                                                                                                                                                                                            k$456
                                                                                                                                                                                                                                                                            r$457))
                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                     'implies
                                                                                                                                                                                                                                                                     r$459
                                                                                                                                                                                                                                                                     r$460))
                                                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                                                          'implies
                                                                                                                                                                                                                                                          0
                                                                                                                                                                                                                                                          n$266))
                                                                                                                                                                                                                                                   #f))
                                                                                                                                                                                                                                               n$266))
                                                                                                                                                                                                                                            #t)))))
                                                                                                                                                                                                                                    #f))
                                                                                                                                                                                                                                (set! true-term$220
                                                                                                                                                                                                                                  '*)))
                                                                                                                                                                                                                              #f))
                                                                                                                                                                                                                          (set! false-term$221
                                                                                                                                                                                                                            '*)))
                                                                                                                                                                                                                        #f))
                                                                                                                                                                                                                    (set! truep$222
                                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                              body
                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                        #(86
                                                                                                                                                                                                                          (k$465 x$268
                                                                                                                                                                                                                                 lst$267)
                                                                                                                                                                                                                          ((term-equal?$217
                                                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                                                 #f
                                                                                                                                                                                                                                 (id args
                                                                                                                                                                                                                                     body
                                                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                                                               #(84
                                                                                                                                                                                                                                 (tmp$120$269)
                                                                                                                                                                                                                                 ((if tmp$120$269
                                                                                                                                                                                                                                    (k$465 tmp$120$269)
                                                                                                                                                                                                                                    (term-member?$215
                                                                                                                                                                                                                                      k$465
                                                                                                                                                                                                                                      x$268
                                                                                                                                                                                                                                      lst$267)))
                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                             x$268
                                                                                                                                                                                                                             true-term$220))
                                                                                                                                                                                                                          #t)))))
                                                                                                                                                                                                                  #f))
                                                                                                                                                                                                              (set! falsep$223
                                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                                    #f
                                                                                                                                                                                                                    (id args
                                                                                                                                                                                                                        body
                                                                                                                                                                                                                        has-cont))
                                                                                                                                                                                                                  #(91
                                                                                                                                                                                                                    (k$468 x$271
                                                                                                                                                                                                                           lst$270)
                                                                                                                                                                                                                    ((term-equal?$217
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #((record-marker)
                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                           (id args
                                                                                                                                                                                                                               body
                                                                                                                                                                                                                               has-cont))
                                                                                                                                                                                                                         #(89
                                                                                                                                                                                                                           (tmp$117$272)
                                                                                                                                                                                                                           ((if tmp$117$272
                                                                                                                                                                                                                              (k$468 tmp$117$272)
                                                                                                                                                                                                                              (term-member?$215
                                                                                                                                                                                                                                k$468
                                                                                                                                                                                                                                x$271
                                                                                                                                                                                                                                lst$270)))
                                                                                                                                                                                                                           #f))
                                                                                                                                                                                                                       x$271
                                                                                                                                                                                                                       false-term$221))
                                                                                                                                                                                                                    #t)))))
                                                                                                                                                                                                            #f))
                                                                                                                                                                                                        (set! one-way-unify1-lst$224
                                                                                                                                                                                                          #((record-marker)
                                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                                              #f
                                                                                                                                                                                                              (id args
                                                                                                                                                                                                                  body
                                                                                                                                                                                                                  has-cont))
                                                                                                                                                                                                            #(105
                                                                                                                                                                                                              (k$471 lst1$274
                                                                                                                                                                                                                     lst2$273)
                                                                                                                                                                                                              ((if (null? lst1$274)
                                                                                                                                                                                                                 (k$471 (null? lst2$273))
                                                                                                                                                                                                                 (if (null? lst2$273)
                                                                                                                                                                                                                   (k$471 #f)
                                                                                                                                                                                                                   (one-way-unify1$225
                                                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                                                         #f
                                                                                                                                                                                                                         (id args
                                                                                                                                                                                                                             body
                                                                                                                                                                                                                             has-cont))
                                                                                                                                                                                                                       #(100
                                                                                                                                                                                                                         (r$474)
                                                                                                                                                                                                                         ((if r$474
                                                                                                                                                                                                                            (one-way-unify1-lst$224
                                                                                                                                                                                                                              k$471
                                                                                                                                                                                                                              (cdr lst1$274)
                                                                                                                                                                                                                              (cdr lst2$273))
                                                                                                                                                                                                                            (k$471 #f)))
                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                     (car lst1$274)
                                                                                                                                                                                                                     (car lst2$273)))))
                                                                                                                                                                                                              #t)))))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  (set! one-way-unify1$225
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(129
                                                                                                                                                                                                        (k$480 term1$276
                                                                                                                                                                                                               term2$275)
                                                                                                                                                                                                        ((if (pair? term2$275)
                                                                                                                                                                                                           (if (pair? term1$276)
                                                                                                                                                                                                             (if (eq? (car term1$276)
                                                                                                                                                                                                                      (car term2$275))
                                                                                                                                                                                                               (one-way-unify1-lst$224
                                                                                                                                                                                                                 k$480
                                                                                                                                                                                                                 (cdr term1$276)
                                                                                                                                                                                                                 (cdr term2$275))
                                                                                                                                                                                                               (k$480 #f))
                                                                                                                                                                                                             (k$480 #f))
                                                                                                                                                                                                           (#((record-marker)
                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                #f
                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                    body
                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                              #(125
                                                                                                                                                                                                                (temp-temp$277)
                                                                                                                                                                                                                ((if temp-temp$277
                                                                                                                                                                                                                   (term-equal?$217
                                                                                                                                                                                                                     k$480
                                                                                                                                                                                                                     term1$276
                                                                                                                                                                                                                     (cdr temp-temp$277))
                                                                                                                                                                                                                   (if (number?
                                                                                                                                                                                                                         term2$275)
                                                                                                                                                                                                                     (k$480 (equal?
                                                                                                                                                                                                                              term1$276
                                                                                                                                                                                                                              term2$275))
                                                                                                                                                                                                                     (#((record-marker)
                                                                                                                                                                                                                        #((record-marker)
                                                                                                                                                                                                                          #f
                                                                                                                                                                                                                          (id args
                                                                                                                                                                                                                              body
                                                                                                                                                                                                                              has-cont))
                                                                                                                                                                                                                        #(121
                                                                                                                                                                                                                          (r$492)
                                                                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                                                #f
                                                                                                                                                                                                                                (id args
                                                                                                                                                                                                                                    body
                                                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                                                              #(120
                                                                                                                                                                                                                                (r$491)
                                                                                                                                                                                                                                ((k$480 #t))
                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                            (set! unify-subst$227
                                                                                                                                                                                                                              r$492)))
                                                                                                                                                                                                                          #f))
                                                                                                                                                                                                                      (cons (cons term2$275
                                                                                                                                                                                                                                  term1$276)
                                                                                                                                                                                                                            unify-subst$227)))))
                                                                                                                                                                                                                #f))
                                                                                                                                                                                                            (assq term2$275
                                                                                                                                                                                                                  unify-subst$227))))
                                                                                                                                                                                                        #t)))))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            (set! one-way-unify$226
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #((record-marker)
                                                                                                                                                                                                  #f
                                                                                                                                                                                                  (id args
                                                                                                                                                                                                      body
                                                                                                                                                                                                      has-cont))
                                                                                                                                                                                                #(134
                                                                                                                                                                                                  (k$495 term1$279
                                                                                                                                                                                                         term2$278)
                                                                                                                                                                                                  ((#((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(132
                                                                                                                                                                                                        (r$496)
                                                                                                                                                                                                        ((one-way-unify1$225
                                                                                                                                                                                                           k$495
                                                                                                                                                                                                           term1$279
                                                                                                                                                                                                           term2$278))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    (set! unify-subst$227
                                                                                                                                                                                                      '())))
                                                                                                                                                                                                  #t)))))
                                                                                                                                                                                          #f))
                                                                                                                                                                                      (set! unify-subst$227
                                                                                                                                                                                        '*)))
                                                                                                                                                                                    #f))
                                                                                                                                                                                (set! rewrite-with-lemmas$228
                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(150
                                                                                                                                                                                      (k$500 term$281
                                                                                                                                                                                             lst$280)
                                                                                                                                                                                      ((if (null? lst$280)
                                                                                                                                                                                         (k$500 term$281)
                                                                                                                                                                                         (one-way-unify$226
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(146
                                                                                                                                                                                               (r$502)
                                                                                                                                                                                               ((if r$502
                                                                                                                                                                                                  (apply-subst$237
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                                        #f
                                                                                                                                                                                                        (id args
                                                                                                                                                                                                            body
                                                                                                                                                                                                            has-cont))
                                                                                                                                                                                                      #(140
                                                                                                                                                                                                        (r$503)
                                                                                                                                                                                                        ((rewrite$230
                                                                                                                                                                                                           k$500
                                                                                                                                                                                                           r$503))
                                                                                                                                                                                                        #f))
                                                                                                                                                                                                    unify-subst$227
                                                                                                                                                                                                    (caddr (car lst$280)))
                                                                                                                                                                                                  (rewrite-with-lemmas$228
                                                                                                                                                                                                    k$500
                                                                                                                                                                                                    term$281
                                                                                                                                                                                                    (cdr lst$280))))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           term$281
                                                                                                                                                                                           (cadr (car lst$280)))))
                                                                                                                                                                                      #t)))))
                                                                                                                                                                              #f))
                                                                                                                                                                          (set! rewrite-args$229
                                                                                                                                                                            #((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(160
                                                                                                                                                                                (k$510 lst$282)
                                                                                                                                                                                ((if (null? lst$282)
                                                                                                                                                                                   (k$510 '())
                                                                                                                                                                                   (rewrite$230
                                                                                                                                                                                     #((record-marker)
                                                                                                                                                                                       #((record-marker)
                                                                                                                                                                                         #f
                                                                                                                                                                                         (id args
                                                                                                                                                                                             body
                                                                                                                                                                                             has-cont))
                                                                                                                                                                                       #(156
                                                                                                                                                                                         (r$512)
                                                                                                                                                                                         ((rewrite-args$229
                                                                                                                                                                                            #((record-marker)
                                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                                #f
                                                                                                                                                                                                (id args
                                                                                                                                                                                                    body
                                                                                                                                                                                                    has-cont))
                                                                                                                                                                                              #(154
                                                                                                                                                                                                (r$513)
                                                                                                                                                                                                ((scons$231
                                                                                                                                                                                                   k$510
                                                                                                                                                                                                   r$512
                                                                                                                                                                                                   r$513
                                                                                                                                                                                                   lst$282))
                                                                                                                                                                                                #f))
                                                                                                                                                                                            (cdr lst$282)))
                                                                                                                                                                                         #f))
                                                                                                                                                                                     (car lst$282))))
                                                                                                                                                                                #t)))))
                                                                                                                                                                        #f))
                                                                                                                                                                    (set! rewrite$230
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(174
                                                                                                                                                                          (k$517 term$283)
                                                                                                                                                                          ((#((record-marker)
                                                                                                                                                                              #((record-marker)
                                                                                                                                                                                #f
                                                                                                                                                                                (id args
                                                                                                                                                                                    body
                                                                                                                                                                                    has-cont))
                                                                                                                                                                              #(173
                                                                                                                                                                                (r$526)
                                                                                                                                                                                ((#((record-marker)
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #f
                                                                                                                                                                                      (id args
                                                                                                                                                                                          body
                                                                                                                                                                                          has-cont))
                                                                                                                                                                                    #(172
                                                                                                                                                                                      (r$518)
                                                                                                                                                                                      ((if (pair? term$283)
                                                                                                                                                                                         (rewrite-args$229
                                                                                                                                                                                           #((record-marker)
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #f
                                                                                                                                                                                               (id args
                                                                                                                                                                                                   body
                                                                                                                                                                                                   has-cont))
                                                                                                                                                                                             #(166
                                                                                                                                                                                               (r$524)
                                                                                                                                                                                               ((scons$231
                                                                                                                                                                                                  #((record-marker)
                                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                                      #f
                                                                                                                                                                                                      (id args
                                                                                                                                                                                                          body
                                                                                                                                                                                                          has-cont))
                                                                                                                                                                                                    #(165
                                                                                                                                                                                                      (r$520)
                                                                                                                                                                                                      ((rewrite-with-lemmas$228
                                                                                                                                                                                                         k$517
                                                                                                                                                                                                         r$520
                                                                                                                                                                                                         (vector-ref
                                                                                                                                                                                                           (car term$283)
                                                                                                                                                                                                           1)))
                                                                                                                                                                                                      #f))
                                                                                                                                                                                                  (car term$283)
                                                                                                                                                                                                  r$524
                                                                                                                                                                                                  term$283))
                                                                                                                                                                                               #f))
                                                                                                                                                                                           (cdr term$283))
                                                                                                                                                                                         (k$517 term$283)))
                                                                                                                                                                                      #f))
                                                                                                                                                                                  (set! rewrite-count$232
                                                                                                                                                                                    r$526)))
                                                                                                                                                                                #f))
                                                                                                                                                                            (Cyc-fast-plus
                                                                                                                                                                              rewrite-count$232
                                                                                                                                                                              1)))
                                                                                                                                                                          #t)))))
                                                                                                                                                                  #f))
                                                                                                                                                              (set! scons$231
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #((record-marker)
                                                                                                                                                                    #f
                                                                                                                                                                    (id args
                                                                                                                                                                        body
                                                                                                                                                                        has-cont))
                                                                                                                                                                  #(182
                                                                                                                                                                    (k$528 x$286
                                                                                                                                                                           y$285
                                                                                                                                                                           original$284)
                                                                                                                                                                    ((#((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(181
                                                                                                                                                                          (k$530)
                                                                                                                                                                          ((if (eq? x$286
                                                                                                                                                                                    (car original$284))
                                                                                                                                                                             (k$530 (eq? y$285
                                                                                                                                                                                         (cdr original$284)))
                                                                                                                                                                             (k$530 #f)))
                                                                                                                                                                          #t))
                                                                                                                                                                      #((record-marker)
                                                                                                                                                                        #((record-marker)
                                                                                                                                                                          #f
                                                                                                                                                                          (id args
                                                                                                                                                                              body
                                                                                                                                                                              has-cont))
                                                                                                                                                                        #(177
                                                                                                                                                                          (r$529)
                                                                                                                                                                          ((if r$529
                                                                                                                                                                             (k$528 original$284)
                                                                                                                                                                             (k$528 (cons x$286
                                                                                                                                                                                          y$285))))
                                                                                                                                                                          #f))))
                                                                                                                                                                    #t)))))
                                                                                                                                                            #f))
                                                                                                                                                        (set! rewrite-count$232
                                                                                                                                                          0)))
                                                                                                                                                      #f))
                                                                                                                                                  (set! if-constructor$233
                                                                                                                                                    '*)))
                                                                                                                                                #f))
                                                                                                                                            (set! tautologyp$234
                                                                                                                                              #((record-marker)
                                                                                                                                                #((record-marker)
                                                                                                                                                  #f
                                                                                                                                                  (id args
                                                                                                                                                      body
                                                                                                                                                      has-cont))
                                                                                                                                                #(214
                                                                                                                                                  (k$536 x$289
                                                                                                                                                         true-lst$288
                                                                                                                                                         false-lst$287)
                                                                                                                                                  ((truep$222
                                                                                                                                                     #((record-marker)
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #f
                                                                                                                                                         (id args
                                                                                                                                                             body
                                                                                                                                                             has-cont))
                                                                                                                                                       #(213
                                                                                                                                                         (r$537)
                                                                                                                                                         ((if r$537
                                                                                                                                                            (k$536 #t)
                                                                                                                                                            (falsep$223
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(212
                                                                                                                                                                  (r$538)
                                                                                                                                                                  ((if r$538
                                                                                                                                                                     (k$536 #f)
                                                                                                                                                                     (if (pair? x$289)
                                                                                                                                                                       (if (eq? (car x$289)
                                                                                                                                                                                if-constructor$233)
                                                                                                                                                                         (truep$222
                                                                                                                                                                           #((record-marker)
                                                                                                                                                                             #((record-marker)
                                                                                                                                                                               #f
                                                                                                                                                                               (id args
                                                                                                                                                                                   body
                                                                                                                                                                                   has-cont))
                                                                                                                                                                             #(204
                                                                                                                                                                               (r$541)
                                                                                                                                                                               ((if r$541
                                                                                                                                                                                  (tautologyp$234
                                                                                                                                                                                    k$536
                                                                                                                                                                                    (caddr x$289)
                                                                                                                                                                                    true-lst$288
                                                                                                                                                                                    false-lst$287)
                                                                                                                                                                                  (falsep$223
                                                                                                                                                                                    #((record-marker)
                                                                                                                                                                                      #((record-marker)
                                                                                                                                                                                        #f
                                                                                                                                                                                        (id args
                                                                                                                                                                                            body
                                                                                                                                                                                            has-cont))
                                                                                                                                                                                      #(202
                                                                                                                                                                                        (r$543)
                                                                                                                                                                                        ((if r$543
                                                                                                                                                                                           (tautologyp$234
                                                                                                                                                                                             k$536
                                                                                                                                                                                             (cadddr
                                                                                                                                                                                               x$289)
                                                                                                                                                                                             true-lst$288
                                                                                                                                                                                             false-lst$287)
                                                                                                                                                                                           (tautologyp$234
                                                                                                                                                                                             #((record-marker)
                                                                                                                                                                                               #((record-marker)
                                                                                                                                                                                                 #f
                                                                                                                                                                                                 (id args
                                                                                                                                                                                                     body
                                                                                                                                                                                                     has-cont))
                                                                                                                                                                                               #(197
                                                                                                                                                                                                 (r$545)
                                                                                                                                                                                                 ((if r$545
                                                                                                                                                                                                    (tautologyp$234
                                                                                                                                                                                                      k$536
                                                                                                                                                                                                      (cadddr
                                                                                                                                                                                                        x$289)
                                                                                                                                                                                                      true-lst$288
                                                                                                                                                                                                      (cons (cadr x$289)
                                                                                                                                                                                                            false-lst$287))
                                                                                                                                                                                                    (k$536 #f)))
                                                                                                                                                                                                 #f))
                                                                                                                                                                                             (caddr x$289)
                                                                                                                                                                                             (cons (cadr x$289)
                                                                                                                                                                                                   true-lst$288)
                                                                                                                                                                                             false-lst$287)))
                                                                                                                                                                                        #f))
                                                                                                                                                                                    (cadr x$289)
                                                                                                                                                                                    false-lst$287)))
                                                                                                                                                                               #f))
                                                                                                                                                                           (cadr x$289)
                                                                                                                                                                           true-lst$288)
                                                                                                                                                                         (k$536 #f))
                                                                                                                                                                       (k$536 #f))))
                                                                                                                                                                  #f))
                                                                                                                                                              x$289
                                                                                                                                                              false-lst$287)))
                                                                                                                                                         #f))
                                                                                                                                                     x$289
                                                                                                                                                     true-lst$288))
                                                                                                                                                  #t)))))
                                                                                                                                          #f))
                                                                                                                                      (set! tautp$235
                                                                                                                                        #((record-marker)
                                                                                                                                          #((record-marker)
                                                                                                                                            #f
                                                                                                                                            (id args
                                                                                                                                                body
                                                                                                                                                has-cont))
                                                                                                                                          #(220
                                                                                                                                            (k$556 x$290)
                                                                                                                                            ((rewrite$230
                                                                                                                                               #((record-marker)
                                                                                                                                                 #((record-marker)
                                                                                                                                                   #f
                                                                                                                                                   (id args
                                                                                                                                                       body
                                                                                                                                                       has-cont))
                                                                                                                                                 #(219
                                                                                                                                                   (r$557)
                                                                                                                                                   ((tautologyp$234
                                                                                                                                                      k$556
                                                                                                                                                      r$557
                                                                                                                                                      '()
                                                                                                                                                      '()))
                                                                                                                                                   #f))
                                                                                                                                               x$290))
                                                                                                                                            #t)))))
                                                                                                                                    #f))
                                                                                                                                (set! apply-subst-lst$236
                                                                                                                                  #((record-marker)
                                                                                                                                    #((record-marker)
                                                                                                                                      #f
                                                                                                                                      (id args
                                                                                                                                          body
                                                                                                                                          has-cont))
                                                                                                                                    #(230
                                                                                                                                      (k$561 alist$292
                                                                                                                                             lst$291)
                                                                                                                                      ((if (null? lst$291)
                                                                                                                                         (k$561 '())
                                                                                                                                         (apply-subst$237
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(226
                                                                                                                                               (r$563)
                                                                                                                                               ((apply-subst-lst$236
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #((record-marker)
                                                                                                                                                      #f
                                                                                                                                                      (id args
                                                                                                                                                          body
                                                                                                                                                          has-cont))
                                                                                                                                                    #(224
                                                                                                                                                      (r$564)
                                                                                                                                                      ((k$561 (cons r$563
                                                                                                                                                                    r$564)))
                                                                                                                                                      #f))
                                                                                                                                                  alist$292
                                                                                                                                                  (cdr lst$291)))
                                                                                                                                               #f))
                                                                                                                                           alist$292
                                                                                                                                           (car lst$291))))
                                                                                                                                      #t)))))
                                                                                                                              #f))
                                                                                                                          (set! apply-subst$237
                                                                                                                            #((record-marker)
                                                                                                                              #((record-marker)
                                                                                                                                #f
                                                                                                                                (id args
                                                                                                                                    body
                                                                                                                                    has-cont))
                                                                                                                              #(241
                                                                                                                                (k$568 alist$294
                                                                                                                                       term$293)
                                                                                                                                ((if (pair? term$293)
                                                                                                                                   (apply-subst-lst$236
                                                                                                                                     #((record-marker)
                                                                                                                                       #((record-marker)
                                                                                                                                         #f
                                                                                                                                         (id args
                                                                                                                                             body
                                                                                                                                             has-cont))
                                                                                                                                       #(233
                                                                                                                                         (r$571)
                                                                                                                                         ((k$568 (cons (car term$293)
                                                                                                                                                       r$571)))
                                                                                                                                         #f))
                                                                                                                                     alist$294
                                                                                                                                     (cdr term$293))
                                                                                                                                   (if (assq term$293
                                                                                                                                             alist$294)
                                                                                                                                     (k$568 (cdr (assq term$293
                                                                                                                                                       alist$294)))
                                                                                                                                     (k$568 term$293))))
                                                                                                                                #t)))))
                                                                                                                        #f))
                                                                                                                    (set! translate-alist$238
                                                                                                                      #((record-marker)
                                                                                                                        #((record-marker)
                                                                                                                          #f
                                                                                                                          (id args
                                                                                                                              body
                                                                                                                              has-cont))
                                                                                                                        #(253
                                                                                                                          (k$575 alist$296)
                                                                                                                          ((if (null? alist$296)
                                                                                                                             (k$575 '())
                                                                                                                             (translate-term$251
                                                                                                                               #((record-marker)
                                                                                                                                 #((record-marker)
                                                                                                                                   #f
                                                                                                                                   (id args
                                                                                                                                       body
                                                                                                                                       has-cont))
                                                                                                                                 #(248
                                                                                                                                   (r$581)
                                                                                                                                   ((translate-alist$238
                                                                                                                                      #((record-marker)
                                                                                                                                        #((record-marker)
                                                                                                                                          #f
                                                                                                                                          (id args
                                                                                                                                              body
                                                                                                                                              has-cont))
                                                                                                                                        #(245
                                                                                                                                          (r$578)
                                                                                                                                          ((k$575 (cons (cons (caar alist$296)
                                                                                                                                                              r$581)
                                                                                                                                                        r$578)))
                                                                                                                                          #f))
                                                                                                                                      (cdr alist$296)))
                                                                                                                                   #f))
                                                                                                                               (cdar alist$296))))
                                                                                                                          #t)))))
                                                                                                                  #f))
                                                                                                              (set! test$239
                                                                                                                #((record-marker)
                                                                                                                  #((record-marker)
                                                                                                                    #f
                                                                                                                    (id args
                                                                                                                        body
                                                                                                                        has-cont))
                                                                                                                  #(271
                                                                                                                    (k$584 alist$299
                                                                                                                           term$298
                                                                                                                           n$297)
                                                                                                                    ((translate-alist$238
                                                                                                                       #((record-marker)
                                                                                                                         #((record-marker)
                                                                                                                           #f
                                                                                                                           (id args
                                                                                                                               body
                                                                                                                               has-cont))
                                                                                                                         #(270
                                                                                                                           (r$586)
                                                                                                                           ((#((record-marker)
                                                                                                                               #((record-marker)
                                                                                                                                 #f
                                                                                                                                 (id args
                                                                                                                                     body
                                                                                                                                     has-cont))
                                                                                                                               #(269
                                                                                                                                 (term$301
                                                                                                                                   n$300)
                                                                                                                                 ((#((record-marker)
                                                                                                                                     #((record-marker)
                                                                                                                                       #f
                                                                                                                                       (id args
                                                                                                                                           body
                                                                                                                                           has-cont))
                                                                                                                                     #(268
                                                                                                                                       (lp$37$302)
                                                                                                                                       ((#((record-marker)
                                                                                                                                           #((record-marker)
                                                                                                                                             #f
                                                                                                                                             (id args
                                                                                                                                                 body
                                                                                                                                                 has-cont))
                                                                                                                                           #(260
                                                                                                                                             (r$589)
                                                                                                                                             ((lp$37$302
                                                                                                                                                #((record-marker)
                                                                                                                                                  #((record-marker)
                                                                                                                                                    #f
                                                                                                                                                    (id args
                                                                                                                                                        body
                                                                                                                                                        has-cont))
                                                                                                                                                  #(259
                                                                                                                                                    (r$588)
                                                                                                                                                    ((translate-term$251
                                                                                                                                                       #((record-marker)
                                                                                                                                                         #((record-marker)
                                                                                                                                                           #f
                                                                                                                                                           (id args
                                                                                                                                                               body
                                                                                                                                                               has-cont))
                                                                                                                                                         #(258
                                                                                                                                                           (r$587)
                                                                                                                                                           ((apply-subst$237
                                                                                                                                                              #((record-marker)
                                                                                                                                                                #((record-marker)
                                                                                                                                                                  #f
                                                                                                                                                                  (id args
                                                                                                                                                                      body
                                                                                                                                                                      has-cont))
                                                                                                                                                                #(256
                                                                                                                                                                  (term$305)
                                                                                                                                                                  ((tautp$235
                                                                                                                                                                     k$584
                                                                                                                                                                     term$305))
                                                                                                                                                                  #f))
                                                                                                                                                              r$586
                                                                                                                                                              r$587))
                                                                                                                                                           #f))
                                                                                                                                                       r$588))
                                                                                                                                                    #f))
                                                                                                                                                term$301
                                                                                                                                                n$300))
                                                                                                                                             #f))
                                                                                                                                         (set! lp$37$302
                                                                                                                                           #((record-marker)
                                                                                                                                             #((record-marker)
                                                                                                                                               #f
                                                                                                                                               (id args
                                                                                                                                                   body
                                                                                                                                                   has-cont))
                                                                                                                                             #(267
                                                                                                                                               (k$591 term$304
                                                                                                                                                      n$303)
                                                                                                                                               ((if (zero?__inline__
                                                                                                                                                      n$303)
                                                                                                                                                  (k$591 term$304)
                                                                                                                                                  (list #((record-marker)
                                                                                                                                                          #((record-marker)
                                                                                                                                                            #f
                                                                                                                                                            (id args
                                                                                                                                                                body
                                                                                                                                                                has-cont))
                                                                                                                                                          #(263
                                                                                                                                                            (r$593)
                                                                                                                                                            ((lp$37$302
                                                                                                                                                               k$591
                                                                                                                                                               r$593
                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                 n$303
                                                                                                                                                                 1)))
                                                                                                                                                            #f))
                                                                                                                                                        'or
                                                                                                                                                        term$304
                                                                                                                                                        '(f))))
                                                                                                                                               #t)))))
                                                                                                                                       #f))
                                                                                                                                   #f))
                                                                                                                                 #f))
                                                                                                                             term$298
                                                                                                                             n$297))
                                                                                                                           #f))
                                                                                                                       alist$299))
                                                                                                                    #t)))))
                                                                                                            #f))
                                                                                                        (set! symbol-record-equal?$240
                                                                                                          #((record-marker)
                                                                                                            #((record-marker)
                                                                                                              #f
                                                                                                              (id args
                                                                                                                  body
                                                                                                                  has-cont))
                                                                                                            #(274
                                                                                                              (k$598 r1$307
                                                                                                                     r2$306)
                                                                                                              ((k$598 (eq? r1$307
                                                                                                                           r2$306)))
                                                                                                              #t)))))
                                                                                                      #f))
                                                                                                  (set! get-name$241
                                                                                                    #((record-marker)
                                                                                                      #((record-marker)
                                                                                                        #f
                                                                                                        (id args
                                                                                                            body
                                                                                                            has-cont))
                                                                                                      #(277
                                                                                                        (k$600 symbol-record$308)
                                                                                                        ((k$600 (vector-ref
                                                                                                                  symbol-record$308
                                                                                                                  0)))
                                                                                                        #t)))))
                                                                                                #f))
                                                                                            (set! get-lemmas$242
                                                                                              #((record-marker)
                                                                                                #((record-marker)
                                                                                                  #f
                                                                                                  (id args
                                                                                                      body
                                                                                                      has-cont))
                                                                                                #(280
                                                                                                  (k$602 symbol-record$309)
                                                                                                  ((k$602 (vector-ref
                                                                                                            symbol-record$309
                                                                                                            1)))
                                                                                                  #t)))))
                                                                                          #f))
                                                                                      (set! put-lemmas!$243
                                                                                        #((record-marker)
                                                                                          #((record-marker)
                                                                                            #f
                                                                                            (id args
                                                                                                body
                                                                                                has-cont))
                                                                                          #(283
                                                                                            (k$604 symbol-record$311
                                                                                                   lemmas$310)
                                                                                            ((k$604 (vector-set!
                                                                                                      symbol-record$311
                                                                                                      1
                                                                                                      lemmas$310)))
                                                                                            #t)))))
                                                                                    #f))
                                                                                (set! make-symbol-record$244
                                                                                  #((record-marker)
                                                                                    #((record-marker)
                                                                                      #f
                                                                                      (id args
                                                                                          body
                                                                                          has-cont))
                                                                                    #(287
                                                                                      (k$606 sym$312)
                                                                                      ((vector
                                                                                         k$606
                                                                                         sym$312
                                                                                         '()))
                                                                                      #t)))))
                                                                              #f))
                                                                          (set! *symbol-records-alist*$245
                                                                            '())))
                                                                        #f))
                                                                    (set! symbol->symbol-record$246
                                                                      #((record-marker)
                                                                        #((record-marker)
                                                                          #f
                                                                          (id args
                                                                              body
                                                                              has-cont))
                                                                        #(299
                                                                          (k$610 sym$313)
                                                                          ((#((record-marker)
                                                                              #((record-marker)
                                                                                #f
                                                                                (id args
                                                                                    body
                                                                                    has-cont))
                                                                              #(297
                                                                                (x$314)
                                                                                ((if x$314
                                                                                   (k$610 (cdr x$314))
                                                                                   (vector
                                                                                     #((record-marker)
                                                                                       #((record-marker)
                                                                                         #f
                                                                                         (id args
                                                                                             body
                                                                                             has-cont))
                                                                                       #(295
                                                                                         (r$315)
                                                                                         ((#((record-marker)
                                                                                             #((record-marker)
                                                                                               #f
                                                                                               (id args
                                                                                                   body
                                                                                                   has-cont))
                                                                                             #(293
                                                                                               (r$614)
                                                                                               ((#((record-marker)
                                                                                                   #((record-marker)
                                                                                                     #f
                                                                                                     (id args
                                                                                                         body
                                                                                                         has-cont))
                                                                                                   #(292
                                                                                                     (r$613)
                                                                                                     ((k$610 r$315))
                                                                                                     #f))
                                                                                                 (set! *symbol-records-alist*$245
                                                                                                   r$614)))
                                                                                               #f))
                                                                                           (cons (cons sym$313
                                                                                                       r$315)
                                                                                                 *symbol-records-alist*$245)))
                                                                                         #f))
                                                                                     sym$313
                                                                                     '())))
                                                                                #f))
                                                                            (assq sym$313
                                                                                  *symbol-records-alist*$245)))
                                                                          #t)))))
                                                                  #f))
                                                              (set! get$247
                                                                #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(303
                                                                    (k$617 sym$317
                                                                           property$316)
                                                                    ((symbol->symbol-record$246
                                                                       #((record-marker)
                                                                         #((record-marker)
                                                                           #f
                                                                           (id args
                                                                               body
                                                                               has-cont))
                                                                         #(302
                                                                           (r$618)
                                                                           ((k$617 (vector-ref
                                                                                     r$618
                                                                                     1)))
                                                                           #f))
                                                                       sym$317))
                                                                    #t)))))
                                                            #f))
                                                        (set! put$248
                                                          #((record-marker)
                                                            #((record-marker)
                                                              #f
                                                              (id args
                                                                  body
                                                                  has-cont))
                                                            #(307
                                                              (k$620 sym$320
                                                                     property$319
                                                                     value$318)
                                                              ((symbol->symbol-record$246
                                                                 #((record-marker)
                                                                   #((record-marker)
                                                                     #f
                                                                     (id args
                                                                         body
                                                                         has-cont))
                                                                   #(306
                                                                     (r$621)
                                                                     ((k$620 (vector-set!
                                                                               r$621
                                                                               1
                                                                               value$318)))
                                                                     #f))
                                                                 sym$320))
                                                              #t)))))
                                                      #f))
                                                  (set! untranslate-term$249
                                                    #((record-marker)
                                                      #((record-marker)
                                                        #f
                                                        (id args body has-cont))
                                                      #(317
                                                        (k$623 term$321)
                                                        ((if (pair? term$321)
                                                           (map #((record-marker)
                                                                  #((record-marker)
                                                                    #f
                                                                    (id args
                                                                        body
                                                                        has-cont))
                                                                  #(310
                                                                    (r$626)
                                                                    ((k$623 (cons (vector-ref
                                                                                    (car term$321)
                                                                                    0)
                                                                                  r$626)))
                                                                    #f))
                                                                untranslate-term$249
                                                                (cdr term$321))
                                                           (k$623 term$321)))
                                                        #t)))))
                                                #f))
                                            (set! translate-args$250
                                              #((record-marker)
                                                #((record-marker)
                                                  #f
                                                  (id args body has-cont))
                                                #(327
                                                  (k$630 lst$322)
                                                  ((if (null? lst$322)
                                                     (k$630 '())
                                                     (translate-term$251
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(323
                                                           (r$632)
                                                           ((translate-args$250
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(321
                                                                  (r$633)
                                                                  ((k$630 (cons r$632
                                                                                r$633)))
                                                                  #f))
                                                              (cdr lst$322)))
                                                           #f))
                                                       (car lst$322))))
                                                  #t)))))
                                          #f))
                                      (set! translate-term$251
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(337
                                            (k$637 term$323)
                                            ((if (pair? term$323)
                                               (symbol->symbol-record$246
                                                 #((record-marker)
                                                   #((record-marker)
                                                     #f
                                                     (id args body has-cont))
                                                   #(332
                                                     (r$639)
                                                     ((translate-args$250
                                                        #((record-marker)
                                                          #((record-marker)
                                                            #f
                                                            (id args
                                                                body
                                                                has-cont))
                                                          #(330
                                                            (r$640)
                                                            ((k$637 (cons r$639
                                                                          r$640)))
                                                            #f))
                                                        (cdr term$323)))
                                                     #f))
                                                 (car term$323))
                                               (k$637 term$323)))
                                            #t)))))
                                    #f))
                                (set! add-lemma$252
                                  #((record-marker)
                                    #((record-marker)
                                      #f
                                      (id args body has-cont))
                                    #(358
                                      (k$644 term$324)
                                      ((#((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(357
                                            (k$655)
                                            ((if (pair? term$324)
                                               (if (eq? (car term$324) 'equal)
                                                 (k$655 (pair? (cadr term$324)))
                                                 (k$655 #f))
                                               (k$655 #f)))
                                            #t))
                                        #((record-marker)
                                          #((record-marker)
                                            #f
                                            (id args body has-cont))
                                          #(351
                                            (r$645)
                                            ((if r$645
                                               (#((record-marker)
                                                  #((record-marker)
                                                    #f
                                                    (id args body has-cont))
                                                  #(348
                                                    (r$654)
                                                    ((translate-term$251
                                                       #((record-marker)
                                                         #((record-marker)
                                                           #f
                                                           (id args
                                                               body
                                                               has-cont))
                                                         #(345
                                                           (r$649)
                                                           ((get$247
                                                              #((record-marker)
                                                                #((record-marker)
                                                                  #f
                                                                  (id args
                                                                      body
                                                                      has-cont))
                                                                #(341
                                                                  (r$650)
                                                                  ((put$248
                                                                     k$644
                                                                     (car r$654)
                                                                     'lemmas
                                                                     (cons r$649
                                                                           r$650)))
                                                                  #f))
                                                              (car (cadr term$324))
                                                              'lemmas))
                                                           #f))
                                                       term$324))
                                                    #f))
                                                (cadr term$324))
                                               (error k$644
                                                      #f
                                                      "ADD-LEMMA did not like term:  "
                                                      term$324)))
                                            #f))))
                                      #t)))))
                              #f))
                          (set! add-lemma-lst$253
                            #((record-marker)
                              #((record-marker) #f (id args body has-cont))
                              #(367
                                (k$662 lst$325)
                                ((if (null? lst$325)
                                   (k$662 #t)
                                   (add-lemma$252
                                     #((record-marker)
                                       #((record-marker)
                                         #f
                                         (id args body has-cont))
                                       #(363
                                         (r$664)
                                         ((add-lemma-lst$253
                                            k$662
                                            (cdr lst$325)))
                                         #f))
                                     (car lst$325))))
                                #t)))))
                        #f))
                    (set! setup$254
                      #((record-marker)
                        #((record-marker) #f (id args body has-cont))
                        #(371
                          (k$668)
                          ((add-lemma-lst$253
                             k$668
                             '((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))))))
                          #t)))))
                  #f))
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #f
              #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
          '(implies
             (and (implies x y)
                  (and (implies y z)
                       (and (implies z u) (implies u w))))
             (implies x w)))))
      #f))
  (set! alist
    '((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)))))))
 */
/* 
"---------------- after wrap-mutables:"
 */
/* 
((define main
   (lambda (k$754)
     (read (lambda (count$352)
             (read (lambda (input$353)
                     (read (lambda (output$354)
                             ((lambda (s2$355)
                                ((lambda (s1$356)
                                   ((lambda (r$760)
                                      (run-r7rs-benchmark
                                        k$754
                                        r$760
                                        count$352
                                        (lambda (k$765)
                                          (setup-boyer
                                            (lambda (r$766)
                                              (hide (lambda (r$767)
                                                      (test-boyer
                                                        k$765
                                                        alist
                                                        term
                                                        r$767))
                                                    count$352
                                                    input$353))))
                                        (lambda (k$763 rewrites$358)
                                          (if (number? rewrites$358)
                                            (k$763 (Cyc-fast-eq
                                                     rewrites$358
                                                     output$354))
                                            (k$763 #f)))))
                                    (string-append
                                      "sboyer"
                                      ":"
                                      s1$356
                                      ":"
                                      s2$355)))
                                 (number->string input$353)))
                              (number->string count$352))))))))))
 (define alist #f)
 (define term #f)
 (define setup-boyer (lambda (k$747) (k$747 #t)))
 (define test-boyer (lambda (k$744) (k$744 #t)))
 (define hide
   (lambda (k$730 r$348 x$347)
     (call-with-values
       k$730
       (lambda (k$735)
         (vector
           (lambda (r$736)
             ((lambda (k$738)
                (if (Cyc-fast-lt r$348 100) (k$738 0) (k$738 1)))
              (lambda (r$737) (values k$735 r$736 r$737))))
           values
           (lambda (k$741 x$351) (k$741 x$351))))
       (lambda (k$733 v$350 i$349)
         ((vector-ref v$350 i$349) k$733 x$347)))))
 (define run-r7rs-benchmark
   (lambda (k$678 name$329 count$328 thunk$327 ok?$326)
     ((lambda (rounded$331)
        ((lambda (rounded$331)
           ((lambda (r$679)
              (display
                (lambda (r$680)
                  (display
                    (lambda (r$681)
                      (newline
                        (lambda (r$682)
                          (current-output-port
                            (lambda (r$723)
                              (flush-output-port
                                (lambda (r$683)
                                  (jiffies-per-second
                                    (lambda (j/s$333)
                                      (current-second
                                        (lambda (t0$334)
                                          (current-jiffy
                                            (lambda (j0$335)
                                              ((lambda (loop$338)
                                                 ((lambda (loop$338)
                                                    ((lambda (r$687)
                                                       ((cell-get loop$338)
                                                        k$678
                                                        0
                                                        #f))
                                                     (set-cell!
                                                       loop$338
                                                       (lambda (k$689
                                                                i$340
                                                                result$339)
                                                         (if (Cyc-fast-lt
                                                               i$340
                                                               count$328)
                                                           (thunk$327
                                                             (lambda (r$692)
                                                               ((cell-get
                                                                  loop$338)
                                                                k$689
                                                                (Cyc-fast-plus
                                                                  i$340
                                                                  1)
                                                                r$692)))
                                                           (ok?$326
                                                             (lambda (r$693)
                                                               (if r$693
                                                                 (current-jiffy
                                                                   (lambda (j1$341)
                                                                     (current-second
                                                                       (lambda (t1$342)
                                                                         ((cell-get
                                                                            rounded$331)
                                                                          (lambda (secs2$345)
                                                                            (display
                                                                              (lambda (r$700)
                                                                                (write (lambda (r$701)
                                                                                         (display
                                                                                           (lambda (r$702)
                                                                                             (write (lambda (r$703)
                                                                                                      (display
                                                                                                        (lambda (r$704)
                                                                                                          (display
                                                                                                            (lambda (r$705)
                                                                                                              (newline
                                                                                                                (lambda (r$706)
                                                                                                                  (display
                                                                                                                    (lambda (r$707)
                                                                                                                      (this-scheme-implementation-name
                                                                                                                        (lambda (r$715)
                                                                                                                          (display
                                                                                                                            (lambda (r$708)
                                                                                                                              (display
                                                                                                                                (lambda (r$709)
                                                                                                                                  (display
                                                                                                                                    (lambda (r$710)
                                                                                                                                      (display
                                                                                                                                        (lambda (r$711)
                                                                                                                                          (display
                                                                                                                                            (lambda (r$712)
                                                                                                                                              (newline
                                                                                                                                                (lambda (r$713)
                                                                                                                                                  (current-output-port
                                                                                                                                                    (lambda (r$714)
                                                                                                                                                      (flush-output-port
                                                                                                                                                        (lambda (r$694)
                                                                                                                                                          (k$689 result$339))
                                                                                                                                                        r$714))))))
                                                                                                                                            (inexact__inline__
                                                                                                                                              (Cyc-fast-div
                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                  j1$341
                                                                                                                                                  j0$335)
                                                                                                                                                j/s$333))))
                                                                                                                                        ","))
                                                                                                                                    name$329))
                                                                                                                                ","))
                                                                                                                            r$715))))
                                                                                                                    "+!CSVLINE!+"))))
                                                                                                            name$329))
                                                                                                        ") for "))
                                                                                                    secs2$345))
                                                                                           " seconds ("))
                                                                                       (inexact__inline__
                                                                                         (Cyc-fast-div
                                                                                           (Cyc-fast-sub
                                                                                             j1$341
                                                                                             j0$335)
                                                                                           j/s$333))))
                                                                              "Elapsed time: "))
                                                                          (Cyc-fast-sub
                                                                            t1$342
                                                                            t0$334))))))
                                                                 (display
                                                                   (lambda (r$718)
                                                                     (write (lambda (r$719)
                                                                              (newline
                                                                                (lambda (r$720)
                                                                                  (current-output-port
                                                                                    (lambda (r$722)
                                                                                      (flush-output-port
                                                                                        (lambda (r$721)
                                                                                          (k$689 result$339))
                                                                                        r$722))))))
                                                                            result$339))
                                                                   "ERROR: returned incorrect result: ")))
                                                             result$339))))))
                                                  (cell loop$338)))
                                               #f))))))))
                                r$723))))))
                    name$329))
                "Running "))
            (set-cell!
              rounded$331
              (lambda (k$725 x$346)
                (k$725 (Cyc-fast-div
                         (round__inline__ (Cyc-fast-mul 1000 x$346))
                         1000))))))
         (cell rounded$331)))
      #f)))
 (define this-scheme-implementation-name
   (lambda (k$674)
     (Cyc-version
       (lambda (r$675)
         (k$674 (string-append "cyclone-" r$675))))))
 ((lambda (r$360)
    ((lambda (r$361)
       ((lambda (setup$254
                 add-lemma-lst$253
                 add-lemma$252
                 translate-term$251
                 translate-args$250
                 untranslate-term$249
                 put$248
                 get$247
                 symbol->symbol-record$246
                 *symbol-records-alist*$245
                 make-symbol-record$244
                 put-lemmas!$243
                 get-lemmas$242
                 get-name$241
                 symbol-record-equal?$240
                 test$239
                 translate-alist$238
                 apply-subst$237
                 apply-subst-lst$236
                 tautp$235
                 tautologyp$234
                 if-constructor$233
                 rewrite-count$232
                 scons$231
                 rewrite$230
                 rewrite-args$229
                 rewrite-with-lemmas$228
                 unify-subst$227
                 one-way-unify$226
                 one-way-unify1$225
                 one-way-unify1-lst$224
                 falsep$223
                 truep$222
                 false-term$221
                 true-term$220
                 trans-of-implies$219
                 trans-of-implies1$218
                 term-equal?$217
                 term-args-equal?$216
                 term-member?$215)
          ((lambda (setup$254)
             ((lambda (add-lemma-lst$253)
                ((lambda (add-lemma$252)
                   ((lambda (translate-term$251)
                      ((lambda (translate-args$250)
                         ((lambda (untranslate-term$249)
                            ((lambda (put$248)
                               ((lambda (get$247)
                                  ((lambda (symbol->symbol-record$246)
                                     ((lambda (*symbol-records-alist*$245)
                                        ((lambda (make-symbol-record$244)
                                           ((lambda (put-lemmas!$243)
                                              ((lambda (get-lemmas$242)
                                                 ((lambda (get-name$241)
                                                    ((lambda (symbol-record-equal?$240)
                                                       ((lambda (test$239)
                                                          ((lambda (translate-alist$238)
                                                             ((lambda (apply-subst$237)
                                                                ((lambda (apply-subst-lst$236)
                                                                   ((lambda (tautp$235)
                                                                      ((lambda (tautologyp$234)
                                                                         ((lambda (if-constructor$233)
                                                                            ((lambda (rewrite-count$232)
                                                                               ((lambda (scons$231)
                                                                                  ((lambda (rewrite$230)
                                                                                     ((lambda (rewrite-args$229)
                                                                                        ((lambda (rewrite-with-lemmas$228)
                                                                                           ((lambda (unify-subst$227)
                                                                                              ((lambda (one-way-unify$226)
                                                                                                 ((lambda (one-way-unify1$225)
                                                                                                    ((lambda (one-way-unify1-lst$224)
                                                                                                       ((lambda (falsep$223)
                                                                                                          ((lambda (truep$222)
                                                                                                             ((lambda (false-term$221)
                                                                                                                ((lambda (true-term$220)
                                                                                                                   ((lambda (trans-of-implies$219)
                                                                                                                      ((lambda (trans-of-implies1$218)
                                                                                                                         ((lambda (term-equal?$217)
                                                                                                                            ((lambda (term-args-equal?$216)
                                                                                                                               ((lambda (term-member?$215)
                                                                                                                                  ((lambda (r$363)
                                                                                                                                     ((lambda (r$364)
                                                                                                                                        ((lambda (r$365)
                                                                                                                                           ((lambda (r$366)
                                                                                                                                              ((lambda (r$367)
                                                                                                                                                 ((lambda (r$368)
                                                                                                                                                    ((lambda (r$369)
                                                                                                                                                       ((lambda (r$370)
                                                                                                                                                          ((lambda (r$371)
                                                                                                                                                             ((lambda (r$372)
                                                                                                                                                                ((lambda (r$373)
                                                                                                                                                                   ((lambda (r$374)
                                                                                                                                                                      ((lambda (r$375)
                                                                                                                                                                         ((lambda (r$376)
                                                                                                                                                                            ((lambda (r$377)
                                                                                                                                                                               ((lambda (r$378)
                                                                                                                                                                                  ((lambda (r$379)
                                                                                                                                                                                     ((lambda (r$380)
                                                                                                                                                                                        ((lambda (r$381)
                                                                                                                                                                                           ((lambda (r$382)
                                                                                                                                                                                              ((lambda (r$383)
                                                                                                                                                                                                 ((lambda (r$384)
                                                                                                                                                                                                    ((lambda (r$385)
                                                                                                                                                                                                       ((lambda (r$386)
                                                                                                                                                                                                          ((lambda (r$387)
                                                                                                                                                                                                             ((lambda (r$388)
                                                                                                                                                                                                                ((lambda (r$389)
                                                                                                                                                                                                                   ((lambda (r$390)
                                                                                                                                                                                                                      ((lambda (r$391)
                                                                                                                                                                                                                         ((lambda (r$392)
                                                                                                                                                                                                                            ((lambda (r$393)
                                                                                                                                                                                                                               ((lambda (r$394)
                                                                                                                                                                                                                                  ((lambda (r$395)
                                                                                                                                                                                                                                     ((lambda (r$396)
                                                                                                                                                                                                                                        ((lambda (r$397)
                                                                                                                                                                                                                                           ((lambda (r$398)
                                                                                                                                                                                                                                              ((lambda (r$399)
                                                                                                                                                                                                                                                 ((lambda (r$400)
                                                                                                                                                                                                                                                    ((lambda (r$401)
                                                                                                                                                                                                                                                       ((lambda (r$402)
                                                                                                                                                                                                                                                          ((lambda (r$403)
                                                                                                                                                                                                                                                             ((lambda (r$362)
                                                                                                                                                                                                                                                                (main %halt))
                                                                                                                                                                                                                                                              (set-global!
                                                                                                                                                                                                                                                                test-boyer
                                                                                                                                                                                                                                                                (lambda (k$405
                                                                                                                                                                                                                                                                         alist$257
                                                                                                                                                                                                                                                                         term$256
                                                                                                                                                                                                                                                                         n$255)
                                                                                                                                                                                                                                                                  ((lambda (r$406)
                                                                                                                                                                                                                                                                     ((cell-get
                                                                                                                                                                                                                                                                        test$239)
                                                                                                                                                                                                                                                                      (lambda (answer$258)
                                                                                                                                                                                                                                                                        (if answer$258
                                                                                                                                                                                                                                                                          (k$405 (cell-get
                                                                                                                                                                                                                                                                                   rewrite-count$232))
                                                                                                                                                                                                                                                                          (k$405 #f)))
                                                                                                                                                                                                                                                                      alist$257
                                                                                                                                                                                                                                                                      term$256
                                                                                                                                                                                                                                                                      n$255))
                                                                                                                                                                                                                                                                   (set-cell!
                                                                                                                                                                                                                                                                     rewrite-count$232
                                                                                                                                                                                                                                                                     0))))))
                                                                                                                                                                                                                                                           (set-global!
                                                                                                                                                                                                                                                             setup-boyer
                                                                                                                                                                                                                                                             (lambda (k$409)
                                                                                                                                                                                                                                                               ((lambda (r$410)
                                                                                                                                                                                                                                                                  ((cell-get
                                                                                                                                                                                                                                                                     symbol->symbol-record$246)
                                                                                                                                                                                                                                                                   (lambda (r$418)
                                                                                                                                                                                                                                                                     ((lambda (r$411)
                                                                                                                                                                                                                                                                        ((cell-get
                                                                                                                                                                                                                                                                           translate-term$251)
                                                                                                                                                                                                                                                                         (lambda (r$416)
                                                                                                                                                                                                                                                                           ((lambda (r$412)
                                                                                                                                                                                                                                                                              ((cell-get
                                                                                                                                                                                                                                                                                 translate-term$251)
                                                                                                                                                                                                                                                                               (lambda (r$414)
                                                                                                                                                                                                                                                                                 ((lambda (r$413)
                                                                                                                                                                                                                                                                                    ((cell-get
                                                                                                                                                                                                                                                                                       add-lemma-lst$253)
                                                                                                                                                                                                                                                                                     k$409
                                                                                                                                                                                                                                                                                     '((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-cell!
                                                                                                                                                                                                                                                                                    true-term$220
                                                                                                                                                                                                                                                                                    r$414)))
                                                                                                                                                                                                                                                                               '(t)))
                                                                                                                                                                                                                                                                            (set-cell!
                                                                                                                                                                                                                                                                              false-term$221
                                                                                                                                                                                                                                                                              r$416)))
                                                                                                                                                                                                                                                                         '(f)))
                                                                                                                                                                                                                                                                      (set-cell!
                                                                                                                                                                                                                                                                        if-constructor$233
                                                                                                                                                                                                                                                                        r$418)))
                                                                                                                                                                                                                                                                   'if))
                                                                                                                                                                                                                                                                (set-cell!
                                                                                                                                                                                                                                                                  *symbol-records-alist*$245
                                                                                                                                                                                                                                                                  '()))))))
                                                                                                                                                                                                                                                        (set-cell!
                                                                                                                                                                                                                                                          term-member?$215
                                                                                                                                                                                                                                                          (lambda (k$422
                                                                                                                                                                                                                                                                   x$260
                                                                                                                                                                                                                                                                   lst$259)
                                                                                                                                                                                                                                                            (if (null? lst$259)
                                                                                                                                                                                                                                                              (k$422 #f)
                                                                                                                                                                                                                                                              ((cell-get
                                                                                                                                                                                                                                                                 term-equal?$217)
                                                                                                                                                                                                                                                               (lambda (r$424)
                                                                                                                                                                                                                                                                 (if r$424
                                                                                                                                                                                                                                                                   (k$422 #t)
                                                                                                                                                                                                                                                                   ((cell-get
                                                                                                                                                                                                                                                                      term-member?$215)
                                                                                                                                                                                                                                                                    k$422
                                                                                                                                                                                                                                                                    x$260
                                                                                                                                                                                                                                                                    (cdr lst$259))))
                                                                                                                                                                                                                                                               x$260
                                                                                                                                                                                                                                                               (car lst$259)))))))
                                                                                                                                                                                                                                                     (set-cell!
                                                                                                                                                                                                                                                       term-args-equal?$216
                                                                                                                                                                                                                                                       (lambda (k$428
                                                                                                                                                                                                                                                                lst1$262
                                                                                                                                                                                                                                                                lst2$261)
                                                                                                                                                                                                                                                         (if (null? lst1$262)
                                                                                                                                                                                                                                                           (k$428 (null? lst2$261))
                                                                                                                                                                                                                                                           (if (null? lst2$261)
                                                                                                                                                                                                                                                             (k$428 #f)
                                                                                                                                                                                                                                                             ((cell-get
                                                                                                                                                                                                                                                                term-equal?$217)
                                                                                                                                                                                                                                                              (lambda (r$431)
                                                                                                                                                                                                                                                                (if r$431
                                                                                                                                                                                                                                                                  ((cell-get
                                                                                                                                                                                                                                                                     term-args-equal?$216)
                                                                                                                                                                                                                                                                   k$428
                                                                                                                                                                                                                                                                   (cdr lst1$262)
                                                                                                                                                                                                                                                                   (cdr lst2$261))
                                                                                                                                                                                                                                                                  (k$428 #f)))
                                                                                                                                                                                                                                                              (car lst1$262)
                                                                                                                                                                                                                                                              (car lst2$261))))))))
                                                                                                                                                                                                                                                  (set-cell!
                                                                                                                                                                                                                                                    term-equal?$217
                                                                                                                                                                                                                                                    (lambda (k$437
                                                                                                                                                                                                                                                             x$264
                                                                                                                                                                                                                                                             y$263)
                                                                                                                                                                                                                                                      (if (pair? x$264)
                                                                                                                                                                                                                                                        (if (pair? y$263)
                                                                                                                                                                                                                                                          (if (eq? (car x$264)
                                                                                                                                                                                                                                                                   (car y$263))
                                                                                                                                                                                                                                                            ((cell-get
                                                                                                                                                                                                                                                               term-args-equal?$216)
                                                                                                                                                                                                                                                             k$437
                                                                                                                                                                                                                                                             (cdr x$264)
                                                                                                                                                                                                                                                             (cdr y$263))
                                                                                                                                                                                                                                                            (k$437 #f))
                                                                                                                                                                                                                                                          (k$437 #f))
                                                                                                                                                                                                                                                        (k$437 (equal?
                                                                                                                                                                                                                                                                 x$264
                                                                                                                                                                                                                                                                 y$263)))))))
                                                                                                                                                                                                                                               (set-cell!
                                                                                                                                                                                                                                                 trans-of-implies1$218
                                                                                                                                                                                                                                                 (lambda (k$446
                                                                                                                                                                                                                                                          n$265)
                                                                                                                                                                                                                                                   ((lambda (r$447)
                                                                                                                                                                                                                                                      (if r$447
                                                                                                                                                                                                                                                        (list k$446
                                                                                                                                                                                                                                                              'implies
                                                                                                                                                                                                                                                              0
                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                        ((lambda (r$454)
                                                                                                                                                                                                                                                           (list (lambda (r$450)
                                                                                                                                                                                                                                                                   ((cell-get
                                                                                                                                                                                                                                                                      trans-of-implies1$218)
                                                                                                                                                                                                                                                                    (lambda (r$451)
                                                                                                                                                                                                                                                                      (list k$446
                                                                                                                                                                                                                                                                            'and
                                                                                                                                                                                                                                                                            r$450
                                                                                                                                                                                                                                                                            r$451))
                                                                                                                                                                                                                                                                    (Cyc-fast-sub
                                                                                                                                                                                                                                                                      n$265
                                                                                                                                                                                                                                                                      1)))
                                                                                                                                                                                                                                                                 'implies
                                                                                                                                                                                                                                                                 r$454
                                                                                                                                                                                                                                                                 n$265))
                                                                                                                                                                                                                                                         (Cyc-fast-sub
                                                                                                                                                                                                                                                           n$265
                                                                                                                                                                                                                                                           1))))
                                                                                                                                                                                                                                                    (equal?
                                                                                                                                                                                                                                                      n$265
                                                                                                                                                                                                                                                      1))))))
                                                                                                                                                                                                                                            (set-cell!
                                                                                                                                                                                                                                              trans-of-implies$219
                                                                                                                                                                                                                                              (lambda (k$456
                                                                                                                                                                                                                                                       n$266)
                                                                                                                                                                                                                                                ((cell-get
                                                                                                                                                                                                                                                   trans-of-implies1$218)
                                                                                                                                                                                                                                                 (lambda (r$459)
                                                                                                                                                                                                                                                   (list (lambda (r$460)
                                                                                                                                                                                                                                                           (list (lambda (r$457)
                                                                                                                                                                                                                                                                   ((cell-get
                                                                                                                                                                                                                                                                      translate-term$251)
                                                                                                                                                                                                                                                                    k$456
                                                                                                                                                                                                                                                                    r$457))
                                                                                                                                                                                                                                                                 'implies
                                                                                                                                                                                                                                                                 r$459
                                                                                                                                                                                                                                                                 r$460))
                                                                                                                                                                                                                                                         'implies
                                                                                                                                                                                                                                                         0
                                                                                                                                                                                                                                                         n$266))
                                                                                                                                                                                                                                                 n$266)))))
                                                                                                                                                                                                                                         (set-cell!
                                                                                                                                                                                                                                           true-term$220
                                                                                                                                                                                                                                           '*)))
                                                                                                                                                                                                                                      (set-cell!
                                                                                                                                                                                                                                        false-term$221
                                                                                                                                                                                                                                        '*)))
                                                                                                                                                                                                                                   (set-cell!
                                                                                                                                                                                                                                     truep$222
                                                                                                                                                                                                                                     (lambda (k$465
                                                                                                                                                                                                                                              x$268
                                                                                                                                                                                                                                              lst$267)
                                                                                                                                                                                                                                       ((cell-get
                                                                                                                                                                                                                                          term-equal?$217)
                                                                                                                                                                                                                                        (lambda (tmp$120$269)
                                                                                                                                                                                                                                          (if tmp$120$269
                                                                                                                                                                                                                                            (k$465 tmp$120$269)
                                                                                                                                                                                                                                            ((cell-get
                                                                                                                                                                                                                                               term-member?$215)
                                                                                                                                                                                                                                             k$465
                                                                                                                                                                                                                                             x$268
                                                                                                                                                                                                                                             lst$267)))
                                                                                                                                                                                                                                        x$268
                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                          true-term$220))))))
                                                                                                                                                                                                                                (set-cell!
                                                                                                                                                                                                                                  falsep$223
                                                                                                                                                                                                                                  (lambda (k$468
                                                                                                                                                                                                                                           x$271
                                                                                                                                                                                                                                           lst$270)
                                                                                                                                                                                                                                    ((cell-get
                                                                                                                                                                                                                                       term-equal?$217)
                                                                                                                                                                                                                                     (lambda (tmp$117$272)
                                                                                                                                                                                                                                       (if tmp$117$272
                                                                                                                                                                                                                                         (k$468 tmp$117$272)
                                                                                                                                                                                                                                         ((cell-get
                                                                                                                                                                                                                                            term-member?$215)
                                                                                                                                                                                                                                          k$468
                                                                                                                                                                                                                                          x$271
                                                                                                                                                                                                                                          lst$270)))
                                                                                                                                                                                                                                     x$271
                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                       false-term$221))))))
                                                                                                                                                                                                                             (set-cell!
                                                                                                                                                                                                                               one-way-unify1-lst$224
                                                                                                                                                                                                                               (lambda (k$471
                                                                                                                                                                                                                                        lst1$274
                                                                                                                                                                                                                                        lst2$273)
                                                                                                                                                                                                                                 (if (null? lst1$274)
                                                                                                                                                                                                                                   (k$471 (null? lst2$273))
                                                                                                                                                                                                                                   (if (null? lst2$273)
                                                                                                                                                                                                                                     (k$471 #f)
                                                                                                                                                                                                                                     ((cell-get
                                                                                                                                                                                                                                        one-way-unify1$225)
                                                                                                                                                                                                                                      (lambda (r$474)
                                                                                                                                                                                                                                        (if r$474
                                                                                                                                                                                                                                          ((cell-get
                                                                                                                                                                                                                                             one-way-unify1-lst$224)
                                                                                                                                                                                                                                           k$471
                                                                                                                                                                                                                                           (cdr lst1$274)
                                                                                                                                                                                                                                           (cdr lst2$273))
                                                                                                                                                                                                                                          (k$471 #f)))
                                                                                                                                                                                                                                      (car lst1$274)
                                                                                                                                                                                                                                      (car lst2$273))))))))
                                                                                                                                                                                                                          (set-cell!
                                                                                                                                                                                                                            one-way-unify1$225
                                                                                                                                                                                                                            (lambda (k$480
                                                                                                                                                                                                                                     term1$276
                                                                                                                                                                                                                                     term2$275)
                                                                                                                                                                                                                              (if (pair? term2$275)
                                                                                                                                                                                                                                (if (pair? term1$276)
                                                                                                                                                                                                                                  (if (eq? (car term1$276)
                                                                                                                                                                                                                                           (car term2$275))
                                                                                                                                                                                                                                    ((cell-get
                                                                                                                                                                                                                                       one-way-unify1-lst$224)
                                                                                                                                                                                                                                     k$480
                                                                                                                                                                                                                                     (cdr term1$276)
                                                                                                                                                                                                                                     (cdr term2$275))
                                                                                                                                                                                                                                    (k$480 #f))
                                                                                                                                                                                                                                  (k$480 #f))
                                                                                                                                                                                                                                ((lambda (temp-temp$277)
                                                                                                                                                                                                                                   (if temp-temp$277
                                                                                                                                                                                                                                     ((cell-get
                                                                                                                                                                                                                                        term-equal?$217)
                                                                                                                                                                                                                                      k$480
                                                                                                                                                                                                                                      term1$276
                                                                                                                                                                                                                                      (cdr temp-temp$277))
                                                                                                                                                                                                                                     (if (number?
                                                                                                                                                                                                                                           term2$275)
                                                                                                                                                                                                                                       (k$480 (equal?
                                                                                                                                                                                                                                                term1$276
                                                                                                                                                                                                                                                term2$275))
                                                                                                                                                                                                                                       ((lambda (r$492)
                                                                                                                                                                                                                                          ((lambda (r$491)
                                                                                                                                                                                                                                             (k$480 #t))
                                                                                                                                                                                                                                           (set-cell!
                                                                                                                                                                                                                                             unify-subst$227
                                                                                                                                                                                                                                             r$492)))
                                                                                                                                                                                                                                        (cons (cons term2$275
                                                                                                                                                                                                                                                    term1$276)
                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                unify-subst$227))))))
                                                                                                                                                                                                                                 (assq term2$275
                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                         unify-subst$227))))))))
                                                                                                                                                                                                                       (set-cell!
                                                                                                                                                                                                                         one-way-unify$226
                                                                                                                                                                                                                         (lambda (k$495
                                                                                                                                                                                                                                  term1$279
                                                                                                                                                                                                                                  term2$278)
                                                                                                                                                                                                                           ((lambda (r$496)
                                                                                                                                                                                                                              ((cell-get
                                                                                                                                                                                                                                 one-way-unify1$225)
                                                                                                                                                                                                                               k$495
                                                                                                                                                                                                                               term1$279
                                                                                                                                                                                                                               term2$278))
                                                                                                                                                                                                                            (set-cell!
                                                                                                                                                                                                                              unify-subst$227
                                                                                                                                                                                                                              '()))))))
                                                                                                                                                                                                                    (set-cell!
                                                                                                                                                                                                                      unify-subst$227
                                                                                                                                                                                                                      '*)))
                                                                                                                                                                                                                 (set-cell!
                                                                                                                                                                                                                   rewrite-with-lemmas$228
                                                                                                                                                                                                                   (lambda (k$500
                                                                                                                                                                                                                            term$281
                                                                                                                                                                                                                            lst$280)
                                                                                                                                                                                                                     (if (null? lst$280)
                                                                                                                                                                                                                       (k$500 term$281)
                                                                                                                                                                                                                       ((cell-get
                                                                                                                                                                                                                          one-way-unify$226)
                                                                                                                                                                                                                        (lambda (r$502)
                                                                                                                                                                                                                          (if r$502
                                                                                                                                                                                                                            ((cell-get
                                                                                                                                                                                                                               apply-subst$237)
                                                                                                                                                                                                                             (lambda (r$503)
                                                                                                                                                                                                                               ((cell-get
                                                                                                                                                                                                                                  rewrite$230)
                                                                                                                                                                                                                                k$500
                                                                                                                                                                                                                                r$503))
                                                                                                                                                                                                                             (cell-get
                                                                                                                                                                                                                               unify-subst$227)
                                                                                                                                                                                                                             (caddr (car lst$280)))
                                                                                                                                                                                                                            ((cell-get
                                                                                                                                                                                                                               rewrite-with-lemmas$228)
                                                                                                                                                                                                                             k$500
                                                                                                                                                                                                                             term$281
                                                                                                                                                                                                                             (cdr lst$280))))
                                                                                                                                                                                                                        term$281
                                                                                                                                                                                                                        (cadr (car lst$280))))))))
                                                                                                                                                                                                              (set-cell!
                                                                                                                                                                                                                rewrite-args$229
                                                                                                                                                                                                                (lambda (k$510
                                                                                                                                                                                                                         lst$282)
                                                                                                                                                                                                                  (if (null? lst$282)
                                                                                                                                                                                                                    (k$510 '())
                                                                                                                                                                                                                    ((cell-get
                                                                                                                                                                                                                       rewrite$230)
                                                                                                                                                                                                                     (lambda (r$512)
                                                                                                                                                                                                                       ((cell-get
                                                                                                                                                                                                                          rewrite-args$229)
                                                                                                                                                                                                                        (lambda (r$513)
                                                                                                                                                                                                                          ((cell-get
                                                                                                                                                                                                                             scons$231)
                                                                                                                                                                                                                           k$510
                                                                                                                                                                                                                           r$512
                                                                                                                                                                                                                           r$513
                                                                                                                                                                                                                           lst$282))
                                                                                                                                                                                                                        (cdr lst$282)))
                                                                                                                                                                                                                     (car lst$282)))))))
                                                                                                                                                                                                           (set-cell!
                                                                                                                                                                                                             rewrite$230
                                                                                                                                                                                                             (lambda (k$517
                                                                                                                                                                                                                      term$283)
                                                                                                                                                                                                               ((lambda (r$526)
                                                                                                                                                                                                                  ((lambda (r$518)
                                                                                                                                                                                                                     (if (pair? term$283)
                                                                                                                                                                                                                       ((cell-get
                                                                                                                                                                                                                          rewrite-args$229)
                                                                                                                                                                                                                        (lambda (r$524)
                                                                                                                                                                                                                          ((cell-get
                                                                                                                                                                                                                             scons$231)
                                                                                                                                                                                                                           (lambda (r$520)
                                                                                                                                                                                                                             ((cell-get
                                                                                                                                                                                                                                rewrite-with-lemmas$228)
                                                                                                                                                                                                                              k$517
                                                                                                                                                                                                                              r$520
                                                                                                                                                                                                                              (vector-ref
                                                                                                                                                                                                                                (car term$283)
                                                                                                                                                                                                                                1)))
                                                                                                                                                                                                                           (car term$283)
                                                                                                                                                                                                                           r$524
                                                                                                                                                                                                                           term$283))
                                                                                                                                                                                                                        (cdr term$283))
                                                                                                                                                                                                                       (k$517 term$283)))
                                                                                                                                                                                                                   (set-cell!
                                                                                                                                                                                                                     rewrite-count$232
                                                                                                                                                                                                                     r$526)))
                                                                                                                                                                                                                (Cyc-fast-plus
                                                                                                                                                                                                                  (cell-get
                                                                                                                                                                                                                    rewrite-count$232)
                                                                                                                                                                                                                  1))))))
                                                                                                                                                                                                        (set-cell!
                                                                                                                                                                                                          scons$231
                                                                                                                                                                                                          (lambda (k$528
                                                                                                                                                                                                                   x$286
                                                                                                                                                                                                                   y$285
                                                                                                                                                                                                                   original$284)
                                                                                                                                                                                                            ((lambda (k$530)
                                                                                                                                                                                                               (if (eq? x$286
                                                                                                                                                                                                                        (car original$284))
                                                                                                                                                                                                                 (k$530 (eq? y$285
                                                                                                                                                                                                                             (cdr original$284)))
                                                                                                                                                                                                                 (k$530 #f)))
                                                                                                                                                                                                             (lambda (r$529)
                                                                                                                                                                                                               (if r$529
                                                                                                                                                                                                                 (k$528 original$284)
                                                                                                                                                                                                                 (k$528 (cons x$286
                                                                                                                                                                                                                              y$285)))))))))
                                                                                                                                                                                                     (set-cell!
                                                                                                                                                                                                       rewrite-count$232
                                                                                                                                                                                                       0)))
                                                                                                                                                                                                  (set-cell!
                                                                                                                                                                                                    if-constructor$233
                                                                                                                                                                                                    '*)))
                                                                                                                                                                                               (set-cell!
                                                                                                                                                                                                 tautologyp$234
                                                                                                                                                                                                 (lambda (k$536
                                                                                                                                                                                                          x$289
                                                                                                                                                                                                          true-lst$288
                                                                                                                                                                                                          false-lst$287)
                                                                                                                                                                                                   ((cell-get
                                                                                                                                                                                                      truep$222)
                                                                                                                                                                                                    (lambda (r$537)
                                                                                                                                                                                                      (if r$537
                                                                                                                                                                                                        (k$536 #t)
                                                                                                                                                                                                        ((cell-get
                                                                                                                                                                                                           falsep$223)
                                                                                                                                                                                                         (lambda (r$538)
                                                                                                                                                                                                           (if r$538
                                                                                                                                                                                                             (k$536 #f)
                                                                                                                                                                                                             (if (pair? x$289)
                                                                                                                                                                                                               (if (eq? (car x$289)
                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                          if-constructor$233))
                                                                                                                                                                                                                 ((cell-get
                                                                                                                                                                                                                    truep$222)
                                                                                                                                                                                                                  (lambda (r$541)
                                                                                                                                                                                                                    (if r$541
                                                                                                                                                                                                                      ((cell-get
                                                                                                                                                                                                                         tautologyp$234)
                                                                                                                                                                                                                       k$536
                                                                                                                                                                                                                       (caddr x$289)
                                                                                                                                                                                                                       true-lst$288
                                                                                                                                                                                                                       false-lst$287)
                                                                                                                                                                                                                      ((cell-get
                                                                                                                                                                                                                         falsep$223)
                                                                                                                                                                                                                       (lambda (r$543)
                                                                                                                                                                                                                         (if r$543
                                                                                                                                                                                                                           ((cell-get
                                                                                                                                                                                                                              tautologyp$234)
                                                                                                                                                                                                                            k$536
                                                                                                                                                                                                                            (cadddr
                                                                                                                                                                                                                              x$289)
                                                                                                                                                                                                                            true-lst$288
                                                                                                                                                                                                                            false-lst$287)
                                                                                                                                                                                                                           ((cell-get
                                                                                                                                                                                                                              tautologyp$234)
                                                                                                                                                                                                                            (lambda (r$545)
                                                                                                                                                                                                                              (if r$545
                                                                                                                                                                                                                                ((cell-get
                                                                                                                                                                                                                                   tautologyp$234)
                                                                                                                                                                                                                                 k$536
                                                                                                                                                                                                                                 (cadddr
                                                                                                                                                                                                                                   x$289)
                                                                                                                                                                                                                                 true-lst$288
                                                                                                                                                                                                                                 (cons (cadr x$289)
                                                                                                                                                                                                                                       false-lst$287))
                                                                                                                                                                                                                                (k$536 #f)))
                                                                                                                                                                                                                            (caddr x$289)
                                                                                                                                                                                                                            (cons (cadr x$289)
                                                                                                                                                                                                                                  true-lst$288)
                                                                                                                                                                                                                            false-lst$287)))
                                                                                                                                                                                                                       (cadr x$289)
                                                                                                                                                                                                                       false-lst$287)))
                                                                                                                                                                                                                  (cadr x$289)
                                                                                                                                                                                                                  true-lst$288)
                                                                                                                                                                                                                 (k$536 #f))
                                                                                                                                                                                                               (k$536 #f))))
                                                                                                                                                                                                         x$289
                                                                                                                                                                                                         false-lst$287)))
                                                                                                                                                                                                    x$289
                                                                                                                                                                                                    true-lst$288)))))
                                                                                                                                                                                            (set-cell!
                                                                                                                                                                                              tautp$235
                                                                                                                                                                                              (lambda (k$556
                                                                                                                                                                                                       x$290)
                                                                                                                                                                                                ((cell-get
                                                                                                                                                                                                   rewrite$230)
                                                                                                                                                                                                 (lambda (r$557)
                                                                                                                                                                                                   ((cell-get
                                                                                                                                                                                                      tautologyp$234)
                                                                                                                                                                                                    k$556
                                                                                                                                                                                                    r$557
                                                                                                                                                                                                    '()
                                                                                                                                                                                                    '()))
                                                                                                                                                                                                 x$290)))))
                                                                                                                                                                                         (set-cell!
                                                                                                                                                                                           apply-subst-lst$236
                                                                                                                                                                                           (lambda (k$561
                                                                                                                                                                                                    alist$292
                                                                                                                                                                                                    lst$291)
                                                                                                                                                                                             (if (null? lst$291)
                                                                                                                                                                                               (k$561 '())
                                                                                                                                                                                               ((cell-get
                                                                                                                                                                                                  apply-subst$237)
                                                                                                                                                                                                (lambda (r$563)
                                                                                                                                                                                                  ((cell-get
                                                                                                                                                                                                     apply-subst-lst$236)
                                                                                                                                                                                                   (lambda (r$564)
                                                                                                                                                                                                     (k$561 (cons r$563
                                                                                                                                                                                                                  r$564)))
                                                                                                                                                                                                   alist$292
                                                                                                                                                                                                   (cdr lst$291)))
                                                                                                                                                                                                alist$292
                                                                                                                                                                                                (car lst$291)))))))
                                                                                                                                                                                      (set-cell!
                                                                                                                                                                                        apply-subst$237
                                                                                                                                                                                        (lambda (k$568
                                                                                                                                                                                                 alist$294
                                                                                                                                                                                                 term$293)
                                                                                                                                                                                          (if (pair? term$293)
                                                                                                                                                                                            ((cell-get
                                                                                                                                                                                               apply-subst-lst$236)
                                                                                                                                                                                             (lambda (r$571)
                                                                                                                                                                                               (k$568 (cons (car term$293)
                                                                                                                                                                                                            r$571)))
                                                                                                                                                                                             alist$294
                                                                                                                                                                                             (cdr term$293))
                                                                                                                                                                                            (if (assq term$293
                                                                                                                                                                                                      alist$294)
                                                                                                                                                                                              (k$568 (cdr (assq term$293
                                                                                                                                                                                                                alist$294)))
                                                                                                                                                                                              (k$568 term$293)))))))
                                                                                                                                                                                   (set-cell!
                                                                                                                                                                                     translate-alist$238
                                                                                                                                                                                     (lambda (k$575
                                                                                                                                                                                              alist$296)
                                                                                                                                                                                       (if (null? alist$296)
                                                                                                                                                                                         (k$575 '())
                                                                                                                                                                                         ((cell-get
                                                                                                                                                                                            translate-term$251)
                                                                                                                                                                                          (lambda (r$581)
                                                                                                                                                                                            ((cell-get
                                                                                                                                                                                               translate-alist$238)
                                                                                                                                                                                             (lambda (r$578)
                                                                                                                                                                                               (k$575 (cons (cons (caar alist$296)
                                                                                                                                                                                                                  r$581)
                                                                                                                                                                                                            r$578)))
                                                                                                                                                                                             (cdr alist$296)))
                                                                                                                                                                                          (cdar alist$296)))))))
                                                                                                                                                                                (set-cell!
                                                                                                                                                                                  test$239
                                                                                                                                                                                  (lambda (k$584
                                                                                                                                                                                           alist$299
                                                                                                                                                                                           term$298
                                                                                                                                                                                           n$297)
                                                                                                                                                                                    ((cell-get
                                                                                                                                                                                       translate-alist$238)
                                                                                                                                                                                     (lambda (r$586)
                                                                                                                                                                                       ((lambda (term$301
                                                                                                                                                                                                 n$300)
                                                                                                                                                                                          ((lambda (lp$37$302)
                                                                                                                                                                                             ((lambda (lp$37$302)
                                                                                                                                                                                                ((lambda (r$589)
                                                                                                                                                                                                   ((cell-get
                                                                                                                                                                                                      lp$37$302)
                                                                                                                                                                                                    (lambda (r$588)
                                                                                                                                                                                                      ((cell-get
                                                                                                                                                                                                         translate-term$251)
                                                                                                                                                                                                       (lambda (r$587)
                                                                                                                                                                                                         ((cell-get
                                                                                                                                                                                                            apply-subst$237)
                                                                                                                                                                                                          (lambda (term$305)
                                                                                                                                                                                                            ((cell-get
                                                                                                                                                                                                               tautp$235)
                                                                                                                                                                                                             k$584
                                                                                                                                                                                                             term$305))
                                                                                                                                                                                                          r$586
                                                                                                                                                                                                          r$587))
                                                                                                                                                                                                       r$588))
                                                                                                                                                                                                    term$301
                                                                                                                                                                                                    n$300))
                                                                                                                                                                                                 (set-cell!
                                                                                                                                                                                                   lp$37$302
                                                                                                                                                                                                   (lambda (k$591
                                                                                                                                                                                                            term$304
                                                                                                                                                                                                            n$303)
                                                                                                                                                                                                     (if (zero?__inline__
                                                                                                                                                                                                           n$303)
                                                                                                                                                                                                       (k$591 term$304)
                                                                                                                                                                                                       (list (lambda (r$593)
                                                                                                                                                                                                               ((cell-get
                                                                                                                                                                                                                  lp$37$302)
                                                                                                                                                                                                                k$591
                                                                                                                                                                                                                r$593
                                                                                                                                                                                                                (Cyc-fast-sub
                                                                                                                                                                                                                  n$303
                                                                                                                                                                                                                  1)))
                                                                                                                                                                                                             'or
                                                                                                                                                                                                             term$304
                                                                                                                                                                                                             '(f)))))))
                                                                                                                                                                                              (cell lp$37$302)))
                                                                                                                                                                                           #f))
                                                                                                                                                                                        term$298
                                                                                                                                                                                        n$297))
                                                                                                                                                                                     alist$299)))))
                                                                                                                                                                             (set-cell!
                                                                                                                                                                               symbol-record-equal?$240
                                                                                                                                                                               (lambda (k$598
                                                                                                                                                                                        r1$307
                                                                                                                                                                                        r2$306)
                                                                                                                                                                                 (k$598 (eq? r1$307
                                                                                                                                                                                             r2$306))))))
                                                                                                                                                                          (set-cell!
                                                                                                                                                                            get-name$241
                                                                                                                                                                            (lambda (k$600
                                                                                                                                                                                     symbol-record$308)
                                                                                                                                                                              (k$600 (vector-ref
                                                                                                                                                                                       symbol-record$308
                                                                                                                                                                                       0))))))
                                                                                                                                                                       (set-cell!
                                                                                                                                                                         get-lemmas$242
                                                                                                                                                                         (lambda (k$602
                                                                                                                                                                                  symbol-record$309)
                                                                                                                                                                           (k$602 (vector-ref
                                                                                                                                                                                    symbol-record$309
                                                                                                                                                                                    1))))))
                                                                                                                                                                    (set-cell!
                                                                                                                                                                      put-lemmas!$243
                                                                                                                                                                      (lambda (k$604
                                                                                                                                                                               symbol-record$311
                                                                                                                                                                               lemmas$310)
                                                                                                                                                                        (k$604 (vector-set!
                                                                                                                                                                                 symbol-record$311
                                                                                                                                                                                 1
                                                                                                                                                                                 lemmas$310))))))
                                                                                                                                                                 (set-cell!
                                                                                                                                                                   make-symbol-record$244
                                                                                                                                                                   (lambda (k$606
                                                                                                                                                                            sym$312)
                                                                                                                                                                     (vector
                                                                                                                                                                       k$606
                                                                                                                                                                       sym$312
                                                                                                                                                                       '())))))
                                                                                                                                                              (set-cell!
                                                                                                                                                                *symbol-records-alist*$245
                                                                                                                                                                '())))
                                                                                                                                                           (set-cell!
                                                                                                                                                             symbol->symbol-record$246
                                                                                                                                                             (lambda (k$610
                                                                                                                                                                      sym$313)
                                                                                                                                                               ((lambda (x$314)
                                                                                                                                                                  (if x$314
                                                                                                                                                                    (k$610 (cdr x$314))
                                                                                                                                                                    (vector
                                                                                                                                                                      (lambda (r$315)
                                                                                                                                                                        ((lambda (r$614)
                                                                                                                                                                           ((lambda (r$613)
                                                                                                                                                                              (k$610 r$315))
                                                                                                                                                                            (set-cell!
                                                                                                                                                                              *symbol-records-alist*$245
                                                                                                                                                                              r$614)))
                                                                                                                                                                         (cons (cons sym$313
                                                                                                                                                                                     r$315)
                                                                                                                                                                               (cell-get
                                                                                                                                                                                 *symbol-records-alist*$245))))
                                                                                                                                                                      sym$313
                                                                                                                                                                      '())))
                                                                                                                                                                (assq sym$313
                                                                                                                                                                      (cell-get
                                                                                                                                                                        *symbol-records-alist*$245)))))))
                                                                                                                                                        (set-cell!
                                                                                                                                                          get$247
                                                                                                                                                          (lambda (k$617
                                                                                                                                                                   sym$317
                                                                                                                                                                   property$316)
                                                                                                                                                            ((cell-get
                                                                                                                                                               symbol->symbol-record$246)
                                                                                                                                                             (lambda (r$618)
                                                                                                                                                               (k$617 (vector-ref
                                                                                                                                                                        r$618
                                                                                                                                                                        1)))
                                                                                                                                                             sym$317)))))
                                                                                                                                                     (set-cell!
                                                                                                                                                       put$248
                                                                                                                                                       (lambda (k$620
                                                                                                                                                                sym$320
                                                                                                                                                                property$319
                                                                                                                                                                value$318)
                                                                                                                                                         ((cell-get
                                                                                                                                                            symbol->symbol-record$246)
                                                                                                                                                          (lambda (r$621)
                                                                                                                                                            (k$620 (vector-set!
                                                                                                                                                                     r$621
                                                                                                                                                                     1
                                                                                                                                                                     value$318)))
                                                                                                                                                          sym$320)))))
                                                                                                                                                  (set-cell!
                                                                                                                                                    untranslate-term$249
                                                                                                                                                    (lambda (k$623
                                                                                                                                                             term$321)
                                                                                                                                                      (if (pair? term$321)
                                                                                                                                                        (map (lambda (r$626)
                                                                                                                                                               (k$623 (cons (vector-ref
                                                                                                                                                                              (car term$321)
                                                                                                                                                                              0)
                                                                                                                                                                            r$626)))
                                                                                                                                                             (cell-get
                                                                                                                                                               untranslate-term$249)
                                                                                                                                                             (cdr term$321))
                                                                                                                                                        (k$623 term$321))))))
                                                                                                                                               (set-cell!
                                                                                                                                                 translate-args$250
                                                                                                                                                 (lambda (k$630
                                                                                                                                                          lst$322)
                                                                                                                                                   (if (null? lst$322)
                                                                                                                                                     (k$630 '())
                                                                                                                                                     ((cell-get
                                                                                                                                                        translate-term$251)
                                                                                                                                                      (lambda (r$632)
                                                                                                                                                        ((cell-get
                                                                                                                                                           translate-args$250)
                                                                                                                                                         (lambda (r$633)
                                                                                                                                                           (k$630 (cons r$632
                                                                                                                                                                        r$633)))
                                                                                                                                                         (cdr lst$322)))
                                                                                                                                                      (car lst$322)))))))
                                                                                                                                            (set-cell!
                                                                                                                                              translate-term$251
                                                                                                                                              (lambda (k$637
                                                                                                                                                       term$323)
                                                                                                                                                (if (pair? term$323)
                                                                                                                                                  ((cell-get
                                                                                                                                                     symbol->symbol-record$246)
                                                                                                                                                   (lambda (r$639)
                                                                                                                                                     ((cell-get
                                                                                                                                                        translate-args$250)
                                                                                                                                                      (lambda (r$640)
                                                                                                                                                        (k$637 (cons r$639
                                                                                                                                                                     r$640)))
                                                                                                                                                      (cdr term$323)))
                                                                                                                                                   (car term$323))
                                                                                                                                                  (k$637 term$323))))))
                                                                                                                                         (set-cell!
                                                                                                                                           add-lemma$252
                                                                                                                                           (lambda (k$644
                                                                                                                                                    term$324)
                                                                                                                                             ((lambda (k$655)
                                                                                                                                                (if (pair? term$324)
                                                                                                                                                  (if (eq? (car term$324)
                                                                                                                                                           'equal)
                                                                                                                                                    (k$655 (pair? (cadr term$324)))
                                                                                                                                                    (k$655 #f))
                                                                                                                                                  (k$655 #f)))
                                                                                                                                              (lambda (r$645)
                                                                                                                                                (if r$645
                                                                                                                                                  ((lambda (r$654)
                                                                                                                                                     ((cell-get
                                                                                                                                                        translate-term$251)
                                                                                                                                                      (lambda (r$649)
                                                                                                                                                        ((cell-get
                                                                                                                                                           get$247)
                                                                                                                                                         (lambda (r$650)
                                                                                                                                                           ((cell-get
                                                                                                                                                              put$248)
                                                                                                                                                            k$644
                                                                                                                                                            (car r$654)
                                                                                                                                                            'lemmas
                                                                                                                                                            (cons r$649
                                                                                                                                                                  r$650)))
                                                                                                                                                         (car (cadr term$324))
                                                                                                                                                         'lemmas))
                                                                                                                                                      term$324))
                                                                                                                                                   (cadr term$324))
                                                                                                                                                  (error k$644
                                                                                                                                                         #f
                                                                                                                                                         "ADD-LEMMA did not like term:  "
                                                                                                                                                         term$324))))))))
                                                                                                                                      (set-cell!
                                                                                                                                        add-lemma-lst$253
                                                                                                                                        (lambda (k$662
                                                                                                                                                 lst$325)
                                                                                                                                          (if (null? lst$325)
                                                                                                                                            (k$662 #t)
                                                                                                                                            ((cell-get
                                                                                                                                               add-lemma$252)
                                                                                                                                             (lambda (r$664)
                                                                                                                                               ((cell-get
                                                                                                                                                  add-lemma-lst$253)
                                                                                                                                                k$662
                                                                                                                                                (cdr lst$325)))
                                                                                                                                             (car lst$325)))))))
                                                                                                                                   (set-cell!
                                                                                                                                     setup$254
                                                                                                                                     (lambda (k$668)
                                                                                                                                       ((cell-get
                                                                                                                                          add-lemma-lst$253)
                                                                                                                                        k$668
                                                                                                                                        '((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?$215)))
                                                                                                                             (cell term-args-equal?$216)))
                                                                                                                          (cell term-equal?$217)))
                                                                                                                       (cell trans-of-implies1$218)))
                                                                                                                    (cell trans-of-implies$219)))
                                                                                                                 (cell true-term$220)))
                                                                                                              (cell false-term$221)))
                                                                                                           (cell truep$222)))
                                                                                                        (cell falsep$223)))
                                                                                                     (cell one-way-unify1-lst$224)))
                                                                                                  (cell one-way-unify1$225)))
                                                                                               (cell one-way-unify$226)))
                                                                                            (cell unify-subst$227)))
                                                                                         (cell rewrite-with-lemmas$228)))
                                                                                      (cell rewrite-args$229)))
                                                                                   (cell rewrite$230)))
                                                                                (cell scons$231)))
                                                                             (cell rewrite-count$232)))
                                                                          (cell if-constructor$233)))
                                                                       (cell tautologyp$234)))
                                                                    (cell tautp$235)))
                                                                 (cell apply-subst-lst$236)))
                                                              (cell apply-subst$237)))
                                                           (cell translate-alist$238)))
                                                        (cell test$239)))
                                                     (cell symbol-record-equal?$240)))
                                                  (cell get-name$241)))
                                               (cell get-lemmas$242)))
                                            (cell put-lemmas!$243)))
                                         (cell make-symbol-record$244)))
                                      (cell *symbol-records-alist*$245)))
                                   (cell symbol->symbol-record$246)))
                                (cell get$247)))
                             (cell put$248)))
                          (cell untranslate-term$249)))
                       (cell translate-args$250)))
                    (cell translate-term$251)))
                 (cell add-lemma$252)))
              (cell add-lemma-lst$253)))
           (cell setup$254)))
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #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
       '(implies
          (and (implies x y)
               (and (implies y z)
                    (and (implies z u) (implies u w))))
          (implies x w)))))
  (set-global!
    alist
    '((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)))))))
 */
/* 
"---------------- after closure-convert:"
 */
/* 
((define main
   (lambda (k$754)
     ((%closure-ref read 0)
      read
      (%closure
        (lambda (self$1008 count$352)
          ((%closure-ref read 0)
           read
           (%closure
             (lambda (self$1009 input$353)
               ((%closure-ref read 0)
                read
                (%closure
                  (lambda (self$1010 output$354)
                    ((%closure
                       (lambda (self$1011 s2$355)
                         ((%closure
                            (lambda (self$1012 s1$356)
                              ((%closure
                                 (lambda (self$1013 r$760)
                                   ((%closure-ref run-r7rs-benchmark 0)
                                    run-r7rs-benchmark
                                    (%closure-ref self$1013 3)
                                    r$760
                                    (%closure-ref self$1013 1)
                                    (%closure
                                      (lambda (self$1015 k$765)
                                        ((%closure-ref setup-boyer 0)
                                         setup-boyer
                                         (%closure
                                           (lambda (self$1016 r$766)
                                             ((%closure-ref hide 0)
                                              hide
                                              (%closure
                                                (lambda (self$1017 r$767)
                                                  ((%closure-ref test-boyer 0)
                                                   test-boyer
                                                   (%closure-ref self$1017 1)
                                                   alist
                                                   term
                                                   r$767))
                                                (%closure-ref self$1016 3))
                                              (%closure-ref self$1016 1)
                                              (%closure-ref self$1016 2)))
                                           (%closure-ref self$1015 1)
                                           (%closure-ref self$1015 2)
                                           k$765)))
                                      (%closure-ref self$1013 1)
                                      (%closure-ref self$1013 2))
                                    (%closure
                                      (lambda (self$1014 k$763 rewrites$358)
                                        (if (number? rewrites$358)
                                          ((%closure-ref k$763 0)
                                           k$763
                                           (Cyc-fast-eq
                                             rewrites$358
                                             (%closure-ref self$1014 1)))
                                          ((%closure-ref k$763 0) k$763 #f)))
                                      (%closure-ref self$1013 4))))
                                 (%closure-ref self$1012 1)
                                 (%closure-ref self$1012 2)
                                 (%closure-ref self$1012 3)
                                 (%closure-ref self$1012 4))
                               (string-append
                                 "sboyer"
                                 ":"
                                 s1$356
                                 ":"
                                 (%closure-ref self$1012 5))))
                            (%closure-ref self$1011 1)
                            (%closure-ref self$1011 2)
                            (%closure-ref self$1011 3)
                            (%closure-ref self$1011 4)
                            s2$355)
                          (number->string (%closure-ref self$1011 2))))
                       (%closure-ref self$1010 1)
                       (%closure-ref self$1010 2)
                       (%closure-ref self$1010 3)
                       output$354)
                     (number->string (%closure-ref self$1010 1))))
                  (%closure-ref self$1009 1)
                  input$353
                  (%closure-ref self$1009 2))))
             count$352
             (%closure-ref self$1008 1))))
        k$754))))
 (define alist (%closure-ref #f 0) #f)
 (define term (%closure-ref #f 0) #f)
 (define setup-boyer
   (lambda (k$747)
     ((%closure-ref k$747 0) k$747 #t)))
 (define test-boyer
   (lambda (k$744)
     ((%closure-ref k$744 0) k$744 #t)))
 (define hide
   (lambda (k$730 r$348 x$347)
     ((%closure-ref call-with-values 0)
      call-with-values
      k$730
      (%closure
        (lambda (self$1003 k$735)
          ((%closure-ref vector 0)
           vector
           (%closure
             (lambda (self$1005 r$736)
               ((%closure
                  (lambda (self$1007 k$738)
                    (if (Cyc-fast-lt (%closure-ref self$1007 1) 100)
                      ((%closure-ref k$738 0) k$738 0)
                      ((%closure-ref k$738 0) k$738 1)))
                  (%closure-ref self$1005 2))
                (%closure
                  (lambda (self$1006 r$737)
                    ((%closure-ref values 0)
                     values
                     (%closure-ref self$1006 1)
                     (%closure-ref self$1006 2)
                     r$737))
                  (%closure-ref self$1005 1)
                  r$736)))
             k$735
             (%closure-ref self$1003 1))
           values
           (%closure
             (lambda (self$1004 k$741 x$351)
               ((%closure-ref k$741 0) k$741 x$351)))))
        r$348)
      (%closure
        (lambda (self$1002 k$733 v$350 i$349)
          ((%closure-ref (vector-ref v$350 i$349) 0)
           (vector-ref v$350 i$349)
           k$733
           (%closure-ref self$1002 1)))
        x$347))))
 (define run-r7rs-benchmark
   (lambda (k$678 name$329 count$328 thunk$327 ok?$326)
     ((%closure
        (lambda (self$959 rounded$331)
          ((%closure
             (lambda (self$960 rounded$331)
               ((%closure
                  (lambda (self$962 r$679)
                    ((%closure-ref display 0)
                     display
                     (%closure
                       (lambda (self$963 r$680)
                         ((%closure-ref display 0)
                          display
                          (%closure
                            (lambda (self$964 r$681)
                              ((%closure-ref newline 0)
                               newline
                               (%closure
                                 (lambda (self$965 r$682)
                                   ((%closure-ref current-output-port 0)
                                    current-output-port
                                    (%closure
                                      (lambda (self$966 r$723)
                                        ((%closure-ref flush-output-port 0)
                                         flush-output-port
                                         (%closure
                                           (lambda (self$967 r$683)
                                             ((%closure-ref
                                                jiffies-per-second
                                                0)
                                              jiffies-per-second
                                              (%closure
                                                (lambda (self$968 j/s$333)
                                                  ((%closure-ref
                                                     current-second
                                                     0)
                                                   current-second
                                                   (%closure
                                                     (lambda (self$969 t0$334)
                                                       ((%closure-ref
                                                          current-jiffy
                                                          0)
                                                        current-jiffy
                                                        (%closure
                                                          (lambda (self$970
                                                                   j0$335)
                                                            ((%closure
                                                               (lambda (self$971
                                                                        loop$338)
                                                                 ((%closure
                                                                    (lambda (self$972
                                                                             loop$338)
                                                                      ((%closure
                                                                         (lambda (self$1001
                                                                                  r$687)
                                                                           ((%closure-ref
                                                                              (cell-get
                                                                                (%closure-ref
                                                                                  self$1001
                                                                                  2))
                                                                              0)
                                                                            (cell-get
                                                                              (%closure-ref
                                                                                self$1001
                                                                                2))
                                                                            (%closure-ref
                                                                              self$1001
                                                                              1)
                                                                            0
                                                                            #f))
                                                                         (%closure-ref
                                                                           self$972
                                                                           4)
                                                                         loop$338)
                                                                       (set-cell!
                                                                         loop$338
                                                                         (%closure
                                                                           (lambda (self$973
                                                                                    k$689
                                                                                    i$340
                                                                                    result$339)
                                                                             (if (Cyc-fast-lt
                                                                                   i$340
                                                                                   (%closure-ref
                                                                                     self$973
                                                                                     1))
                                                                               ((%closure-ref
                                                                                  (%closure-ref
                                                                                    self$973
                                                                                    9)
                                                                                  0)
                                                                                (%closure-ref
                                                                                  self$973
                                                                                  9)
                                                                                (%closure
                                                                                  (lambda (self$1000
                                                                                           r$692)
                                                                                    ((%closure-ref
                                                                                       (cell-get
                                                                                         (%closure-ref
                                                                                           self$1000
                                                                                           3))
                                                                                       0)
                                                                                     (cell-get
                                                                                       (%closure-ref
                                                                                         self$1000
                                                                                         3))
                                                                                     (%closure-ref
                                                                                       self$1000
                                                                                       2)
                                                                                     (Cyc-fast-plus
                                                                                       (%closure-ref
                                                                                         self$1000
                                                                                         1)
                                                                                       1)
                                                                                     r$692))
                                                                                  i$340
                                                                                  k$689
                                                                                  (%closure-ref
                                                                                    self$973
                                                                                    4)))
                                                                               ((%closure-ref
                                                                                  (%closure-ref
                                                                                    self$973
                                                                                    6)
                                                                                  0)
                                                                                (%closure-ref
                                                                                  self$973
                                                                                  6)
                                                                                (%closure
                                                                                  (lambda (self$974
                                                                                           r$693)
                                                                                    (if r$693
                                                                                      ((%closure-ref
                                                                                         current-jiffy
                                                                                         0)
                                                                                       current-jiffy
                                                                                       (%closure
                                                                                         (lambda (self$980
                                                                                                  j1$341)
                                                                                           ((%closure-ref
                                                                                              current-second
                                                                                              0)
                                                                                            current-second
                                                                                            (%closure
                                                                                              (lambda (self$981
                                                                                                       t1$342)
                                                                                                ((%closure-ref
                                                                                                   (cell-get
                                                                                                     (%closure-ref
                                                                                                       self$981
                                                                                                       7))
                                                                                                   0)
                                                                                                 (cell-get
                                                                                                   (%closure-ref
                                                                                                     self$981
                                                                                                     7))
                                                                                                 (%closure
                                                                                                   (lambda (self$982
                                                                                                            secs2$345)
                                                                                                     ((%closure-ref
                                                                                                        display
                                                                                                        0)
                                                                                                      display
                                                                                                      (%closure
                                                                                                        (lambda (self$983
                                                                                                                 r$700)
                                                                                                          ((%closure-ref
                                                                                                             write
                                                                                                             0)
                                                                                                           write
                                                                                                           (%closure
                                                                                                             (lambda (self$984
                                                                                                                      r$701)
                                                                                                               ((%closure-ref
                                                                                                                  display
                                                                                                                  0)
                                                                                                                display
                                                                                                                (%closure
                                                                                                                  (lambda (self$985
                                                                                                                           r$702)
                                                                                                                    ((%closure-ref
                                                                                                                       write
                                                                                                                       0)
                                                                                                                     write
                                                                                                                     (%closure
                                                                                                                       (lambda (self$986
                                                                                                                                r$703)
                                                                                                                         ((%closure-ref
                                                                                                                            display
                                                                                                                            0)
                                                                                                                          display
                                                                                                                          (%closure
                                                                                                                            (lambda (self$987
                                                                                                                                     r$704)
                                                                                                                              ((%closure-ref
                                                                                                                                 display
                                                                                                                                 0)
                                                                                                                               display
                                                                                                                               (%closure
                                                                                                                                 (lambda (self$988
                                                                                                                                          r$705)
                                                                                                                                   ((%closure-ref
                                                                                                                                      newline
                                                                                                                                      0)
                                                                                                                                    newline
                                                                                                                                    (%closure
                                                                                                                                      (lambda (self$989
                                                                                                                                               r$706)
                                                                                                                                        ((%closure-ref
                                                                                                                                           display
                                                                                                                                           0)
                                                                                                                                         display
                                                                                                                                         (%closure
                                                                                                                                           (lambda (self$990
                                                                                                                                                    r$707)
                                                                                                                                             ((%closure-ref
                                                                                                                                                this-scheme-implementation-name
                                                                                                                                                0)
                                                                                                                                              this-scheme-implementation-name
                                                                                                                                              (%closure
                                                                                                                                                (lambda (self$991
                                                                                                                                                         r$715)
                                                                                                                                                  ((%closure-ref
                                                                                                                                                     display
                                                                                                                                                     0)
                                                                                                                                                   display
                                                                                                                                                   (%closure
                                                                                                                                                     (lambda (self$992
                                                                                                                                                              r$708)
                                                                                                                                                       ((%closure-ref
                                                                                                                                                          display
                                                                                                                                                          0)
                                                                                                                                                        display
                                                                                                                                                        (%closure
                                                                                                                                                          (lambda (self$993
                                                                                                                                                                   r$709)
                                                                                                                                                            ((%closure-ref
                                                                                                                                                               display
                                                                                                                                                               0)
                                                                                                                                                             display
                                                                                                                                                             (%closure
                                                                                                                                                               (lambda (self$994
                                                                                                                                                                        r$710)
                                                                                                                                                                 ((%closure-ref
                                                                                                                                                                    display
                                                                                                                                                                    0)
                                                                                                                                                                  display
                                                                                                                                                                  (%closure
                                                                                                                                                                    (lambda (self$995
                                                                                                                                                                             r$711)
                                                                                                                                                                      ((%closure-ref
                                                                                                                                                                         display
                                                                                                                                                                         0)
                                                                                                                                                                       display
                                                                                                                                                                       (%closure
                                                                                                                                                                         (lambda (self$996
                                                                                                                                                                                  r$712)
                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                              newline
                                                                                                                                                                              0)
                                                                                                                                                                            newline
                                                                                                                                                                            (%closure
                                                                                                                                                                              (lambda (self$997
                                                                                                                                                                                       r$713)
                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                   current-output-port
                                                                                                                                                                                   0)
                                                                                                                                                                                 current-output-port
                                                                                                                                                                                 (%closure
                                                                                                                                                                                   (lambda (self$998
                                                                                                                                                                                            r$714)
                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                        flush-output-port
                                                                                                                                                                                        0)
                                                                                                                                                                                      flush-output-port
                                                                                                                                                                                      (%closure
                                                                                                                                                                                        (lambda (self$999
                                                                                                                                                                                                 r$694)
                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                               self$999
                                                                                                                                                                                               1)
                                                                                                                                                                                             0)
                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                             self$999
                                                                                                                                                                                             1)
                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                             self$999
                                                                                                                                                                                             2)))
                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                          self$998
                                                                                                                                                                                          1)
                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                          self$998
                                                                                                                                                                                          2))
                                                                                                                                                                                      r$714))
                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                     self$997
                                                                                                                                                                                     1)
                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                     self$997
                                                                                                                                                                                     2))))
                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                self$996
                                                                                                                                                                                1)
                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                self$996
                                                                                                                                                                                2))))
                                                                                                                                                                         (%closure-ref
                                                                                                                                                                           self$995
                                                                                                                                                                           4)
                                                                                                                                                                         (%closure-ref
                                                                                                                                                                           self$995
                                                                                                                                                                           5))
                                                                                                                                                                       (inexact__inline__
                                                                                                                                                                         (Cyc-fast-div
                                                                                                                                                                           (Cyc-fast-sub
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$995
                                                                                                                                                                               3)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$995
                                                                                                                                                                               2))
                                                                                                                                                                           (%closure-ref
                                                                                                                                                                             self$995
                                                                                                                                                                             1)))))
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$994
                                                                                                                                                                      1)
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$994
                                                                                                                                                                      2)
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$994
                                                                                                                                                                      3)
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$994
                                                                                                                                                                      4)
                                                                                                                                                                    (%closure-ref
                                                                                                                                                                      self$994
                                                                                                                                                                      5))
                                                                                                                                                                  ","))
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$993
                                                                                                                                                                 1)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$993
                                                                                                                                                                 2)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$993
                                                                                                                                                                 3)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$993
                                                                                                                                                                 4)
                                                                                                                                                               (%closure-ref
                                                                                                                                                                 self$993
                                                                                                                                                                 6))
                                                                                                                                                             (%closure-ref
                                                                                                                                                               self$993
                                                                                                                                                               5)))
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$992
                                                                                                                                                            1)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$992
                                                                                                                                                            2)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$992
                                                                                                                                                            3)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$992
                                                                                                                                                            4)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$992
                                                                                                                                                            5)
                                                                                                                                                          (%closure-ref
                                                                                                                                                            self$992
                                                                                                                                                            6))
                                                                                                                                                        ","))
                                                                                                                                                     (%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)
                                                                                                                                                     (%closure-ref
                                                                                                                                                       self$991
                                                                                                                                                       6))
                                                                                                                                                   r$715))
                                                                                                                                                (%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)
                                                                                                                                                (%closure-ref
                                                                                                                                                  self$990
                                                                                                                                                  6))))
                                                                                                                                           (%closure-ref
                                                                                                                                             self$989
                                                                                                                                             1)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$989
                                                                                                                                             2)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$989
                                                                                                                                             3)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$989
                                                                                                                                             4)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$989
                                                                                                                                             5)
                                                                                                                                           (%closure-ref
                                                                                                                                             self$989
                                                                                                                                             6))
                                                                                                                                         "+!CSVLINE!+"))
                                                                                                                                      (%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-ref
                                                                                                                                        self$988
                                                                                                                                        6))))
                                                                                                                                 (%closure-ref
                                                                                                                                   self$987
                                                                                                                                   1)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$987
                                                                                                                                   2)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$987
                                                                                                                                   3)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$987
                                                                                                                                   4)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$987
                                                                                                                                   5)
                                                                                                                                 (%closure-ref
                                                                                                                                   self$987
                                                                                                                                   6))
                                                                                                                               (%closure-ref
                                                                                                                                 self$987
                                                                                                                                 5)))
                                                                                                                            (%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))
                                                                                                                          ") for "))
                                                                                                                       (%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$984
                                                                                                                    1)
                                                                                                                  (%closure-ref
                                                                                                                    self$984
                                                                                                                    2)
                                                                                                                  (%closure-ref
                                                                                                                    self$984
                                                                                                                    3)
                                                                                                                  (%closure-ref
                                                                                                                    self$984
                                                                                                                    4)
                                                                                                                  (%closure-ref
                                                                                                                    self$984
                                                                                                                    5)
                                                                                                                  (%closure-ref
                                                                                                                    self$984
                                                                                                                    6)
                                                                                                                  (%closure-ref
                                                                                                                    self$984
                                                                                                                    7))
                                                                                                                " seconds ("))
                                                                                                             (%closure-ref
                                                                                                               self$983
                                                                                                               1)
                                                                                                             (%closure-ref
                                                                                                               self$983
                                                                                                               2)
                                                                                                             (%closure-ref
                                                                                                               self$983
                                                                                                               3)
                                                                                                             (%closure-ref
                                                                                                               self$983
                                                                                                               4)
                                                                                                             (%closure-ref
                                                                                                               self$983
                                                                                                               5)
                                                                                                             (%closure-ref
                                                                                                               self$983
                                                                                                               6)
                                                                                                             (%closure-ref
                                                                                                               self$983
                                                                                                               7))
                                                                                                           (inexact__inline__
                                                                                                             (Cyc-fast-div
                                                                                                               (Cyc-fast-sub
                                                                                                                 (%closure-ref
                                                                                                                   self$983
                                                                                                                   3)
                                                                                                                 (%closure-ref
                                                                                                                   self$983
                                                                                                                   2))
                                                                                                               (%closure-ref
                                                                                                                 self$983
                                                                                                                 1)))))
                                                                                                        (%closure-ref
                                                                                                          self$982
                                                                                                          1)
                                                                                                        (%closure-ref
                                                                                                          self$982
                                                                                                          2)
                                                                                                        (%closure-ref
                                                                                                          self$982
                                                                                                          3)
                                                                                                        (%closure-ref
                                                                                                          self$982
                                                                                                          4)
                                                                                                        (%closure-ref
                                                                                                          self$982
                                                                                                          5)
                                                                                                        (%closure-ref
                                                                                                          self$982
                                                                                                          6)
                                                                                                        secs2$345)
                                                                                                      "Elapsed time: "))
                                                                                                   (%closure-ref
                                                                                                     self$981
                                                                                                     1)
                                                                                                   (%closure-ref
                                                                                                     self$981
                                                                                                     2)
                                                                                                   (%closure-ref
                                                                                                     self$981
                                                                                                     3)
                                                                                                   (%closure-ref
                                                                                                     self$981
                                                                                                     4)
                                                                                                   (%closure-ref
                                                                                                     self$981
                                                                                                     5)
                                                                                                   (%closure-ref
                                                                                                     self$981
                                                                                                     6))
                                                                                                 (Cyc-fast-sub
                                                                                                   t1$342
                                                                                                   (%closure-ref
                                                                                                     self$981
                                                                                                     8))))
                                                                                              (%closure-ref
                                                                                                self$980
                                                                                                1)
                                                                                              (%closure-ref
                                                                                                self$980
                                                                                                2)
                                                                                              j1$341
                                                                                              (%closure-ref
                                                                                                self$980
                                                                                                3)
                                                                                              (%closure-ref
                                                                                                self$980
                                                                                                4)
                                                                                              (%closure-ref
                                                                                                self$980
                                                                                                5)
                                                                                              (%closure-ref
                                                                                                self$980
                                                                                                6)
                                                                                              (%closure-ref
                                                                                                self$980
                                                                                                7))))
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           1)
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           2)
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           3)
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           4)
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           5)
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           6)
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           7)))
                                                                                      ((%closure-ref
                                                                                         display
                                                                                         0)
                                                                                       display
                                                                                       (%closure
                                                                                         (lambda (self$975
                                                                                                  r$718)
                                                                                           ((%closure-ref
                                                                                              write
                                                                                              0)
                                                                                            write
                                                                                            (%closure
                                                                                              (lambda (self$976
                                                                                                       r$719)
                                                                                                ((%closure-ref
                                                                                                   newline
                                                                                                   0)
                                                                                                 newline
                                                                                                 (%closure
                                                                                                   (lambda (self$977
                                                                                                            r$720)
                                                                                                     ((%closure-ref
                                                                                                        current-output-port
                                                                                                        0)
                                                                                                      current-output-port
                                                                                                      (%closure
                                                                                                        (lambda (self$978
                                                                                                                 r$722)
                                                                                                          ((%closure-ref
                                                                                                             flush-output-port
                                                                                                             0)
                                                                                                           flush-output-port
                                                                                                           (%closure
                                                                                                             (lambda (self$979
                                                                                                                      r$721)
                                                                                                               ((%closure-ref
                                                                                                                  (%closure-ref
                                                                                                                    self$979
                                                                                                                    1)
                                                                                                                  0)
                                                                                                                (%closure-ref
                                                                                                                  self$979
                                                                                                                  1)
                                                                                                                (%closure-ref
                                                                                                                  self$979
                                                                                                                  2)))
                                                                                                             (%closure-ref
                                                                                                               self$978
                                                                                                               1)
                                                                                                             (%closure-ref
                                                                                                               self$978
                                                                                                               2))
                                                                                                           r$722))
                                                                                                        (%closure-ref
                                                                                                          self$977
                                                                                                          1)
                                                                                                        (%closure-ref
                                                                                                          self$977
                                                                                                          2))))
                                                                                                   (%closure-ref
                                                                                                     self$976
                                                                                                     1)
                                                                                                   (%closure-ref
                                                                                                     self$976
                                                                                                     2))))
                                                                                              (%closure-ref
                                                                                                self$975
                                                                                                1)
                                                                                              (%closure-ref
                                                                                                self$975
                                                                                                2))
                                                                                            (%closure-ref
                                                                                              self$975
                                                                                              2)))
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           3)
                                                                                         (%closure-ref
                                                                                           self$974
                                                                                           5))
                                                                                       "ERROR: returned incorrect result: ")))
                                                                                  (%closure-ref
                                                                                    self$973
                                                                                    2)
                                                                                  (%closure-ref
                                                                                    self$973
                                                                                    3)
                                                                                  k$689
                                                                                  (%closure-ref
                                                                                    self$973
                                                                                    5)
                                                                                  result$339
                                                                                  (%closure-ref
                                                                                    self$973
                                                                                    7)
                                                                                  (%closure-ref
                                                                                    self$973
                                                                                    8))
                                                                                result$339)))
                                                                           (%closure-ref
                                                                             self$972
                                                                             1)
                                                                           (%closure-ref
                                                                             self$972
                                                                             2)
                                                                           (%closure-ref
                                                                             self$972
                                                                             3)
                                                                           loop$338
                                                                           (%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$971
                                                                      1)
                                                                    (%closure-ref
                                                                      self$971
                                                                      2)
                                                                    (%closure-ref
                                                                      self$971
                                                                      3)
                                                                    (%closure-ref
                                                                      self$971
                                                                      4)
                                                                    (%closure-ref
                                                                      self$971
                                                                      5)
                                                                    (%closure-ref
                                                                      self$971
                                                                      6)
                                                                    (%closure-ref
                                                                      self$971
                                                                      7)
                                                                    (%closure-ref
                                                                      self$971
                                                                      8)
                                                                    (%closure-ref
                                                                      self$971
                                                                      9))
                                                                  (cell loop$338)))
                                                               (%closure-ref
                                                                 self$970
                                                                 1)
                                                               (%closure-ref
                                                                 self$970
                                                                 2)
                                                               j0$335
                                                               (%closure-ref
                                                                 self$970
                                                                 3)
                                                               (%closure-ref
                                                                 self$970
                                                                 4)
                                                               (%closure-ref
                                                                 self$970
                                                                 5)
                                                               (%closure-ref
                                                                 self$970
                                                                 6)
                                                               (%closure-ref
                                                                 self$970
                                                                 7)
                                                               (%closure-ref
                                                                 self$970
                                                                 8))
                                                             #f))
                                                          (%closure-ref
                                                            self$969
                                                            1)
                                                          (%closure-ref
                                                            self$969
                                                            2)
                                                          (%closure-ref
                                                            self$969
                                                            3)
                                                          (%closure-ref
                                                            self$969
                                                            4)
                                                          (%closure-ref
                                                            self$969
                                                            5)
                                                          (%closure-ref
                                                            self$969
                                                            6)
                                                          t0$334
                                                          (%closure-ref
                                                            self$969
                                                            7))))
                                                     (%closure-ref self$968 1)
                                                     j/s$333
                                                     (%closure-ref self$968 2)
                                                     (%closure-ref self$968 3)
                                                     (%closure-ref self$968 4)
                                                     (%closure-ref self$968 5)
                                                     (%closure-ref
                                                       self$968
                                                       6))))
                                                (%closure-ref self$967 1)
                                                (%closure-ref self$967 2)
                                                (%closure-ref self$967 3)
                                                (%closure-ref self$967 4)
                                                (%closure-ref self$967 5)
                                                (%closure-ref self$967 6))))
                                           (%closure-ref self$966 1)
                                           (%closure-ref self$966 2)
                                           (%closure-ref self$966 3)
                                           (%closure-ref self$966 4)
                                           (%closure-ref self$966 5)
                                           (%closure-ref self$966 6))
                                         r$723))
                                      (%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$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$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 3)))
                       (%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))
                     "Running "))
                  (%closure-ref self$960 1)
                  (%closure-ref self$960 2)
                  (%closure-ref self$960 3)
                  (%closure-ref self$960 4)
                  rounded$331
                  (%closure-ref self$960 5))
                (set-cell!
                  rounded$331
                  (%closure
                    (lambda (self$961 k$725 x$346)
                      ((%closure-ref k$725 0)
                       k$725
                       (Cyc-fast-div
                         (round__inline__ (Cyc-fast-mul 1000 x$346))
                         1000)))))))
             (%closure-ref self$959 1)
             (%closure-ref self$959 2)
             (%closure-ref self$959 3)
             (%closure-ref self$959 4)
             (%closure-ref self$959 5))
           (cell rounded$331)))
        count$328
        k$678
        name$329
        ok?$326
        thunk$327)
      #f)))
 (define this-scheme-implementation-name
   (lambda (k$674)
     ((%closure-ref Cyc-version 0)
      Cyc-version
      (%closure
        (lambda (self$958 r$675)
          ((%closure-ref (%closure-ref self$958 1) 0)
           (%closure-ref self$958 1)
           (string-append "cyclone-" r$675)))
        k$674))))
 ((lambda (r$360)
    ((lambda (r$361)
       ((lambda (setup$254
                 add-lemma-lst$253
                 add-lemma$252
                 translate-term$251
                 translate-args$250
                 untranslate-term$249
                 put$248
                 get$247
                 symbol->symbol-record$246
                 *symbol-records-alist*$245
                 make-symbol-record$244
                 put-lemmas!$243
                 get-lemmas$242
                 get-name$241
                 symbol-record-equal?$240
                 test$239
                 translate-alist$238
                 apply-subst$237
                 apply-subst-lst$236
                 tautp$235
                 tautologyp$234
                 if-constructor$233
                 rewrite-count$232
                 scons$231
                 rewrite$230
                 rewrite-args$229
                 rewrite-with-lemmas$228
                 unify-subst$227
                 one-way-unify$226
                 one-way-unify1$225
                 one-way-unify1-lst$224
                 falsep$223
                 truep$222
                 false-term$221
                 true-term$220
                 trans-of-implies$219
                 trans-of-implies1$218
                 term-equal?$217
                 term-args-equal?$216
                 term-member?$215)
          ((%closure
             (lambda (self$768 setup$254)
               ((%closure
                  (lambda (self$769 add-lemma-lst$253)
                    ((%closure
                       (lambda (self$770 add-lemma$252)
                         ((%closure
                            (lambda (self$771 translate-term$251)
                              ((%closure
                                 (lambda (self$772 translate-args$250)
                                   ((%closure
                                      (lambda (self$773 untranslate-term$249)
                                        ((%closure
                                           (lambda (self$774 put$248)
                                             ((%closure
                                                (lambda (self$775 get$247)
                                                  ((%closure
                                                     (lambda (self$776
                                                              symbol->symbol-record$246)
                                                       ((%closure
                                                          (lambda (self$777
                                                                   *symbol-records-alist*$245)
                                                            ((%closure
                                                               (lambda (self$778
                                                                        make-symbol-record$244)
                                                                 ((%closure
                                                                    (lambda (self$779
                                                                             put-lemmas!$243)
                                                                      ((%closure
                                                                         (lambda (self$780
                                                                                  get-lemmas$242)
                                                                           ((%closure
                                                                              (lambda (self$781
                                                                                       get-name$241)
                                                                                ((%closure
                                                                                   (lambda (self$782
                                                                                            symbol-record-equal?$240)
                                                                                     ((%closure
                                                                                        (lambda (self$783
                                                                                                 test$239)
                                                                                          ((%closure
                                                                                             (lambda (self$784
                                                                                                      translate-alist$238)
                                                                                               ((%closure
                                                                                                  (lambda (self$785
                                                                                                           apply-subst$237)
                                                                                                    ((%closure
                                                                                                       (lambda (self$786
                                                                                                                apply-subst-lst$236)
                                                                                                         ((%closure
                                                                                                            (lambda (self$787
                                                                                                                     tautp$235)
                                                                                                              ((%closure
                                                                                                                 (lambda (self$788
                                                                                                                          tautologyp$234)
                                                                                                                   ((%closure
                                                                                                                      (lambda (self$789
                                                                                                                               if-constructor$233)
                                                                                                                        ((%closure
                                                                                                                           (lambda (self$790
                                                                                                                                    rewrite-count$232)
                                                                                                                             ((%closure
                                                                                                                                (lambda (self$791
                                                                                                                                         scons$231)
                                                                                                                                  ((%closure
                                                                                                                                     (lambda (self$792
                                                                                                                                              rewrite$230)
                                                                                                                                       ((%closure
                                                                                                                                          (lambda (self$793
                                                                                                                                                   rewrite-args$229)
                                                                                                                                            ((%closure
                                                                                                                                               (lambda (self$794
                                                                                                                                                        rewrite-with-lemmas$228)
                                                                                                                                                 ((%closure
                                                                                                                                                    (lambda (self$795
                                                                                                                                                             unify-subst$227)
                                                                                                                                                      ((%closure
                                                                                                                                                         (lambda (self$796
                                                                                                                                                                  one-way-unify$226)
                                                                                                                                                           ((%closure
                                                                                                                                                              (lambda (self$797
                                                                                                                                                                       one-way-unify1$225)
                                                                                                                                                                ((%closure
                                                                                                                                                                   (lambda (self$798
                                                                                                                                                                            one-way-unify1-lst$224)
                                                                                                                                                                     ((%closure
                                                                                                                                                                        (lambda (self$799
                                                                                                                                                                                 falsep$223)
                                                                                                                                                                          ((%closure
                                                                                                                                                                             (lambda (self$800
                                                                                                                                                                                      truep$222)
                                                                                                                                                                               ((%closure
                                                                                                                                                                                  (lambda (self$801
                                                                                                                                                                                           false-term$221)
                                                                                                                                                                                    ((%closure
                                                                                                                                                                                       (lambda (self$802
                                                                                                                                                                                                true-term$220)
                                                                                                                                                                                         ((%closure
                                                                                                                                                                                            (lambda (self$803
                                                                                                                                                                                                     trans-of-implies$219)
                                                                                                                                                                                              ((%closure
                                                                                                                                                                                                 (lambda (self$804
                                                                                                                                                                                                          trans-of-implies1$218)
                                                                                                                                                                                                   ((%closure
                                                                                                                                                                                                      (lambda (self$805
                                                                                                                                                                                                               term-equal?$217)
                                                                                                                                                                                                        ((%closure
                                                                                                                                                                                                           (lambda (self$806
                                                                                                                                                                                                                    term-args-equal?$216)
                                                                                                                                                                                                             ((%closure
                                                                                                                                                                                                                (lambda (self$807
                                                                                                                                                                                                                         term-member?$215)
                                                                                                                                                                                                                  ((%closure
                                                                                                                                                                                                                     (lambda (self$809
                                                                                                                                                                                                                              r$363)
                                                                                                                                                                                                                       ((%closure
                                                                                                                                                                                                                          (lambda (self$812
                                                                                                                                                                                                                                   r$364)
                                                                                                                                                                                                                            ((%closure
                                                                                                                                                                                                                               (lambda (self$819
                                                                                                                                                                                                                                        r$365)
                                                                                                                                                                                                                                 ((%closure
                                                                                                                                                                                                                                    (lambda (self$823
                                                                                                                                                                                                                                             r$366)
                                                                                                                                                                                                                                      ((%closure
                                                                                                                                                                                                                                         (lambda (self$827
                                                                                                                                                                                                                                                  r$367)
                                                                                                                                                                                                                                           ((%closure
                                                                                                                                                                                                                                              (lambda (self$830
                                                                                                                                                                                                                                                       r$368)
                                                                                                                                                                                                                                                ((%closure
                                                                                                                                                                                                                                                   (lambda (self$833
                                                                                                                                                                                                                                                            r$369)
                                                                                                                                                                                                                                                     ((%closure
                                                                                                                                                                                                                                                        (lambda (self$836
                                                                                                                                                                                                                                                                 r$370)
                                                                                                                                                                                                                                                          ((%closure
                                                                                                                                                                                                                                                             (lambda (self$842
                                                                                                                                                                                                                                                                      r$371)
                                                                                                                                                                                                                                                               ((%closure
                                                                                                                                                                                                                                                                  (lambda (self$843
                                                                                                                                                                                                                                                                           r$372)
                                                                                                                                                                                                                                                                    ((%closure
                                                                                                                                                                                                                                                                       (lambda (self$845
                                                                                                                                                                                                                                                                                r$373)
                                                                                                                                                                                                                                                                         ((%closure
                                                                                                                                                                                                                                                                            (lambda (self$847
                                                                                                                                                                                                                                                                                     r$374)
                                                                                                                                                                                                                                                                              ((%closure
                                                                                                                                                                                                                                                                                 (lambda (self$849
                                                                                                                                                                                                                                                                                          r$375)
                                                                                                                                                                                                                                                                                   ((%closure
                                                                                                                                                                                                                                                                                      (lambda (self$851
                                                                                                                                                                                                                                                                                               r$376)
                                                                                                                                                                                                                                                                                        ((%closure
                                                                                                                                                                                                                                                                                           (lambda (self$853
                                                                                                                                                                                                                                                                                                    r$377)
                                                                                                                                                                                                                                                                                             ((%closure
                                                                                                                                                                                                                                                                                                (lambda (self$865
                                                                                                                                                                                                                                                                                                         r$378)
                                                                                                                                                                                                                                                                                                  ((%closure
                                                                                                                                                                                                                                                                                                     (lambda (self$869
                                                                                                                                                                                                                                                                                                              r$379)
                                                                                                                                                                                                                                                                                                       ((%closure
                                                                                                                                                                                                                                                                                                          (lambda (self$872
                                                                                                                                                                                                                                                                                                                   r$380)
                                                                                                                                                                                                                                                                                                            ((%closure
                                                                                                                                                                                                                                                                                                               (lambda (self$876
                                                                                                                                                                                                                                                                                                                        r$381)
                                                                                                                                                                                                                                                                                                                 ((%closure
                                                                                                                                                                                                                                                                                                                    (lambda (self$879
                                                                                                                                                                                                                                                                                                                             r$382)
                                                                                                                                                                                                                                                                                                                      ((%closure
                                                                                                                                                                                                                                                                                                                         (lambda (self$886
                                                                                                                                                                                                                                                                                                                                  r$383)
                                                                                                                                                                                                                                                                                                                           ((%closure
                                                                                                                                                                                                                                                                                                                              (lambda (self$887
                                                                                                                                                                                                                                                                                                                                       r$384)
                                                                                                                                                                                                                                                                                                                                ((%closure
                                                                                                                                                                                                                                                                                                                                   (lambda (self$888
                                                                                                                                                                                                                                                                                                                                            r$385)
                                                                                                                                                                                                                                                                                                                                     ((%closure
                                                                                                                                                                                                                                                                                                                                        (lambda (self$892
                                                                                                                                                                                                                                                                                                                                                 r$386)
                                                                                                                                                                                                                                                                                                                                          ((%closure
                                                                                                                                                                                                                                                                                                                                             (lambda (self$898
                                                                                                                                                                                                                                                                                                                                                      r$387)
                                                                                                                                                                                                                                                                                                                                               ((%closure
                                                                                                                                                                                                                                                                                                                                                  (lambda (self$902
                                                                                                                                                                                                                                                                                                                                                           r$388)
                                                                                                                                                                                                                                                                                                                                                    ((%closure
                                                                                                                                                                                                                                                                                                                                                       (lambda (self$906
                                                                                                                                                                                                                                                                                                                                                                r$389)
                                                                                                                                                                                                                                                                                                                                                         ((%closure
                                                                                                                                                                                                                                                                                                                                                            (lambda (self$907
                                                                                                                                                                                                                                                                                                                                                                     r$390)
                                                                                                                                                                                                                                                                                                                                                              ((%closure
                                                                                                                                                                                                                                                                                                                                                                 (lambda (self$910
                                                                                                                                                                                                                                                                                                                                                                          r$391)
                                                                                                                                                                                                                                                                                                                                                                   ((%closure
                                                                                                                                                                                                                                                                                                                                                                      (lambda (self$915
                                                                                                                                                                                                                                                                                                                                                                               r$392)
                                                                                                                                                                                                                                                                                                                                                                        ((%closure
                                                                                                                                                                                                                                                                                                                                                                           (lambda (self$918
                                                                                                                                                                                                                                                                                                                                                                                    r$393)
                                                                                                                                                                                                                                                                                                                                                                             ((%closure
                                                                                                                                                                                                                                                                                                                                                                                (lambda (self$921
                                                                                                                                                                                                                                                                                                                                                                                         r$394)
                                                                                                                                                                                                                                                                                                                                                                                  ((%closure
                                                                                                                                                                                                                                                                                                                                                                                     (lambda (self$924
                                                                                                                                                                                                                                                                                                                                                                                              r$395)
                                                                                                                                                                                                                                                                                                                                                                                       ((%closure
                                                                                                                                                                                                                                                                                                                                                                                          (lambda (self$925
                                                                                                                                                                                                                                                                                                                                                                                                   r$396)
                                                                                                                                                                                                                                                                                                                                                                                            ((%closure
                                                                                                                                                                                                                                                                                                                                                                                               (lambda (self$926
                                                                                                                                                                                                                                                                                                                                                                                                        r$397)
                                                                                                                                                                                                                                                                                                                                                                                                 ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                    (lambda (self$931
                                                                                                                                                                                                                                                                                                                                                                                                             r$398)
                                                                                                                                                                                                                                                                                                                                                                                                      ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                         (lambda (self$937
                                                                                                                                                                                                                                                                                                                                                                                                                  r$399)
                                                                                                                                                                                                                                                                                                                                                                                                           ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                              (lambda (self$939
                                                                                                                                                                                                                                                                                                                                                                                                                       r$400)
                                                                                                                                                                                                                                                                                                                                                                                                                ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                   (lambda (self$942
                                                                                                                                                                                                                                                                                                                                                                                                                            r$401)
                                                                                                                                                                                                                                                                                                                                                                                                                     ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                        (lambda (self$945
                                                                                                                                                                                                                                                                                                                                                                                                                                 r$402)
                                                                                                                                                                                                                                                                                                                                                                                                                          ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                             (lambda (self$954
                                                                                                                                                                                                                                                                                                                                                                                                                                      r$403)
                                                                                                                                                                                                                                                                                                                                                                                                                               ((lambda (r$362)
                                                                                                                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                     main
                                                                                                                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                                                                                                                   main
                                                                                                                                                                                                                                                                                                                                                                                                                                   %halt))
                                                                                                                                                                                                                                                                                                                                                                                                                                (set-global!
                                                                                                                                                                                                                                                                                                                                                                                                                                  test-boyer
                                                                                                                                                                                                                                                                                                                                                                                                                                  (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                    (lambda (self$955
                                                                                                                                                                                                                                                                                                                                                                                                                                             k$405
                                                                                                                                                                                                                                                                                                                                                                                                                                             alist$257
                                                                                                                                                                                                                                                                                                                                                                                                                                             term$256
                                                                                                                                                                                                                                                                                                                                                                                                                                             n$255)
                                                                                                                                                                                                                                                                                                                                                                                                                                      ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                         (lambda (self$956
                                                                                                                                                                                                                                                                                                                                                                                                                                                  r$406)
                                                                                                                                                                                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                  self$956
                                                                                                                                                                                                                                                                                                                                                                                                                                                  6))
                                                                                                                                                                                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$956
                                                                                                                                                                                                                                                                                                                                                                                                                                                6))
                                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                              (lambda (self$957
                                                                                                                                                                                                                                                                                                                                                                                                                                                       answer$258)
                                                                                                                                                                                                                                                                                                                                                                                                                                                (if answer$258
                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                       self$957
                                                                                                                                                                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     self$957
                                                                                                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                       self$957
                                                                                                                                                                                                                                                                                                                                                                                                                                                       2)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                       self$957
                                                                                                                                                                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     self$957
                                                                                                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                   #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$956
                                                                                                                                                                                                                                                                                                                                                                                                                                                2)
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$956
                                                                                                                                                                                                                                                                                                                                                                                                                                                4))
                                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                              self$956
                                                                                                                                                                                                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                              self$956
                                                                                                                                                                                                                                                                                                                                                                                                                                              5)
                                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                              self$956
                                                                                                                                                                                                                                                                                                                                                                                                                                              3)))
                                                                                                                                                                                                                                                                                                                                                                                                                                         alist$257
                                                                                                                                                                                                                                                                                                                                                                                                                                         k$405
                                                                                                                                                                                                                                                                                                                                                                                                                                         n$255
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$955
                                                                                                                                                                                                                                                                                                                                                                                                                                           1)
                                                                                                                                                                                                                                                                                                                                                                                                                                         term$256
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$955
                                                                                                                                                                                                                                                                                                                                                                                                                                           2))
                                                                                                                                                                                                                                                                                                                                                                                                                                       (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$955
                                                                                                                                                                                                                                                                                                                                                                                                                                           1)
                                                                                                                                                                                                                                                                                                                                                                                                                                         0)))
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$954
                                                                                                                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$954
                                                                                                                                                                                                                                                                                                                                                                                                                                      2)))))
                                                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                               self$945
                                                                                                                                                                                                                                                                                                                                                                                                                               5)
                                                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                               self$945
                                                                                                                                                                                                                                                                                                                                                                                                                               7))
                                                                                                                                                                                                                                                                                                                                                                                                                           (set-global!
                                                                                                                                                                                                                                                                                                                                                                                                                             setup-boyer
                                                                                                                                                                                                                                                                                                                                                                                                                             (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                               (lambda (self$946
                                                                                                                                                                                                                                                                                                                                                                                                                                        k$409)
                                                                                                                                                                                                                                                                                                                                                                                                                                 ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                    (lambda (self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                             r$410)
                                                                                                                                                                                                                                                                                                                                                                                                                                      ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                         (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                             self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                             5))
                                                                                                                                                                                                                                                                                                                                                                                                                                         0)
                                                                                                                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                           5))
                                                                                                                                                                                                                                                                                                                                                                                                                                       (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                         (lambda (self$948
                                                                                                                                                                                                                                                                                                                                                                                                                                                  r$418)
                                                                                                                                                                                                                                                                                                                                                                                                                                           ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                              (lambda (self$949
                                                                                                                                                                                                                                                                                                                                                                                                                                                       r$411)
                                                                                                                                                                                                                                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                       self$949
                                                                                                                                                                                                                                                                                                                                                                                                                                                       4))
                                                                                                                                                                                                                                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                 (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     self$949
                                                                                                                                                                                                                                                                                                                                                                                                                                                     4))
                                                                                                                                                                                                                                                                                                                                                                                                                                                 (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (lambda (self$950
                                                                                                                                                                                                                                                                                                                                                                                                                                                            r$416)
                                                                                                                                                                                                                                                                                                                                                                                                                                                     ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (lambda (self$951
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 r$412)
                                                                                                                                                                                                                                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 self$951
                                                                                                                                                                                                                                                                                                                                                                                                                                                                 3))
                                                                                                                                                                                                                                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                               self$951
                                                                                                                                                                                                                                                                                                                                                                                                                                                               3))
                                                                                                                                                                                                                                                                                                                                                                                                                                                           (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (lambda (self$952
                                                                                                                                                                                                                                                                                                                                                                                                                                                                      r$414)
                                                                                                                                                                                                                                                                                                                                                                                                                                                               ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (lambda (self$953
                                                                                                                                                                                                                                                                                                                                                                                                                                                                           r$413)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                           self$953
                                                                                                                                                                                                                                                                                                                                                                                                                                                                           1))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         self$953
                                                                                                                                                                                                                                                                                                                                                                                                                                                                         1))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       self$953
                                                                                                                                                                                                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                     '((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$952
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    self$952
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    2))
                                                                                                                                                                                                                                                                                                                                                                                                                                                                (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    self$952
                                                                                                                                                                                                                                                                                                                                                                                                                                                                    3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                                  r$414)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                               self$951
                                                                                                                                                                                                                                                                                                                                                                                                                                                               1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                               self$951
                                                                                                                                                                                                                                                                                                                                                                                                                                                               2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                               self$951
                                                                                                                                                                                                                                                                                                                                                                                                                                                               4))
                                                                                                                                                                                                                                                                                                                                                                                                                                                           '(t)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                          self$950
                                                                                                                                                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                          self$950
                                                                                                                                                                                                                                                                                                                                                                                                                                                          3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                          self$950
                                                                                                                                                                                                                                                                                                                                                                                                                                                          4)
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                          self$950
                                                                                                                                                                                                                                                                                                                                                                                                                                                          5))
                                                                                                                                                                                                                                                                                                                                                                                                                                                      (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                          self$950
                                                                                                                                                                                                                                                                                                                                                                                                                                                          2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                        r$416)))
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     self$949
                                                                                                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     self$949
                                                                                                                                                                                                                                                                                                                                                                                                                                                     2)
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     self$949
                                                                                                                                                                                                                                                                                                                                                                                                                                                     3)
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     self$949
                                                                                                                                                                                                                                                                                                                                                                                                                                                     4)
                                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                     self$949
                                                                                                                                                                                                                                                                                                                                                                                                                                                     5))
                                                                                                                                                                                                                                                                                                                                                                                                                                                 '(f)))
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$948
                                                                                                                                                                                                                                                                                                                                                                                                                                                1)
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$948
                                                                                                                                                                                                                                                                                                                                                                                                                                                2)
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$948
                                                                                                                                                                                                                                                                                                                                                                                                                                                4)
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$948
                                                                                                                                                                                                                                                                                                                                                                                                                                                5)
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$948
                                                                                                                                                                                                                                                                                                                                                                                                                                                6))
                                                                                                                                                                                                                                                                                                                                                                                                                                            (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                                self$948
                                                                                                                                                                                                                                                                                                                                                                                                                                                3)
                                                                                                                                                                                                                                                                                                                                                                                                                                              r$418)))
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                           1)
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                           2)
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                           4)
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                           6)
                                                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                           self$947
                                                                                                                                                                                                                                                                                                                                                                                                                                           7))
                                                                                                                                                                                                                                                                                                                                                                                                                                       'if))
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$946
                                                                                                                                                                                                                                                                                                                                                                                                                                      2)
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$946
                                                                                                                                                                                                                                                                                                                                                                                                                                      3)
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$946
                                                                                                                                                                                                                                                                                                                                                                                                                                      4)
                                                                                                                                                                                                                                                                                                                                                                                                                                    k$409
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$946
                                                                                                                                                                                                                                                                                                                                                                                                                                      5)
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$946
                                                                                                                                                                                                                                                                                                                                                                                                                                      6)
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$946
                                                                                                                                                                                                                                                                                                                                                                                                                                      7))
                                                                                                                                                                                                                                                                                                                                                                                                                                  (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$946
                                                                                                                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                                                                                                                    '())))
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 self$945
                                                                                                                                                                                                                                                                                                                                                                                                                                 1)
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 self$945
                                                                                                                                                                                                                                                                                                                                                                                                                                 2)
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 self$945
                                                                                                                                                                                                                                                                                                                                                                                                                                 3)
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 self$945
                                                                                                                                                                                                                                                                                                                                                                                                                                 4)
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 self$945
                                                                                                                                                                                                                                                                                                                                                                                                                                 6)
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 self$945
                                                                                                                                                                                                                                                                                                                                                                                                                                 8)
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 self$945
                                                                                                                                                                                                                                                                                                                                                                                                                                 9)))))
                                                                                                                                                                                                                                                                                                                                                                                                                        (%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)
                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                          self$942
                                                                                                                                                                                                                                                                                                                                                                                                                          6)
                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                          self$942
                                                                                                                                                                                                                                                                                                                                                                                                                          9)
                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                          self$942
                                                                                                                                                                                                                                                                                                                                                                                                                          10)
                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                          self$942
                                                                                                                                                                                                                                                                                                                                                                                                                          11))
                                                                                                                                                                                                                                                                                                                                                                                                                      (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                          self$942
                                                                                                                                                                                                                                                                                                                                                                                                                          8)
                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                          (lambda (self$943
                                                                                                                                                                                                                                                                                                                                                                                                                                   k$422
                                                                                                                                                                                                                                                                                                                                                                                                                                   x$260
                                                                                                                                                                                                                                                                                                                                                                                                                                   lst$259)
                                                                                                                                                                                                                                                                                                                                                                                                                            (if (null? lst$259)
                                                                                                                                                                                                                                                                                                                                                                                                                              ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 k$422
                                                                                                                                                                                                                                                                                                                                                                                                                                 0)
                                                                                                                                                                                                                                                                                                                                                                                                                               k$422
                                                                                                                                                                                                                                                                                                                                                                                                                               #f)
                                                                                                                                                                                                                                                                                                                                                                                                                              ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                     self$943
                                                                                                                                                                                                                                                                                                                                                                                                                                     1))
                                                                                                                                                                                                                                                                                                                                                                                                                                 0)
                                                                                                                                                                                                                                                                                                                                                                                                                               (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                   self$943
                                                                                                                                                                                                                                                                                                                                                                                                                                   1))
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                 (lambda (self$944
                                                                                                                                                                                                                                                                                                                                                                                                                                          r$424)
                                                                                                                                                                                                                                                                                                                                                                                                                                   (if r$424
                                                                                                                                                                                                                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                          self$944
                                                                                                                                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                        self$944
                                                                                                                                                                                                                                                                                                                                                                                                                                        1)
                                                                                                                                                                                                                                                                                                                                                                                                                                      #t)
                                                                                                                                                                                                                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                            self$944
                                                                                                                                                                                                                                                                                                                                                                                                                                            3))
                                                                                                                                                                                                                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                                                                                                                                                                                                                      (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                          self$944
                                                                                                                                                                                                                                                                                                                                                                                                                                          3))
                                                                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                        self$944
                                                                                                                                                                                                                                                                                                                                                                                                                                        1)
                                                                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                        self$944
                                                                                                                                                                                                                                                                                                                                                                                                                                        4)
                                                                                                                                                                                                                                                                                                                                                                                                                                      (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                             self$944
                                                                                                                                                                                                                                                                                                                                                                                                                                             2)))))
                                                                                                                                                                                                                                                                                                                                                                                                                                 k$422
                                                                                                                                                                                                                                                                                                                                                                                                                                 lst$259
                                                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                   self$943
                                                                                                                                                                                                                                                                                                                                                                                                                                   2)
                                                                                                                                                                                                                                                                                                                                                                                                                                 x$260)
                                                                                                                                                                                                                                                                                                                                                                                                                               x$260
                                                                                                                                                                                                                                                                                                                                                                                                                               (car lst$259))))
                                                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                            self$942
                                                                                                                                                                                                                                                                                                                                                                                                                            7)
                                                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                            self$942
                                                                                                                                                                                                                                                                                                                                                                                                                            8)))))
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     self$939
                                                                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     self$939
                                                                                                                                                                                                                                                                                                                                                                                                                     2)
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     self$939
                                                                                                                                                                                                                                                                                                                                                                                                                     3)
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     self$939
                                                                                                                                                                                                                                                                                                                                                                                                                     4)
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     self$939
                                                                                                                                                                                                                                                                                                                                                                                                                     5)
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     self$939
                                                                                                                                                                                                                                                                                                                                                                                                                     6)
                                                                                                                                                                                                                                                                                                                                                                                                                   (%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))
                                                                                                                                                                                                                                                                                                                                                                                                                 (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     self$939
                                                                                                                                                                                                                                                                                                                                                                                                                     7)
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                     (lambda (self$940
                                                                                                                                                                                                                                                                                                                                                                                                                              k$428
                                                                                                                                                                                                                                                                                                                                                                                                                              lst1$262
                                                                                                                                                                                                                                                                                                                                                                                                                              lst2$261)
                                                                                                                                                                                                                                                                                                                                                                                                                       (if (null? lst1$262)
                                                                                                                                                                                                                                                                                                                                                                                                                         ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                            k$428
                                                                                                                                                                                                                                                                                                                                                                                                                            0)
                                                                                                                                                                                                                                                                                                                                                                                                                          k$428
                                                                                                                                                                                                                                                                                                                                                                                                                          (null? lst2$261))
                                                                                                                                                                                                                                                                                                                                                                                                                         (if (null? lst2$261)
                                                                                                                                                                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                              k$428
                                                                                                                                                                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                                                                                                                                                                            k$428
                                                                                                                                                                                                                                                                                                                                                                                                                            #f)
                                                                                                                                                                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                  self$940
                                                                                                                                                                                                                                                                                                                                                                                                                                  2))
                                                                                                                                                                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                self$940
                                                                                                                                                                                                                                                                                                                                                                                                                                2))
                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                              (lambda (self$941
                                                                                                                                                                                                                                                                                                                                                                                                                                       r$431)
                                                                                                                                                                                                                                                                                                                                                                                                                                (if r$431
                                                                                                                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                         self$941
                                                                                                                                                                                                                                                                                                                                                                                                                                         4))
                                                                                                                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                       self$941
                                                                                                                                                                                                                                                                                                                                                                                                                                       4))
                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                     self$941
                                                                                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                                                                                   (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                          self$941
                                                                                                                                                                                                                                                                                                                                                                                                                                          2))
                                                                                                                                                                                                                                                                                                                                                                                                                                   (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                          self$941
                                                                                                                                                                                                                                                                                                                                                                                                                                          3)))
                                                                                                                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                       self$941
                                                                                                                                                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                     self$941
                                                                                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                                                                                   #f)))
                                                                                                                                                                                                                                                                                                                                                                                                                              k$428
                                                                                                                                                                                                                                                                                                                                                                                                                              lst1$262
                                                                                                                                                                                                                                                                                                                                                                                                                              lst2$261
                                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                self$940
                                                                                                                                                                                                                                                                                                                                                                                                                                1))
                                                                                                                                                                                                                                                                                                                                                                                                                            (car lst1$262)
                                                                                                                                                                                                                                                                                                                                                                                                                            (car lst2$261)))))
                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                       self$939
                                                                                                                                                                                                                                                                                                                                                                                                                       7)
                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                       self$939
                                                                                                                                                                                                                                                                                                                                                                                                                       8)))))
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                1)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                2)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                3)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                4)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                5)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                6)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                7)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                8)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                9)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                10)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                11)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                12))
                                                                                                                                                                                                                                                                                                                                                                                                            (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$937
                                                                                                                                                                                                                                                                                                                                                                                                                8)
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                (lambda (self$938
                                                                                                                                                                                                                                                                                                                                                                                                                         k$437
                                                                                                                                                                                                                                                                                                                                                                                                                         x$264
                                                                                                                                                                                                                                                                                                                                                                                                                         y$263)
                                                                                                                                                                                                                                                                                                                                                                                                                  (if (pair? x$264)
                                                                                                                                                                                                                                                                                                                                                                                                                    (if (pair? y$263)
                                                                                                                                                                                                                                                                                                                                                                                                                      (if (eq? (car x$264)
                                                                                                                                                                                                                                                                                                                                                                                                                               (car y$263))
                                                                                                                                                                                                                                                                                                                                                                                                                        ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                               self$938
                                                                                                                                                                                                                                                                                                                                                                                                                               1))
                                                                                                                                                                                                                                                                                                                                                                                                                           0)
                                                                                                                                                                                                                                                                                                                                                                                                                         (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                             self$938
                                                                                                                                                                                                                                                                                                                                                                                                                             1))
                                                                                                                                                                                                                                                                                                                                                                                                                         k$437
                                                                                                                                                                                                                                                                                                                                                                                                                         (cdr x$264)
                                                                                                                                                                                                                                                                                                                                                                                                                         (cdr y$263))
                                                                                                                                                                                                                                                                                                                                                                                                                        ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                           k$437
                                                                                                                                                                                                                                                                                                                                                                                                                           0)
                                                                                                                                                                                                                                                                                                                                                                                                                         k$437
                                                                                                                                                                                                                                                                                                                                                                                                                         #f))
                                                                                                                                                                                                                                                                                                                                                                                                                      ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                         k$437
                                                                                                                                                                                                                                                                                                                                                                                                                         0)
                                                                                                                                                                                                                                                                                                                                                                                                                       k$437
                                                                                                                                                                                                                                                                                                                                                                                                                       #f))
                                                                                                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                       k$437
                                                                                                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                                                                                                     k$437
                                                                                                                                                                                                                                                                                                                                                                                                                     (equal?
                                                                                                                                                                                                                                                                                                                                                                                                                       x$264
                                                                                                                                                                                                                                                                                                                                                                                                                       y$263))))
                                                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                  self$937
                                                                                                                                                                                                                                                                                                                                                                                                                  7)))))
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           1)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           2)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           4)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           5)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           6)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           7)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           8)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           9)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           10)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           12)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           13))
                                                                                                                                                                                                                                                                                                                                                                                                       (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           self$931
                                                                                                                                                                                                                                                                                                                                                                                                           11)
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure
                                                                                                                                                                                                                                                                                                                                                                                                           (lambda (self$932
                                                                                                                                                                                                                                                                                                                                                                                                                    k$446
                                                                                                                                                                                                                                                                                                                                                                                                                    n$265)
                                                                                                                                                                                                                                                                                                                                                                                                             ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                (lambda (self$933
                                                                                                                                                                                                                                                                                                                                                                                                                         r$447)
                                                                                                                                                                                                                                                                                                                                                                                                                  (if r$447
                                                                                                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                       list
                                                                                                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                                                                                                     list
                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                       self$933
                                                                                                                                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                                                                                                                                     'implies
                                                                                                                                                                                                                                                                                                                                                                                                                     0
                                                                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                                                                    ((%closure
                                                                                                                                                                                                                                                                                                                                                                                                                       (lambda (self$934
                                                                                                                                                                                                                                                                                                                                                                                                                                r$454)
                                                                                                                                                                                                                                                                                                                                                                                                                         ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                            list
                                                                                                                                                                                                                                                                                                                                                                                                                            0)
                                                                                                                                                                                                                                                                                                                                                                                                                          list
                                                                                                                                                                                                                                                                                                                                                                                                                          (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                            (lambda (self$935
                                                                                                                                                                                                                                                                                                                                                                                                                                     r$450)
                                                                                                                                                                                                                                                                                                                                                                                                                              ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                 (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                     self$935
                                                                                                                                                                                                                                                                                                                                                                                                                                     3))
                                                                                                                                                                                                                                                                                                                                                                                                                                 0)
                                                                                                                                                                                                                                                                                                                                                                                                                               (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                   self$935
                                                                                                                                                                                                                                                                                                                                                                                                                                   3))
                                                                                                                                                                                                                                                                                                                                                                                                                               (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                                 (lambda (self$936
                                                                                                                                                                                                                                                                                                                                                                                                                                          r$451)
                                                                                                                                                                                                                                                                                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      list
                                                                                                                                                                                                                                                                                                                                                                                                                                      0)
                                                                                                                                                                                                                                                                                                                                                                                                                                    list
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$936
                                                                                                                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                                                                                                                    'and
                                                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                      self$936
                                                                                                                                                                                                                                                                                                                                                                                                                                      2)
                                                                                                                                                                                                                                                                                                                                                                                                                                    r$451))
                                                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                   self$935
                                                                                                                                                                                                                                                                                                                                                                                                                                   1)
                                                                                                                                                                                                                                                                                                                                                                                                                                 r$450)
                                                                                                                                                                                                                                                                                                                                                                                                                               (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                                   self$935
                                                                                                                                                                                                                                                                                                                                                                                                                                   2)
                                                                                                                                                                                                                                                                                                                                                                                                                                 1)))
                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                              self$934
                                                                                                                                                                                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                              self$934
                                                                                                                                                                                                                                                                                                                                                                                                                              2)
                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                              self$934
                                                                                                                                                                                                                                                                                                                                                                                                                              3))
                                                                                                                                                                                                                                                                                                                                                                                                                          'implies
                                                                                                                                                                                                                                                                                                                                                                                                                          r$454
                                                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                            self$934
                                                                                                                                                                                                                                                                                                                                                                                                                            2)))
                                                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                         self$933
                                                                                                                                                                                                                                                                                                                                                                                                                         1)
                                                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                         self$933
                                                                                                                                                                                                                                                                                                                                                                                                                         2)
                                                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                         self$933
                                                                                                                                                                                                                                                                                                                                                                                                                         3))
                                                                                                                                                                                                                                                                                                                                                                                                                     (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                         self$933
                                                                                                                                                                                                                                                                                                                                                                                                                         2)
                                                                                                                                                                                                                                                                                                                                                                                                                       1))))
                                                                                                                                                                                                                                                                                                                                                                                                                k$446
                                                                                                                                                                                                                                                                                                                                                                                                                n$265
                                                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                  self$932
                                                                                                                                                                                                                                                                                                                                                                                                                  1))
                                                                                                                                                                                                                                                                                                                                                                                                              (equal?
                                                                                                                                                                                                                                                                                                                                                                                                                n$265
                                                                                                                                                                                                                                                                                                                                                                                                                1)))
                                                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                             self$931
                                                                                                                                                                                                                                                                                                                                                                                                             11)))))
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      2)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      3)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      4)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      5)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      6)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      7)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      8)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      9)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      10)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      12)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      13)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      14))
                                                                                                                                                                                                                                                                                                                                                                                                  (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                      self$926
                                                                                                                                                                                                                                                                                                                                                                                                      11)
                                                                                                                                                                                                                                                                                                                                                                                                    (%closure
                                                                                                                                                                                                                                                                                                                                                                                                      (lambda (self$927
                                                                                                                                                                                                                                                                                                                                                                                                               k$456
                                                                                                                                                                                                                                                                                                                                                                                                               n$266)
                                                                                                                                                                                                                                                                                                                                                                                                        ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                               self$927
                                                                                                                                                                                                                                                                                                                                                                                                               1))
                                                                                                                                                                                                                                                                                                                                                                                                           0)
                                                                                                                                                                                                                                                                                                                                                                                                         (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                             self$927
                                                                                                                                                                                                                                                                                                                                                                                                             1))
                                                                                                                                                                                                                                                                                                                                                                                                         (%closure
                                                                                                                                                                                                                                                                                                                                                                                                           (lambda (self$928
                                                                                                                                                                                                                                                                                                                                                                                                                    r$459)
                                                                                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                list
                                                                                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                                                                                              list
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                (lambda (self$929
                                                                                                                                                                                                                                                                                                                                                                                                                         r$460)
                                                                                                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     list
                                                                                                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                                                                                                   list
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure
                                                                                                                                                                                                                                                                                                                                                                                                                     (lambda (self$930
                                                                                                                                                                                                                                                                                                                                                                                                                              r$457)
                                                                                                                                                                                                                                                                                                                                                                                                                       ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                              self$930
                                                                                                                                                                                                                                                                                                                                                                                                                              2))
                                                                                                                                                                                                                                                                                                                                                                                                                          0)
                                                                                                                                                                                                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                            self$930
                                                                                                                                                                                                                                                                                                                                                                                                                            2))
                                                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                          self$930
                                                                                                                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                                                                                                                        r$457))
                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                       self$929
                                                                                                                                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                       self$929
                                                                                                                                                                                                                                                                                                                                                                                                                       3))
                                                                                                                                                                                                                                                                                                                                                                                                                   'implies
                                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                     self$929
                                                                                                                                                                                                                                                                                                                                                                                                                     2)
                                                                                                                                                                                                                                                                                                                                                                                                                   r$460))
                                                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                  self$928
                                                                                                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                                                                                                r$459
                                                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                  self$928
                                                                                                                                                                                                                                                                                                                                                                                                                  3))
                                                                                                                                                                                                                                                                                                                                                                                                              'implies
                                                                                                                                                                                                                                                                                                                                                                                                              0
                                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                                self$928
                                                                                                                                                                                                                                                                                                                                                                                                                2)))
                                                                                                                                                                                                                                                                                                                                                                                                           k$456
                                                                                                                                                                                                                                                                                                                                                                                                           n$266
                                                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                             self$927
                                                                                                                                                                                                                                                                                                                                                                                                             2))
                                                                                                                                                                                                                                                                                                                                                                                                         n$266))
                                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                        self$926
                                                                                                                                                                                                                                                                                                                                                                                                        12)
                                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                        self$926
                                                                                                                                                                                                                                                                                                                                                                                                        13)))))
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 1)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 2)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 3)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 4)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 5)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 6)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 7)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 8)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 9)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 10)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 11)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 12)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 13)
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 14))
                                                                                                                                                                                                                                                                                                                                                                                             (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$925
                                                                                                                                                                                                                                                                                                                                                                                                 14)
                                                                                                                                                                                                                                                                                                                                                                                               '*)))
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            1)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            2)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            3)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            4)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            5)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            6)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            7)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            8)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            9)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            10)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            11)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            12)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            13)
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            14))
                                                                                                                                                                                                                                                                                                                                                                                        (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            self$924
                                                                                                                                                                                                                                                                                                                                                                                            3)
                                                                                                                                                                                                                                                                                                                                                                                          '*)))
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       3)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       4)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       5)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       6)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       7)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       8)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       9)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       10)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       11)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       12)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       13)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       14))
                                                                                                                                                                                                                                                                                                                                                                                   (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$921
                                                                                                                                                                                                                                                                                                                                                                                       15)
                                                                                                                                                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                                                                                                                                                       (lambda (self$922
                                                                                                                                                                                                                                                                                                                                                                                                k$465
                                                                                                                                                                                                                                                                                                                                                                                                x$268
                                                                                                                                                                                                                                                                                                                                                                                                lst$267)
                                                                                                                                                                                                                                                                                                                                                                                         ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                self$922
                                                                                                                                                                                                                                                                                                                                                                                                1))
                                                                                                                                                                                                                                                                                                                                                                                            0)
                                                                                                                                                                                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              self$922
                                                                                                                                                                                                                                                                                                                                                                                              1))
                                                                                                                                                                                                                                                                                                                                                                                          (%closure
                                                                                                                                                                                                                                                                                                                                                                                            (lambda (self$923
                                                                                                                                                                                                                                                                                                                                                                                                     tmp$120$269)
                                                                                                                                                                                                                                                                                                                                                                                              (if tmp$120$269
                                                                                                                                                                                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                     self$923
                                                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                   self$923
                                                                                                                                                                                                                                                                                                                                                                                                   1)
                                                                                                                                                                                                                                                                                                                                                                                                 tmp$120$269)
                                                                                                                                                                                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                       self$923
                                                                                                                                                                                                                                                                                                                                                                                                       3))
                                                                                                                                                                                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                                                                                                                                                                                 (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                     self$923
                                                                                                                                                                                                                                                                                                                                                                                                     3))
                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                   self$923
                                                                                                                                                                                                                                                                                                                                                                                                   1)
                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                   self$923
                                                                                                                                                                                                                                                                                                                                                                                                   4)
                                                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                   self$923
                                                                                                                                                                                                                                                                                                                                                                                                   2))))
                                                                                                                                                                                                                                                                                                                                                                                            k$465
                                                                                                                                                                                                                                                                                                                                                                                            lst$267
                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              self$922
                                                                                                                                                                                                                                                                                                                                                                                              2)
                                                                                                                                                                                                                                                                                                                                                                                            x$268)
                                                                                                                                                                                                                                                                                                                                                                                          x$268
                                                                                                                                                                                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              self$922
                                                                                                                                                                                                                                                                                                                                                                                              3))))
                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                         self$921
                                                                                                                                                                                                                                                                                                                                                                                         8)
                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                         self$921
                                                                                                                                                                                                                                                                                                                                                                                         9)
                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                         self$921
                                                                                                                                                                                                                                                                                                                                                                                         14)))))
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  2)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  3)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  5)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  6)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  7)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  8)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  9)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  10)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  11)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  12)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  13)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  14)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  15)
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  16))
                                                                                                                                                                                                                                                                                                                                                                              (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                  self$918
                                                                                                                                                                                                                                                                                                                                                                                  4)
                                                                                                                                                                                                                                                                                                                                                                                (%closure
                                                                                                                                                                                                                                                                                                                                                                                  (lambda (self$919
                                                                                                                                                                                                                                                                                                                                                                                           k$468
                                                                                                                                                                                                                                                                                                                                                                                           x$271
                                                                                                                                                                                                                                                                                                                                                                                           lst$270)
                                                                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                           self$919
                                                                                                                                                                                                                                                                                                                                                                                           2))
                                                                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                         self$919
                                                                                                                                                                                                                                                                                                                                                                                         2))
                                                                                                                                                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                                                                                                                                                       (lambda (self$920
                                                                                                                                                                                                                                                                                                                                                                                                tmp$117$272)
                                                                                                                                                                                                                                                                                                                                                                                         (if tmp$117$272
                                                                                                                                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                self$920
                                                                                                                                                                                                                                                                                                                                                                                                1)
                                                                                                                                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              self$920
                                                                                                                                                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                                                                                                                                                            tmp$117$272)
                                                                                                                                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                  self$920
                                                                                                                                                                                                                                                                                                                                                                                                  3))
                                                                                                                                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                self$920
                                                                                                                                                                                                                                                                                                                                                                                                3))
                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              self$920
                                                                                                                                                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              self$920
                                                                                                                                                                                                                                                                                                                                                                                              4)
                                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                              self$920
                                                                                                                                                                                                                                                                                                                                                                                              2))))
                                                                                                                                                                                                                                                                                                                                                                                       k$468
                                                                                                                                                                                                                                                                                                                                                                                       lst$270
                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                         self$919
                                                                                                                                                                                                                                                                                                                                                                                         3)
                                                                                                                                                                                                                                                                                                                                                                                       x$271)
                                                                                                                                                                                                                                                                                                                                                                                     x$271
                                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                         self$919
                                                                                                                                                                                                                                                                                                                                                                                         1))))
                                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                    self$918
                                                                                                                                                                                                                                                                                                                                                                                    3)
                                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                    self$918
                                                                                                                                                                                                                                                                                                                                                                                    9)
                                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                    self$918
                                                                                                                                                                                                                                                                                                                                                                                    10)))))
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$915
                                                                                                                                                                                                                                                                                                                                                                             1)
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$915
                                                                                                                                                                                                                                                                                                                                                                             2)
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$915
                                                                                                                                                                                                                                                                                                                                                                             3)
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$915
                                                                                                                                                                                                                                                                                                                                                                             4)
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$915
                                                                                                                                                                                                                                                                                                                                                                             5)
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$915
                                                                                                                                                                                                                                                                                                                                                                             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))
                                                                                                                                                                                                                                                                                                                                                                         (set-cell!
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$915
                                                                                                                                                                                                                                                                                                                                                                             7)
                                                                                                                                                                                                                                                                                                                                                                           (%closure
                                                                                                                                                                                                                                                                                                                                                                             (lambda (self$916
                                                                                                                                                                                                                                                                                                                                                                                      k$471
                                                                                                                                                                                                                                                                                                                                                                                      lst1$274
                                                                                                                                                                                                                                                                                                                                                                                      lst2$273)
                                                                                                                                                                                                                                                                                                                                                                               (if (null? lst1$274)
                                                                                                                                                                                                                                                                                                                                                                                 ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                    k$471
                                                                                                                                                                                                                                                                                                                                                                                    0)
                                                                                                                                                                                                                                                                                                                                                                                  k$471
                                                                                                                                                                                                                                                                                                                                                                                  (null? lst2$273))
                                                                                                                                                                                                                                                                                                                                                                                 (if (null? lst2$273)
                                                                                                                                                                                                                                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                      k$471
                                                                                                                                                                                                                                                                                                                                                                                      0)
                                                                                                                                                                                                                                                                                                                                                                                    k$471
                                                                                                                                                                                                                                                                                                                                                                                    #f)
                                                                                                                                                                                                                                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                      (cell-get
                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                          self$916
                                                                                                                                                                                                                                                                                                                                                                                          1))
                                                                                                                                                                                                                                                                                                                                                                                      0)
                                                                                                                                                                                                                                                                                                                                                                                    (cell-get
                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                        self$916
                                                                                                                                                                                                                                                                                                                                                                                        1))
                                                                                                                                                                                                                                                                                                                                                                                    (%closure
                                                                                                                                                                                                                                                                                                                                                                                      (lambda (self$917
                                                                                                                                                                                                                                                                                                                                                                                               r$474)
                                                                                                                                                                                                                                                                                                                                                                                        (if r$474
                                                                                                                                                                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                             (cell-get
                                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                 self$917
                                                                                                                                                                                                                                                                                                                                                                                                 4))
                                                                                                                                                                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                               self$917
                                                                                                                                                                                                                                                                                                                                                                                               4))
                                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                             self$917
                                                                                                                                                                                                                                                                                                                                                                                             1)
                                                                                                                                                                                                                                                                                                                                                                                           (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                  self$917
                                                                                                                                                                                                                                                                                                                                                                                                  2))
                                                                                                                                                                                                                                                                                                                                                                                           (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                  self$917
                                                                                                                                                                                                                                                                                                                                                                                                  3)))
                                                                                                                                                                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                               self$917
                                                                                                                                                                                                                                                                                                                                                                                               1)
                                                                                                                                                                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                             self$917
                                                                                                                                                                                                                                                                                                                                                                                             1)
                                                                                                                                                                                                                                                                                                                                                                                           #f)))
                                                                                                                                                                                                                                                                                                                                                                                      k$471
                                                                                                                                                                                                                                                                                                                                                                                      lst1$274
                                                                                                                                                                                                                                                                                                                                                                                      lst2$273
                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                        self$916
                                                                                                                                                                                                                                                                                                                                                                                        2))
                                                                                                                                                                                                                                                                                                                                                                                    (car lst1$274)
                                                                                                                                                                                                                                                                                                                                                                                    (car lst2$273)))))
                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                               self$915
                                                                                                                                                                                                                                                                                                                                                                               6)
                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                               self$915
                                                                                                                                                                                                                                                                                                                                                                               7)))))
                                                                                                                                                                                                                                                                                                                                                                      (%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))
                                                                                                                                                                                                                                                                                                                                                                    (set-cell!
                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                        self$910
                                                                                                                                                                                                                                                                                                                                                                        6)
                                                                                                                                                                                                                                                                                                                                                                      (%closure
                                                                                                                                                                                                                                                                                                                                                                        (lambda (self$911
                                                                                                                                                                                                                                                                                                                                                                                 k$480
                                                                                                                                                                                                                                                                                                                                                                                 term1$276
                                                                                                                                                                                                                                                                                                                                                                                 term2$275)
                                                                                                                                                                                                                                                                                                                                                                          (if (pair? term2$275)
                                                                                                                                                                                                                                                                                                                                                                            (if (pair? term1$276)
                                                                                                                                                                                                                                                                                                                                                                              (if (eq? (car term1$276)
                                                                                                                                                                                                                                                                                                                                                                                       (car term2$275))
                                                                                                                                                                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$911
                                                                                                                                                                                                                                                                                                                                                                                       1))
                                                                                                                                                                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                                                                                                                                                                 (cell-get
                                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                     self$911
                                                                                                                                                                                                                                                                                                                                                                                     1))
                                                                                                                                                                                                                                                                                                                                                                                 k$480
                                                                                                                                                                                                                                                                                                                                                                                 (cdr term1$276)
                                                                                                                                                                                                                                                                                                                                                                                 (cdr term2$275))
                                                                                                                                                                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                   k$480
                                                                                                                                                                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                                                                                                                                                                 k$480
                                                                                                                                                                                                                                                                                                                                                                                 #f))
                                                                                                                                                                                                                                                                                                                                                                              ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                 k$480
                                                                                                                                                                                                                                                                                                                                                                                 0)
                                                                                                                                                                                                                                                                                                                                                                               k$480
                                                                                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                                                                                            ((%closure
                                                                                                                                                                                                                                                                                                                                                                               (lambda (self$912
                                                                                                                                                                                                                                                                                                                                                                                        temp-temp$277)
                                                                                                                                                                                                                                                                                                                                                                                 (if temp-temp$277
                                                                                                                                                                                                                                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                      (cell-get
                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                          self$912
                                                                                                                                                                                                                                                                                                                                                                                          2))
                                                                                                                                                                                                                                                                                                                                                                                      0)
                                                                                                                                                                                                                                                                                                                                                                                    (cell-get
                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                        self$912
                                                                                                                                                                                                                                                                                                                                                                                        2))
                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                      self$912
                                                                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                      self$912
                                                                                                                                                                                                                                                                                                                                                                                      3)
                                                                                                                                                                                                                                                                                                                                                                                    (cdr temp-temp$277))
                                                                                                                                                                                                                                                                                                                                                                                   (if (number?
                                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                           self$912
                                                                                                                                                                                                                                                                                                                                                                                           4))
                                                                                                                                                                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                          self$912
                                                                                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                        self$912
                                                                                                                                                                                                                                                                                                                                                                                        1)
                                                                                                                                                                                                                                                                                                                                                                                      (equal?
                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                          self$912
                                                                                                                                                                                                                                                                                                                                                                                          3)
                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                          self$912
                                                                                                                                                                                                                                                                                                                                                                                          4)))
                                                                                                                                                                                                                                                                                                                                                                                     ((%closure
                                                                                                                                                                                                                                                                                                                                                                                        (lambda (self$913
                                                                                                                                                                                                                                                                                                                                                                                                 r$492)
                                                                                                                                                                                                                                                                                                                                                                                          ((%closure
                                                                                                                                                                                                                                                                                                                                                                                             (lambda (self$914
                                                                                                                                                                                                                                                                                                                                                                                                      r$491)
                                                                                                                                                                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                    self$914
                                                                                                                                                                                                                                                                                                                                                                                                    1)
                                                                                                                                                                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                  self$914
                                                                                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                                                                                #t))
                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                               self$913
                                                                                                                                                                                                                                                                                                                                                                                               1))
                                                                                                                                                                                                                                                                                                                                                                                           (set-cell!
                                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                               self$913
                                                                                                                                                                                                                                                                                                                                                                                               2)
                                                                                                                                                                                                                                                                                                                                                                                             r$492)))
                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                          self$912
                                                                                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                          self$912
                                                                                                                                                                                                                                                                                                                                                                                          5))
                                                                                                                                                                                                                                                                                                                                                                                      (cons (cons (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                    self$912
                                                                                                                                                                                                                                                                                                                                                                                                    4)
                                                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                    self$912
                                                                                                                                                                                                                                                                                                                                                                                                    3))
                                                                                                                                                                                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                                self$912
                                                                                                                                                                                                                                                                                                                                                                                                5)))))))
                                                                                                                                                                                                                                                                                                                                                                               k$480
                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                 self$911
                                                                                                                                                                                                                                                                                                                                                                                 2)
                                                                                                                                                                                                                                                                                                                                                                               term1$276
                                                                                                                                                                                                                                                                                                                                                                               term2$275
                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                 self$911
                                                                                                                                                                                                                                                                                                                                                                                 3))
                                                                                                                                                                                                                                                                                                                                                                             (assq term2$275
                                                                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                       self$911
                                                                                                                                                                                                                                                                                                                                                                                       3))))))
                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                          self$910
                                                                                                                                                                                                                                                                                                                                                                          7)
                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                          self$910
                                                                                                                                                                                                                                                                                                                                                                          11)
                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                          self$910
                                                                                                                                                                                                                                                                                                                                                                          19)))))
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   1)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   2)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   3)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   4)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   5)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   7)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   8)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   9)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   10)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   11)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   12)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   13)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   14)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   15)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   16)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   17)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   18)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   19)
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   20))
                                                                                                                                                                                                                                                                                                                                                               (set-cell!
                                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                   self$907
                                                                                                                                                                                                                                                                                                                                                                   6)
                                                                                                                                                                                                                                                                                                                                                                 (%closure
                                                                                                                                                                                                                                                                                                                                                                   (lambda (self$908
                                                                                                                                                                                                                                                                                                                                                                            k$495
                                                                                                                                                                                                                                                                                                                                                                            term1$279
                                                                                                                                                                                                                                                                                                                                                                            term2$278)
                                                                                                                                                                                                                                                                                                                                                                     ((%closure
                                                                                                                                                                                                                                                                                                                                                                        (lambda (self$909
                                                                                                                                                                                                                                                                                                                                                                                 r$496)
                                                                                                                                                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             (cell-get
                                                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                 self$909
                                                                                                                                                                                                                                                                                                                                                                                 2))
                                                                                                                                                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                               self$909
                                                                                                                                                                                                                                                                                                                                                                               2))
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$909
                                                                                                                                                                                                                                                                                                                                                                             1)
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$909
                                                                                                                                                                                                                                                                                                                                                                             3)
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$909
                                                                                                                                                                                                                                                                                                                                                                             4)))
                                                                                                                                                                                                                                                                                                                                                                        k$495
                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                          self$908
                                                                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                                                                        term1$279
                                                                                                                                                                                                                                                                                                                                                                        term2$278)
                                                                                                                                                                                                                                                                                                                                                                      (set-cell!
                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                          self$908
                                                                                                                                                                                                                                                                                                                                                                          2)
                                                                                                                                                                                                                                                                                                                                                                        '())))
                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     self$907
                                                                                                                                                                                                                                                                                                                                                                     7)
                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     self$907
                                                                                                                                                                                                                                                                                                                                                                     20)))))
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              2)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              3)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              4)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              5)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              6)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              7)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              8)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              9)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              10)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              11)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              12)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              13)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              14)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              15)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              16)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              17)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              18)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              19)
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              20))
                                                                                                                                                                                                                                                                                                                                                          (set-cell!
                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                              self$906
                                                                                                                                                                                                                                                                                                                                                              20)
                                                                                                                                                                                                                                                                                                                                                            '*)))
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         1)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         2)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         4)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         5)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         6)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         7)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         8)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         9)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         11)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         13)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         14)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         15)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         16)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         17)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         18)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         19)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         20)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         21)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         22)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         23))
                                                                                                                                                                                                                                                                                                                                                     (set-cell!
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$902
                                                                                                                                                                                                                                                                                                                                                         12)
                                                                                                                                                                                                                                                                                                                                                       (%closure
                                                                                                                                                                                                                                                                                                                                                         (lambda (self$903
                                                                                                                                                                                                                                                                                                                                                                  k$500
                                                                                                                                                                                                                                                                                                                                                                  term$281
                                                                                                                                                                                                                                                                                                                                                                  lst$280)
                                                                                                                                                                                                                                                                                                                                                           (if (null? lst$280)
                                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                k$500
                                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                                              k$500
                                                                                                                                                                                                                                                                                                                                                              term$281)
                                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                    self$903
                                                                                                                                                                                                                                                                                                                                                                    2))
                                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$903
                                                                                                                                                                                                                                                                                                                                                                  2))
                                                                                                                                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                                                                                                                                (lambda (self$904
                                                                                                                                                                                                                                                                                                                                                                         r$502)
                                                                                                                                                                                                                                                                                                                                                                  (if r$502
                                                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                           self$904
                                                                                                                                                                                                                                                                                                                                                                           1))
                                                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$904
                                                                                                                                                                                                                                                                                                                                                                         1))
                                                                                                                                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                                                                                                                                       (lambda (self$905
                                                                                                                                                                                                                                                                                                                                                                                r$503)
                                                                                                                                                                                                                                                                                                                                                                         ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                self$905
                                                                                                                                                                                                                                                                                                                                                                                2))
                                                                                                                                                                                                                                                                                                                                                                            0)
                                                                                                                                                                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                              self$905
                                                                                                                                                                                                                                                                                                                                                                              2))
                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                            self$905
                                                                                                                                                                                                                                                                                                                                                                            1)
                                                                                                                                                                                                                                                                                                                                                                          r$503))
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$904
                                                                                                                                                                                                                                                                                                                                                                         2)
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$904
                                                                                                                                                                                                                                                                                                                                                                         4))
                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$904
                                                                                                                                                                                                                                                                                                                                                                         7))
                                                                                                                                                                                                                                                                                                                                                                     (caddr (car (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                   self$904
                                                                                                                                                                                                                                                                                                                                                                                   3))))
                                                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                           self$904
                                                                                                                                                                                                                                                                                                                                                                           5))
                                                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$904
                                                                                                                                                                                                                                                                                                                                                                         5))
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$904
                                                                                                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$904
                                                                                                                                                                                                                                                                                                                                                                       6)
                                                                                                                                                                                                                                                                                                                                                                     (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                            self$904
                                                                                                                                                                                                                                                                                                                                                                            3)))))
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$903
                                                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                                                k$500
                                                                                                                                                                                                                                                                                                                                                                lst$280
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$903
                                                                                                                                                                                                                                                                                                                                                                  3)
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$903
                                                                                                                                                                                                                                                                                                                                                                  4)
                                                                                                                                                                                                                                                                                                                                                                term$281
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$903
                                                                                                                                                                                                                                                                                                                                                                  5))
                                                                                                                                                                                                                                                                                                                                                              term$281
                                                                                                                                                                                                                                                                                                                                                              (cadr (car lst$280)))))
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$902
                                                                                                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$902
                                                                                                                                                                                                                                                                                                                                                           7)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$902
                                                                                                                                                                                                                                                                                                                                                           10)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$902
                                                                                                                                                                                                                                                                                                                                                           12)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$902
                                                                                                                                                                                                                                                                                                                                                           23)))))
                                                                                                                                                                                                                                                                                                                                                  (%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)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    9)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    10)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    12)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    13)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    15)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    16)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    17)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    18)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    19)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    20)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    21)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    22)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    23)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    24)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    25))
                                                                                                                                                                                                                                                                                                                                                (set-cell!
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$898
                                                                                                                                                                                                                                                                                                                                                    11)
                                                                                                                                                                                                                                                                                                                                                  (%closure
                                                                                                                                                                                                                                                                                                                                                    (lambda (self$899
                                                                                                                                                                                                                                                                                                                                                             k$510
                                                                                                                                                                                                                                                                                                                                                             lst$282)
                                                                                                                                                                                                                                                                                                                                                      (if (null? lst$282)
                                                                                                                                                                                                                                                                                                                                                        ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                           k$510
                                                                                                                                                                                                                                                                                                                                                           0)
                                                                                                                                                                                                                                                                                                                                                         k$510
                                                                                                                                                                                                                                                                                                                                                         '())
                                                                                                                                                                                                                                                                                                                                                        ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                                               self$899
                                                                                                                                                                                                                                                                                                                                                               1))
                                                                                                                                                                                                                                                                                                                                                           0)
                                                                                                                                                                                                                                                                                                                                                         (cell-get
                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                             self$899
                                                                                                                                                                                                                                                                                                                                                             1))
                                                                                                                                                                                                                                                                                                                                                         (%closure
                                                                                                                                                                                                                                                                                                                                                           (lambda (self$900
                                                                                                                                                                                                                                                                                                                                                                    r$512)
                                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                    self$900
                                                                                                                                                                                                                                                                                                                                                                    3))
                                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$900
                                                                                                                                                                                                                                                                                                                                                                  3))
                                                                                                                                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                                                                                                                                (lambda (self$901
                                                                                                                                                                                                                                                                                                                                                                         r$513)
                                                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$901
                                                                                                                                                                                                                                                                                                                                                                         4))
                                                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$901
                                                                                                                                                                                                                                                                                                                                                                       4))
                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     self$901
                                                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     self$901
                                                                                                                                                                                                                                                                                                                                                                     3)
                                                                                                                                                                                                                                                                                                                                                                   r$513
                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     self$901
                                                                                                                                                                                                                                                                                                                                                                     2)))
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$900
                                                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$900
                                                                                                                                                                                                                                                                                                                                                                  2)
                                                                                                                                                                                                                                                                                                                                                                r$512
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$900
                                                                                                                                                                                                                                                                                                                                                                  4))
                                                                                                                                                                                                                                                                                                                                                              (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     self$900
                                                                                                                                                                                                                                                                                                                                                                     2))))
                                                                                                                                                                                                                                                                                                                                                           k$510
                                                                                                                                                                                                                                                                                                                                                           lst$282
                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                             self$899
                                                                                                                                                                                                                                                                                                                                                             2)
                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                             self$899
                                                                                                                                                                                                                                                                                                                                                             3))
                                                                                                                                                                                                                                                                                                                                                         (car lst$282))))
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$898
                                                                                                                                                                                                                                                                                                                                                      10)
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$898
                                                                                                                                                                                                                                                                                                                                                      11)
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$898
                                                                                                                                                                                                                                                                                                                                                      14)))))
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               1)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               2)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               3)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               4)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               5)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               6)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               7)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               8)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               9)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               10)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               11)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               12)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               13)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               14)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               15)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               16)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               17)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               18)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               19)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               20)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               21)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               22)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               23)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               24)
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               25))
                                                                                                                                                                                                                                                                                                                                           (set-cell!
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$892
                                                                                                                                                                                                                                                                                                                                               10)
                                                                                                                                                                                                                                                                                                                                             (%closure
                                                                                                                                                                                                                                                                                                                                               (lambda (self$893
                                                                                                                                                                                                                                                                                                                                                        k$517
                                                                                                                                                                                                                                                                                                                                                        term$283)
                                                                                                                                                                                                                                                                                                                                                 ((%closure
                                                                                                                                                                                                                                                                                                                                                    (lambda (self$894
                                                                                                                                                                                                                                                                                                                                                             r$526)
                                                                                                                                                                                                                                                                                                                                                      ((%closure
                                                                                                                                                                                                                                                                                                                                                         (lambda (self$895
                                                                                                                                                                                                                                                                                                                                                                  r$518)
                                                                                                                                                                                                                                                                                                                                                           (if (pair? (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                        self$895
                                                                                                                                                                                                                                                                                                                                                                        5))
                                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                    self$895
                                                                                                                                                                                                                                                                                                                                                                    2))
                                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$895
                                                                                                                                                                                                                                                                                                                                                                  2))
                                                                                                                                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                                                                                                                                (lambda (self$896
                                                                                                                                                                                                                                                                                                                                                                         r$524)
                                                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$896
                                                                                                                                                                                                                                                                                                                                                                         3))
                                                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$896
                                                                                                                                                                                                                                                                                                                                                                       3))
                                                                                                                                                                                                                                                                                                                                                                   (%closure
                                                                                                                                                                                                                                                                                                                                                                     (lambda (self$897
                                                                                                                                                                                                                                                                                                                                                                              r$520)
                                                                                                                                                                                                                                                                                                                                                                       ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                              self$897
                                                                                                                                                                                                                                                                                                                                                                              2))
                                                                                                                                                                                                                                                                                                                                                                          0)
                                                                                                                                                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                            self$897
                                                                                                                                                                                                                                                                                                                                                                            2))
                                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                          self$897
                                                                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                                                                        r$520
                                                                                                                                                                                                                                                                                                                                                                        (vector-ref
                                                                                                                                                                                                                                                                                                                                                                          (car (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                 self$897
                                                                                                                                                                                                                                                                                                                                                                                 3))
                                                                                                                                                                                                                                                                                                                                                                          1)))
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$896
                                                                                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$896
                                                                                                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$896
                                                                                                                                                                                                                                                                                                                                                                       4))
                                                                                                                                                                                                                                                                                                                                                                   (car (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                          self$896
                                                                                                                                                                                                                                                                                                                                                                          4))
                                                                                                                                                                                                                                                                                                                                                                   r$524
                                                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     self$896
                                                                                                                                                                                                                                                                                                                                                                     4)))
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$895
                                                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$895
                                                                                                                                                                                                                                                                                                                                                                  3)
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$895
                                                                                                                                                                                                                                                                                                                                                                  4)
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$895
                                                                                                                                                                                                                                                                                                                                                                  5))
                                                                                                                                                                                                                                                                                                                                                              (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                     self$895
                                                                                                                                                                                                                                                                                                                                                                     5)))
                                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$895
                                                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                self$895
                                                                                                                                                                                                                                                                                                                                                                1)
                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                self$895
                                                                                                                                                                                                                                                                                                                                                                5))))
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$894
                                                                                                                                                                                                                                                                                                                                                           1)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$894
                                                                                                                                                                                                                                                                                                                                                           2)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$894
                                                                                                                                                                                                                                                                                                                                                           4)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$894
                                                                                                                                                                                                                                                                                                                                                           5)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$894
                                                                                                                                                                                                                                                                                                                                                           6))
                                                                                                                                                                                                                                                                                                                                                       (set-cell!
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$894
                                                                                                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                                                                                                         r$526)))
                                                                                                                                                                                                                                                                                                                                                    k$517
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$893
                                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$893
                                                                                                                                                                                                                                                                                                                                                      2)
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$893
                                                                                                                                                                                                                                                                                                                                                      3)
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$893
                                                                                                                                                                                                                                                                                                                                                      4)
                                                                                                                                                                                                                                                                                                                                                    term$283)
                                                                                                                                                                                                                                                                                                                                                  (Cyc-fast-plus
                                                                                                                                                                                                                                                                                                                                                    (cell-get
                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                        self$893
                                                                                                                                                                                                                                                                                                                                                        2))
                                                                                                                                                                                                                                                                                                                                                    1)))
                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                 self$892
                                                                                                                                                                                                                                                                                                                                                 11)
                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                 self$892
                                                                                                                                                                                                                                                                                                                                                 12)
                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                 self$892
                                                                                                                                                                                                                                                                                                                                                 13)
                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                 self$892
                                                                                                                                                                                                                                                                                                                                                 14)))))
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          2)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          3)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          4)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          5)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          6)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          7)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          8)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          9)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          10)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          11)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          12)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          13)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          14)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          15)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          16)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          17)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          18)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          19)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          20)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          21)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          22)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          23)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          24)
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          25))
                                                                                                                                                                                                                                                                                                                                      (set-cell!
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$888
                                                                                                                                                                                                                                                                                                                                          14)
                                                                                                                                                                                                                                                                                                                                        (%closure
                                                                                                                                                                                                                                                                                                                                          (lambda (self$889
                                                                                                                                                                                                                                                                                                                                                   k$528
                                                                                                                                                                                                                                                                                                                                                   x$286
                                                                                                                                                                                                                                                                                                                                                   y$285
                                                                                                                                                                                                                                                                                                                                                   original$284)
                                                                                                                                                                                                                                                                                                                                            ((%closure
                                                                                                                                                                                                                                                                                                                                               (lambda (self$891
                                                                                                                                                                                                                                                                                                                                                        k$530)
                                                                                                                                                                                                                                                                                                                                                 (if (eq? (%closure-ref
                                                                                                                                                                                                                                                                                                                                                            self$891
                                                                                                                                                                                                                                                                                                                                                            2)
                                                                                                                                                                                                                                                                                                                                                          (car (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                 self$891
                                                                                                                                                                                                                                                                                                                                                                 1)))
                                                                                                                                                                                                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                      k$530
                                                                                                                                                                                                                                                                                                                                                      0)
                                                                                                                                                                                                                                                                                                                                                    k$530
                                                                                                                                                                                                                                                                                                                                                    (eq? (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$891
                                                                                                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                                                                                                         (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                self$891
                                                                                                                                                                                                                                                                                                                                                                1))))
                                                                                                                                                                                                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                      k$530
                                                                                                                                                                                                                                                                                                                                                      0)
                                                                                                                                                                                                                                                                                                                                                    k$530
                                                                                                                                                                                                                                                                                                                                                    #f)))
                                                                                                                                                                                                                                                                                                                                               original$284
                                                                                                                                                                                                                                                                                                                                               x$286
                                                                                                                                                                                                                                                                                                                                               y$285)
                                                                                                                                                                                                                                                                                                                                             (%closure
                                                                                                                                                                                                                                                                                                                                               (lambda (self$890
                                                                                                                                                                                                                                                                                                                                                        r$529)
                                                                                                                                                                                                                                                                                                                                                 (if r$529
                                                                                                                                                                                                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                        self$890
                                                                                                                                                                                                                                                                                                                                                        1)
                                                                                                                                                                                                                                                                                                                                                      0)
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$890
                                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$890
                                                                                                                                                                                                                                                                                                                                                      2))
                                                                                                                                                                                                                                                                                                                                                   ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                                                        self$890
                                                                                                                                                                                                                                                                                                                                                        1)
                                                                                                                                                                                                                                                                                                                                                      0)
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$890
                                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                                    (cons (%closure-ref
                                                                                                                                                                                                                                                                                                                                                            self$890
                                                                                                                                                                                                                                                                                                                                                            3)
                                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                                            self$890
                                                                                                                                                                                                                                                                                                                                                            4)))))
                                                                                                                                                                                                                                                                                                                                               k$528
                                                                                                                                                                                                                                                                                                                                               original$284
                                                                                                                                                                                                                                                                                                                                               x$286
                                                                                                                                                                                                                                                                                                                                               y$285)))))))
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     2)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     3)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     4)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     5)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     6)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     7)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     8)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     9)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     10)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     11)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     12)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     13)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     14)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     15)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     16)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     17)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     18)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     19)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     20)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     21)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     22)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     23)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     24)
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     25))
                                                                                                                                                                                                                                                                                                                                 (set-cell!
                                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                                     self$887
                                                                                                                                                                                                                                                                                                                                     12)
                                                                                                                                                                                                                                                                                                                                   0)))
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                1)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                2)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                3)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                4)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                5)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                6)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                7)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                8)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                9)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                10)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                11)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                12)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                13)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                14)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                15)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                16)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                17)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                18)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                19)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                20)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                21)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                22)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                23)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                24)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                25))
                                                                                                                                                                                                                                                                                                                            (set-cell!
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$886
                                                                                                                                                                                                                                                                                                                                6)
                                                                                                                                                                                                                                                                                                                              '*)))
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           1)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           2)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           4)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           5)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           6)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           7)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           8)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           9)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           10)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           11)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           12)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           13)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           14)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           15)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           17)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           18)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           19)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           20)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           21)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           22)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           23)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           24)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           25)
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           26))
                                                                                                                                                                                                                                                                                                                       (set-cell!
                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                           self$879
                                                                                                                                                                                                                                                                                                                           16)
                                                                                                                                                                                                                                                                                                                         (%closure
                                                                                                                                                                                                                                                                                                                           (lambda (self$880
                                                                                                                                                                                                                                                                                                                                    k$536
                                                                                                                                                                                                                                                                                                                                    x$289
                                                                                                                                                                                                                                                                                                                                    true-lst$288
                                                                                                                                                                                                                                                                                                                                    false-lst$287)
                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                    self$880
                                                                                                                                                                                                                                                                                                                                    4))
                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$880
                                                                                                                                                                                                                                                                                                                                  4))
                                                                                                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                                                                                                (lambda (self$881
                                                                                                                                                                                                                                                                                                                                         r$537)
                                                                                                                                                                                                                                                                                                                                  (if r$537
                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         4)
                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                       self$881
                                                                                                                                                                                                                                                                                                                                       4)
                                                                                                                                                                                                                                                                                                                                     #t)
                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                           self$881
                                                                                                                                                                                                                                                                                                                                           2))
                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         2))
                                                                                                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                                                                                                       (lambda (self$882
                                                                                                                                                                                                                                                                                                                                                r$538)
                                                                                                                                                                                                                                                                                                                                         (if r$538
                                                                                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                self$882
                                                                                                                                                                                                                                                                                                                                                4)
                                                                                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                              self$882
                                                                                                                                                                                                                                                                                                                                              4)
                                                                                                                                                                                                                                                                                                                                            #f)
                                                                                                                                                                                                                                                                                                                                           (if (pair? (%closure-ref
                                                                                                                                                                                                                                                                                                                                                        self$882
                                                                                                                                                                                                                                                                                                                                                        8))
                                                                                                                                                                                                                                                                                                                                             (if (eq? (car (%closure-ref
                                                                                                                                                                                                                                                                                                                                                             self$882
                                                                                                                                                                                                                                                                                                                                                             8))
                                                                                                                                                                                                                                                                                                                                                      (cell-get
                                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                                          self$882
                                                                                                                                                                                                                                                                                                                                                          3)))
                                                                                                                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                  (cell-get
                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                      self$882
                                                                                                                                                                                                                                                                                                                                                      7))
                                                                                                                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$882
                                                                                                                                                                                                                                                                                                                                                    7))
                                                                                                                                                                                                                                                                                                                                                (%closure
                                                                                                                                                                                                                                                                                                                                                  (lambda (self$883
                                                                                                                                                                                                                                                                                                                                                           r$541)
                                                                                                                                                                                                                                                                                                                                                    (if r$541
                                                                                                                                                                                                                                                                                                                                                      ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                         (cell-get
                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                             self$883
                                                                                                                                                                                                                                                                                                                                                             4))
                                                                                                                                                                                                                                                                                                                                                         0)
                                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$883
                                                                                                                                                                                                                                                                                                                                                           4))
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$883
                                                                                                                                                                                                                                                                                                                                                         3)
                                                                                                                                                                                                                                                                                                                                                       (caddr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                self$883
                                                                                                                                                                                                                                                                                                                                                                6))
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$883
                                                                                                                                                                                                                                                                                                                                                         5)
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$883
                                                                                                                                                                                                                                                                                                                                                         1))
                                                                                                                                                                                                                                                                                                                                                      ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                         (cell-get
                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                             self$883
                                                                                                                                                                                                                                                                                                                                                             2))
                                                                                                                                                                                                                                                                                                                                                         0)
                                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$883
                                                                                                                                                                                                                                                                                                                                                           2))
                                                                                                                                                                                                                                                                                                                                                       (%closure
                                                                                                                                                                                                                                                                                                                                                         (lambda (self$884
                                                                                                                                                                                                                                                                                                                                                                  r$543)
                                                                                                                                                                                                                                                                                                                                                           (if r$543
                                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                    self$884
                                                                                                                                                                                                                                                                                                                                                                    3))
                                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$884
                                                                                                                                                                                                                                                                                                                                                                  3))
                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                self$884
                                                                                                                                                                                                                                                                                                                                                                2)
                                                                                                                                                                                                                                                                                                                                                              (cadddr
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$884
                                                                                                                                                                                                                                                                                                                                                                  5))
                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                self$884
                                                                                                                                                                                                                                                                                                                                                                4)
                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                self$884
                                                                                                                                                                                                                                                                                                                                                                1))
                                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                    self$884
                                                                                                                                                                                                                                                                                                                                                                    3))
                                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                  self$884
                                                                                                                                                                                                                                                                                                                                                                  3))
                                                                                                                                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                                                                                                                                (lambda (self$885
                                                                                                                                                                                                                                                                                                                                                                         r$545)
                                                                                                                                                                                                                                                                                                                                                                  (if r$545
                                                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                           self$885
                                                                                                                                                                                                                                                                                                                                                                           3))
                                                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$885
                                                                                                                                                                                                                                                                                                                                                                         3))
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$885
                                                                                                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                                                                                                     (cadddr
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$885
                                                                                                                                                                                                                                                                                                                                                                         5))
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$885
                                                                                                                                                                                                                                                                                                                                                                       4)
                                                                                                                                                                                                                                                                                                                                                                     (cons (cadr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                                   self$885
                                                                                                                                                                                                                                                                                                                                                                                   5))
                                                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                             self$885
                                                                                                                                                                                                                                                                                                                                                                             1)))
                                                                                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                         self$885
                                                                                                                                                                                                                                                                                                                                                                         2)
                                                                                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$885
                                                                                                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                                                                                                     #f)))
                                                                                                                                                                                                                                                                                                                                                                (%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))
                                                                                                                                                                                                                                                                                                                                                              (caddr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                       self$884
                                                                                                                                                                                                                                                                                                                                                                       5))
                                                                                                                                                                                                                                                                                                                                                              (cons (cadr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                            self$884
                                                                                                                                                                                                                                                                                                                                                                            5))
                                                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                      self$884
                                                                                                                                                                                                                                                                                                                                                                      4))
                                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                                self$884
                                                                                                                                                                                                                                                                                                                                                                1))))
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$883
                                                                                                                                                                                                                                                                                                                                                           1)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$883
                                                                                                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$883
                                                                                                                                                                                                                                                                                                                                                           4)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$883
                                                                                                                                                                                                                                                                                                                                                           5)
                                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                                           self$883
                                                                                                                                                                                                                                                                                                                                                           6))
                                                                                                                                                                                                                                                                                                                                                       (cadr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                               self$883
                                                                                                                                                                                                                                                                                                                                                               6))
                                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                                         self$883
                                                                                                                                                                                                                                                                                                                                                         1))))
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$882
                                                                                                                                                                                                                                                                                                                                                    1)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$882
                                                                                                                                                                                                                                                                                                                                                    2)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$882
                                                                                                                                                                                                                                                                                                                                                    4)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$882
                                                                                                                                                                                                                                                                                                                                                    5)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$882
                                                                                                                                                                                                                                                                                                                                                    6)
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$882
                                                                                                                                                                                                                                                                                                                                                    8))
                                                                                                                                                                                                                                                                                                                                                (cadr (%closure-ref
                                                                                                                                                                                                                                                                                                                                                        self$882
                                                                                                                                                                                                                                                                                                                                                        8))
                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                  self$882
                                                                                                                                                                                                                                                                                                                                                  6))
                                                                                                                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                                    self$882
                                                                                                                                                                                                                                                                                                                                                    4)
                                                                                                                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                  self$882
                                                                                                                                                                                                                                                                                                                                                  4)
                                                                                                                                                                                                                                                                                                                                                #f))
                                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                                  self$882
                                                                                                                                                                                                                                                                                                                                                  4)
                                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                                self$882
                                                                                                                                                                                                                                                                                                                                                4)
                                                                                                                                                                                                                                                                                                                                              #f))))
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         1)
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         2)
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         3)
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         4)
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         5)
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         6)
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         7)
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$881
                                                                                                                                                                                                                                                                                                                                         8))
                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                       self$881
                                                                                                                                                                                                                                                                                                                                       8)
                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                       self$881
                                                                                                                                                                                                                                                                                                                                       1))))
                                                                                                                                                                                                                                                                                                                                false-lst$287
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$880
                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$880
                                                                                                                                                                                                                                                                                                                                  2)
                                                                                                                                                                                                                                                                                                                                k$536
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$880
                                                                                                                                                                                                                                                                                                                                  3)
                                                                                                                                                                                                                                                                                                                                true-lst$288
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$880
                                                                                                                                                                                                                                                                                                                                  4)
                                                                                                                                                                                                                                                                                                                                x$289)
                                                                                                                                                                                                                                                                                                                              x$289
                                                                                                                                                                                                                                                                                                                              true-lst$288))
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$879
                                                                                                                                                                                                                                                                                                                             5)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$879
                                                                                                                                                                                                                                                                                                                             6)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$879
                                                                                                                                                                                                                                                                                                                             16)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$879
                                                                                                                                                                                                                                                                                                                             25)))))
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      2)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      3)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      4)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      5)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      6)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      7)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      8)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      9)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      10)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      11)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      12)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      13)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      14)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      15)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      16)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      18)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      19)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      20)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      21)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      22)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      23)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      24)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      25)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      26)
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      27))
                                                                                                                                                                                                                                                                                                                  (set-cell!
                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                      self$876
                                                                                                                                                                                                                                                                                                                      17)
                                                                                                                                                                                                                                                                                                                    (%closure
                                                                                                                                                                                                                                                                                                                      (lambda (self$877
                                                                                                                                                                                                                                                                                                                               k$556
                                                                                                                                                                                                                                                                                                                               x$290)
                                                                                                                                                                                                                                                                                                                        ((%closure-ref
                                                                                                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                               self$877
                                                                                                                                                                                                                                                                                                                               1))
                                                                                                                                                                                                                                                                                                                           0)
                                                                                                                                                                                                                                                                                                                         (cell-get
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$877
                                                                                                                                                                                                                                                                                                                             1))
                                                                                                                                                                                                                                                                                                                         (%closure
                                                                                                                                                                                                                                                                                                                           (lambda (self$878
                                                                                                                                                                                                                                                                                                                                    r$557)
                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                    self$878
                                                                                                                                                                                                                                                                                                                                    2))
                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$878
                                                                                                                                                                                                                                                                                                                                  2))
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$878
                                                                                                                                                                                                                                                                                                                                1)
                                                                                                                                                                                                                                                                                                                              r$557
                                                                                                                                                                                                                                                                                                                              '()
                                                                                                                                                                                                                                                                                                                              '()))
                                                                                                                                                                                                                                                                                                                           k$556
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$877
                                                                                                                                                                                                                                                                                                                             2))
                                                                                                                                                                                                                                                                                                                         x$290))
                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                        self$876
                                                                                                                                                                                                                                                                                                                        10)
                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                        self$876
                                                                                                                                                                                                                                                                                                                        16)))))
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 1)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 2)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 3)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 5)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 6)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 7)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 8)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 9)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 10)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 11)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 12)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 13)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 14)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 15)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 16)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 17)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 18)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 19)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 20)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 21)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 22)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 23)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 24)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 25)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 26)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 27)
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 28))
                                                                                                                                                                                                                                                                                                             (set-cell!
                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                 self$872
                                                                                                                                                                                                                                                                                                                 4)
                                                                                                                                                                                                                                                                                                               (%closure
                                                                                                                                                                                                                                                                                                                 (lambda (self$873
                                                                                                                                                                                                                                                                                                                          k$561
                                                                                                                                                                                                                                                                                                                          alist$292
                                                                                                                                                                                                                                                                                                                          lst$291)
                                                                                                                                                                                                                                                                                                                   (if (null? lst$291)
                                                                                                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                                                                                                        k$561
                                                                                                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                                                                                                      k$561
                                                                                                                                                                                                                                                                                                                      '())
                                                                                                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                            self$873
                                                                                                                                                                                                                                                                                                                            1))
                                                                                                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                                                                                                      (cell-get
                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                          self$873
                                                                                                                                                                                                                                                                                                                          1))
                                                                                                                                                                                                                                                                                                                      (%closure
                                                                                                                                                                                                                                                                                                                        (lambda (self$874
                                                                                                                                                                                                                                                                                                                                 r$563)
                                                                                                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                                                                                                             (cell-get
                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                 self$874
                                                                                                                                                                                                                                                                                                                                 2))
                                                                                                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                               self$874
                                                                                                                                                                                                                                                                                                                               2))
                                                                                                                                                                                                                                                                                                                           (%closure
                                                                                                                                                                                                                                                                                                                             (lambda (self$875
                                                                                                                                                                                                                                                                                                                                      r$564)
                                                                                                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                    self$875
                                                                                                                                                                                                                                                                                                                                    1)
                                                                                                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$875
                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                (cons (%closure-ref
                                                                                                                                                                                                                                                                                                                                        self$875
                                                                                                                                                                                                                                                                                                                                        2)
                                                                                                                                                                                                                                                                                                                                      r$564)))
                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                               self$874
                                                                                                                                                                                                                                                                                                                               3)
                                                                                                                                                                                                                                                                                                                             r$563)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$874
                                                                                                                                                                                                                                                                                                                             1)
                                                                                                                                                                                                                                                                                                                           (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$874
                                                                                                                                                                                                                                                                                                                                  4))))
                                                                                                                                                                                                                                                                                                                        alist$292
                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                          self$873
                                                                                                                                                                                                                                                                                                                          2)
                                                                                                                                                                                                                                                                                                                        k$561
                                                                                                                                                                                                                                                                                                                        lst$291)
                                                                                                                                                                                                                                                                                                                      alist$292
                                                                                                                                                                                                                                                                                                                      (car lst$291))))
                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                   self$872
                                                                                                                                                                                                                                                                                                                   3)
                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                   self$872
                                                                                                                                                                                                                                                                                                                   4)))))
                                                                                                                                                                                                                                                                                                          (%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)
                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                            self$869
                                                                                                                                                                                                                                                                                                            27)
                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                            self$869
                                                                                                                                                                                                                                                                                                            28))
                                                                                                                                                                                                                                                                                                        (set-cell!
                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                            self$869
                                                                                                                                                                                                                                                                                                            3)
                                                                                                                                                                                                                                                                                                          (%closure
                                                                                                                                                                                                                                                                                                            (lambda (self$870
                                                                                                                                                                                                                                                                                                                     k$568
                                                                                                                                                                                                                                                                                                                     alist$294
                                                                                                                                                                                                                                                                                                                     term$293)
                                                                                                                                                                                                                                                                                                              (if (pair? term$293)
                                                                                                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                       self$870
                                                                                                                                                                                                                                                                                                                       1))
                                                                                                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                                                                                                 (cell-get
                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                     self$870
                                                                                                                                                                                                                                                                                                                     1))
                                                                                                                                                                                                                                                                                                                 (%closure
                                                                                                                                                                                                                                                                                                                   (lambda (self$871
                                                                                                                                                                                                                                                                                                                            r$571)
                                                                                                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                          self$871
                                                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                        self$871
                                                                                                                                                                                                                                                                                                                        1)
                                                                                                                                                                                                                                                                                                                      (cons (car (%closure-ref
                                                                                                                                                                                                                                                                                                                                   self$871
                                                                                                                                                                                                                                                                                                                                   2))
                                                                                                                                                                                                                                                                                                                            r$571)))
                                                                                                                                                                                                                                                                                                                   k$568
                                                                                                                                                                                                                                                                                                                   term$293)
                                                                                                                                                                                                                                                                                                                 alist$294
                                                                                                                                                                                                                                                                                                                 (cdr term$293))
                                                                                                                                                                                                                                                                                                                (if (assq term$293
                                                                                                                                                                                                                                                                                                                          alist$294)
                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                     k$568
                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                   k$568
                                                                                                                                                                                                                                                                                                                   (cdr (assq term$293
                                                                                                                                                                                                                                                                                                                              alist$294)))
                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                     k$568
                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                   k$568
                                                                                                                                                                                                                                                                                                                   term$293))))
                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                              self$869
                                                                                                                                                                                                                                                                                                              4)))))
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       3)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       4)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       5)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       6)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       7)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       8)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       9)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       10)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       11)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       12)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       13)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       14)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       15)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       16)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       17)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       18)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       19)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       20)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       21)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       22)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       23)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       24)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       26)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       27)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       28)
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       29))
                                                                                                                                                                                                                                                                                                   (set-cell!
                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                       self$865
                                                                                                                                                                                                                                                                                                       25)
                                                                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                                                                       (lambda (self$866
                                                                                                                                                                                                                                                                                                                k$575
                                                                                                                                                                                                                                                                                                                alist$296)
                                                                                                                                                                                                                                                                                                         (if (null? alist$296)
                                                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                                                              k$575
                                                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                                                            k$575
                                                                                                                                                                                                                                                                                                            '())
                                                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                  self$866
                                                                                                                                                                                                                                                                                                                  2))
                                                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                self$866
                                                                                                                                                                                                                                                                                                                2))
                                                                                                                                                                                                                                                                                                            (%closure
                                                                                                                                                                                                                                                                                                              (lambda (self$867
                                                                                                                                                                                                                                                                                                                       r$581)
                                                                                                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                       self$867
                                                                                                                                                                                                                                                                                                                       3))
                                                                                                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                                                                                                 (cell-get
                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                     self$867
                                                                                                                                                                                                                                                                                                                     3))
                                                                                                                                                                                                                                                                                                                 (%closure
                                                                                                                                                                                                                                                                                                                   (lambda (self$868
                                                                                                                                                                                                                                                                                                                            r$578)
                                                                                                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                          self$868
                                                                                                                                                                                                                                                                                                                          2)
                                                                                                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                        self$868
                                                                                                                                                                                                                                                                                                                        2)
                                                                                                                                                                                                                                                                                                                      (cons (cons (caar (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$868
                                                                                                                                                                                                                                                                                                                                          1))
                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                    self$868
                                                                                                                                                                                                                                                                                                                                    3))
                                                                                                                                                                                                                                                                                                                            r$578)))
                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                     self$867
                                                                                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                                                                                     self$867
                                                                                                                                                                                                                                                                                                                     2)
                                                                                                                                                                                                                                                                                                                   r$581)
                                                                                                                                                                                                                                                                                                                 (cdr (%closure-ref
                                                                                                                                                                                                                                                                                                                        self$867
                                                                                                                                                                                                                                                                                                                        1))))
                                                                                                                                                                                                                                                                                                              alist$296
                                                                                                                                                                                                                                                                                                              k$575
                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                self$866
                                                                                                                                                                                                                                                                                                                1))
                                                                                                                                                                                                                                                                                                            (cdar alist$296))))
                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                         self$865
                                                                                                                                                                                                                                                                                                         25)
                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                         self$865
                                                                                                                                                                                                                                                                                                         26)))))
                                                                                                                                                                                                                                                                                                (%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)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  6)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  7)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  8)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  9)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  10)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  11)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  12)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  13)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  14)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  15)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  16)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  17)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  18)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  19)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  20)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  21)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  22)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  23)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  24)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  25)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  26)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  27)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  28)
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  29))
                                                                                                                                                                                                                                                                                              (set-cell!
                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                  self$853
                                                                                                                                                                                                                                                                                                  22)
                                                                                                                                                                                                                                                                                                (%closure
                                                                                                                                                                                                                                                                                                  (lambda (self$854
                                                                                                                                                                                                                                                                                                           k$584
                                                                                                                                                                                                                                                                                                           alist$299
                                                                                                                                                                                                                                                                                                           term$298
                                                                                                                                                                                                                                                                                                           n$297)
                                                                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                           self$854
                                                                                                                                                                                                                                                                                                           3))
                                                                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                         self$854
                                                                                                                                                                                                                                                                                                         3))
                                                                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                                                                       (lambda (self$855
                                                                                                                                                                                                                                                                                                                r$586)
                                                                                                                                                                                                                                                                                                         ((%closure
                                                                                                                                                                                                                                                                                                            (lambda (self$856
                                                                                                                                                                                                                                                                                                                     term$301
                                                                                                                                                                                                                                                                                                                     n$300)
                                                                                                                                                                                                                                                                                                              ((%closure
                                                                                                                                                                                                                                                                                                                 (lambda (self$857
                                                                                                                                                                                                                                                                                                                          lp$37$302)
                                                                                                                                                                                                                                                                                                                   ((%closure
                                                                                                                                                                                                                                                                                                                      (lambda (self$858
                                                                                                                                                                                                                                                                                                                               lp$37$302)
                                                                                                                                                                                                                                                                                                                        ((%closure
                                                                                                                                                                                                                                                                                                                           (lambda (self$861
                                                                                                                                                                                                                                                                                                                                    r$589)
                                                                                                                                                                                                                                                                                                                             ((%closure-ref
                                                                                                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                                                    self$861
                                                                                                                                                                                                                                                                                                                                    3))
                                                                                                                                                                                                                                                                                                                                0)
                                                                                                                                                                                                                                                                                                                              (cell-get
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$861
                                                                                                                                                                                                                                                                                                                                  3))
                                                                                                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                                                                                                (lambda (self$862
                                                                                                                                                                                                                                                                                                                                         r$588)
                                                                                                                                                                                                                                                                                                                                  ((%closure-ref
                                                                                                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$862
                                                                                                                                                                                                                                                                                                                                         5))
                                                                                                                                                                                                                                                                                                                                     0)
                                                                                                                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                       self$862
                                                                                                                                                                                                                                                                                                                                       5))
                                                                                                                                                                                                                                                                                                                                   (%closure
                                                                                                                                                                                                                                                                                                                                     (lambda (self$863
                                                                                                                                                                                                                                                                                                                                              r$587)
                                                                                                                                                                                                                                                                                                                                       ((%closure-ref
                                                                                                                                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                                                              self$863
                                                                                                                                                                                                                                                                                                                                              1))
                                                                                                                                                                                                                                                                                                                                          0)
                                                                                                                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                            self$863
                                                                                                                                                                                                                                                                                                                                            1))
                                                                                                                                                                                                                                                                                                                                        (%closure
                                                                                                                                                                                                                                                                                                                                          (lambda (self$864
                                                                                                                                                                                                                                                                                                                                                   term$305)
                                                                                                                                                                                                                                                                                                                                            ((%closure-ref
                                                                                                                                                                                                                                                                                                                                               (cell-get
                                                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                                                   self$864
                                                                                                                                                                                                                                                                                                                                                   2))
                                                                                                                                                                                                                                                                                                                                               0)
                                                                                                                                                                                                                                                                                                                                             (cell-get
                                                                                                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                                                                                                 self$864
                                                                                                                                                                                                                                                                                                                                                 2))
                                                                                                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                                                                                                               self$864
                                                                                                                                                                                                                                                                                                                                               1)
                                                                                                                                                                                                                                                                                                                                             term$305))
                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                            self$863
                                                                                                                                                                                                                                                                                                                                            2)
                                                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                                                            self$863
                                                                                                                                                                                                                                                                                                                                            4))
                                                                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                                                                          self$863
                                                                                                                                                                                                                                                                                                                                          3)
                                                                                                                                                                                                                                                                                                                                        r$587))
                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                       self$862
                                                                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                       self$862
                                                                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                       self$862
                                                                                                                                                                                                                                                                                                                                       3)
                                                                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                                                                       self$862
                                                                                                                                                                                                                                                                                                                                       4))
                                                                                                                                                                                                                                                                                                                                   r$588))
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$861
                                                                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$861
                                                                                                                                                                                                                                                                                                                                  2)
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$861
                                                                                                                                                                                                                                                                                                                                  5)
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$861
                                                                                                                                                                                                                                                                                                                                  6)
                                                                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                                                                  self$861
                                                                                                                                                                                                                                                                                                                                  8))
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$861
                                                                                                                                                                                                                                                                                                                                7)
                                                                                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                                                                                self$861
                                                                                                                                                                                                                                                                                                                                4)))
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$858
                                                                                                                                                                                                                                                                                                                             1)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$858
                                                                                                                                                                                                                                                                                                                             2)
                                                                                                                                                                                                                                                                                                                           lp$37$302
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$858
                                                                                                                                                                                                                                                                                                                             3)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$858
                                                                                                                                                                                                                                                                                                                             4)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$858
                                                                                                                                                                                                                                                                                                                             5)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$858
                                                                                                                                                                                                                                                                                                                             6)
                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                             self$858
                                                                                                                                                                                                                                                                                                                             7))
                                                                                                                                                                                                                                                                                                                         (set-cell!
                                                                                                                                                                                                                                                                                                                           lp$37$302
                                                                                                                                                                                                                                                                                                                           (%closure
                                                                                                                                                                                                                                                                                                                             (lambda (self$859
                                                                                                                                                                                                                                                                                                                                      k$591
                                                                                                                                                                                                                                                                                                                                      term$304
                                                                                                                                                                                                                                                                                                                                      n$303)
                                                                                                                                                                                                                                                                                                                               (if (zero?__inline__
                                                                                                                                                                                                                                                                                                                                     n$303)
                                                                                                                                                                                                                                                                                                                                 ((%closure-ref
                                                                                                                                                                                                                                                                                                                                    k$591
                                                                                                                                                                                                                                                                                                                                    0)
                                                                                                                                                                                                                                                                                                                                  k$591
                                                                                                                                                                                                                                                                                                                                  term$304)
                                                                                                                                                                                                                                                                                                                                 ((%closure-ref
                                                                                                                                                                                                                                                                                                                                    list
                                                                                                                                                                                                                                                                                                                                    0)
                                                                                                                                                                                                                                                                                                                                  list
                                                                                                                                                                                                                                                                                                                                  (%closure
                                                                                                                                                                                                                                                                                                                                    (lambda (self$860
                                                                                                                                                                                                                                                                                                                                             r$593)
                                                                                                                                                                                                                                                                                                                                      ((%closure-ref
                                                                                                                                                                                                                                                                                                                                         (cell-get
                                                                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                                                                             self$860
                                                                                                                                                                                                                                                                                                                                             2))
                                                                                                                                                                                                                                                                                                                                         0)
                                                                                                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                           self$860
                                                                                                                                                                                                                                                                                                                                           2))
                                                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                                                         self$860
                                                                                                                                                                                                                                                                                                                                         1)
                                                                                                                                                                                                                                                                                                                                       r$593
                                                                                                                                                                                                                                                                                                                                       (Cyc-fast-sub
                                                                                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                                                                                           self$860
                                                                                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                                                                                         1)))
                                                                                                                                                                                                                                                                                                                                    k$591
                                                                                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                                                                                      self$859
                                                                                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                                                                                    n$303)
                                                                                                                                                                                                                                                                                                                                  'or
                                                                                                                                                                                                                                                                                                                                  term$304
                                                                                                                                                                                                                                                                                                                                  '(f))))
                                                                                                                                                                                                                                                                                                                             lp$37$302))))
                                                                                                                                                                                                                                                                                                                      (%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)
                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                        self$857
                                                                                                                                                                                                                                                                                                                        6)
                                                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                                                        self$857
                                                                                                                                                                                                                                                                                                                        7))
                                                                                                                                                                                                                                                                                                                    (cell lp$37$302)))
                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                   self$856
                                                                                                                                                                                                                                                                                                                   1)
                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                   self$856
                                                                                                                                                                                                                                                                                                                   2)
                                                                                                                                                                                                                                                                                                                 n$300
                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                   self$856
                                                                                                                                                                                                                                                                                                                   3)
                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                   self$856
                                                                                                                                                                                                                                                                                                                   4)
                                                                                                                                                                                                                                                                                                                 term$301
                                                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                                                   self$856
                                                                                                                                                                                                                                                                                                                   5))
                                                                                                                                                                                                                                                                                                               #f))
                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                              self$855
                                                                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                              self$855
                                                                                                                                                                                                                                                                                                              2)
                                                                                                                                                                                                                                                                                                            r$586
                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                              self$855
                                                                                                                                                                                                                                                                                                              4)
                                                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                                                              self$855
                                                                                                                                                                                                                                                                                                              6))
                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                            self$855
                                                                                                                                                                                                                                                                                                            5)
                                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                                            self$855
                                                                                                                                                                                                                                                                                                            3)))
                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                         self$854
                                                                                                                                                                                                                                                                                                         1)
                                                                                                                                                                                                                                                                                                       k$584
                                                                                                                                                                                                                                                                                                       n$297
                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                         self$854
                                                                                                                                                                                                                                                                                                         2)
                                                                                                                                                                                                                                                                                                       term$298
                                                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                                                         self$854
                                                                                                                                                                                                                                                                                                         4))
                                                                                                                                                                                                                                                                                                     alist$299))
                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                    self$853
                                                                                                                                                                                                                                                                                                    3)
                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                    self$853
                                                                                                                                                                                                                                                                                                    18)
                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                    self$853
                                                                                                                                                                                                                                                                                                    25)
                                                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                                                    self$853
                                                                                                                                                                                                                                                                                                    26)))))
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             1)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             2)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             3)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             4)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             5)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             6)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             7)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             8)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             9)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             10)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             11)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             12)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             13)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             14)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             15)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             16)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             18)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             19)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             20)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             21)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             22)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             23)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             24)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             25)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             26)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             27)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             28)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             29)
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             30))
                                                                                                                                                                                                                                                                                         (set-cell!
                                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                                             self$851
                                                                                                                                                                                                                                                                                             17)
                                                                                                                                                                                                                                                                                           (%closure
                                                                                                                                                                                                                                                                                             (lambda (self$852
                                                                                                                                                                                                                                                                                                      k$598
                                                                                                                                                                                                                                                                                                      r1$307
                                                                                                                                                                                                                                                                                                      r2$306)
                                                                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                                                                  k$598
                                                                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                                                                k$598
                                                                                                                                                                                                                                                                                                (eq? r1$307
                                                                                                                                                                                                                                                                                                     r2$306)))))))
                                                                                                                                                                                                                                                                                      (%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
                                                                                                                                                                                                                                                                                        6)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        8)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        9)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        10)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        11)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        12)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        13)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        14)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        15)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        16)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        17)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        18)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        19)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        20)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        21)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        22)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        23)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        24)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        25)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        26)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        27)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        28)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        29)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        30)
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        31))
                                                                                                                                                                                                                                                                                    (set-cell!
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$849
                                                                                                                                                                                                                                                                                        7)
                                                                                                                                                                                                                                                                                      (%closure
                                                                                                                                                                                                                                                                                        (lambda (self$850
                                                                                                                                                                                                                                                                                                 k$600
                                                                                                                                                                                                                                                                                                 symbol-record$308)
                                                                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                                                                             k$600
                                                                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                                                                           k$600
                                                                                                                                                                                                                                                                                           (vector-ref
                                                                                                                                                                                                                                                                                             symbol-record$308
                                                                                                                                                                                                                                                                                             0)))))))
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   1)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   2)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   3)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   4)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   5)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   6)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   8)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   9)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   10)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   11)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   12)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   13)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   14)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   15)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   16)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   17)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   18)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   19)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   20)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   21)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   22)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   23)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   24)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   25)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   26)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   27)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   28)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   29)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   30)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   31)
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   32))
                                                                                                                                                                                                                                                                               (set-cell!
                                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                                   self$847
                                                                                                                                                                                                                                                                                   7)
                                                                                                                                                                                                                                                                                 (%closure
                                                                                                                                                                                                                                                                                   (lambda (self$848
                                                                                                                                                                                                                                                                                            k$602
                                                                                                                                                                                                                                                                                            symbol-record$309)
                                                                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                                                                        k$602
                                                                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                                                                      k$602
                                                                                                                                                                                                                                                                                      (vector-ref
                                                                                                                                                                                                                                                                                        symbol-record$309
                                                                                                                                                                                                                                                                                        1)))))))
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              2)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              3)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              4)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              5)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              6)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              7)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              8)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              9)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              10)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              11)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              12)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              14)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              15)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              16)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              17)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              18)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              19)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              20)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              21)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              22)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              23)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              24)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              25)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              26)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              27)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              28)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              29)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              30)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              31)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              32)
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              33))
                                                                                                                                                                                                                                                                          (set-cell!
                                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                                              self$845
                                                                                                                                                                                                                                                                              13)
                                                                                                                                                                                                                                                                            (%closure
                                                                                                                                                                                                                                                                              (lambda (self$846
                                                                                                                                                                                                                                                                                       k$604
                                                                                                                                                                                                                                                                                       symbol-record$311
                                                                                                                                                                                                                                                                                       lemmas$310)
                                                                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                                                                   k$604
                                                                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                                                                 k$604
                                                                                                                                                                                                                                                                                 (vector-set!
                                                                                                                                                                                                                                                                                   symbol-record$311
                                                                                                                                                                                                                                                                                   1
                                                                                                                                                                                                                                                                                   lemmas$310)))))))
                                                                                                                                                                                                                                                                       (%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)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         9)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         11)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         12)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         13)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         14)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         15)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         16)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         17)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         18)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         19)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         20)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         21)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         22)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         23)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         24)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         25)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         26)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         27)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         28)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         29)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         30)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         31)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         32)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         33)
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         34))
                                                                                                                                                                                                                                                                     (set-cell!
                                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                                         self$843
                                                                                                                                                                                                                                                                         10)
                                                                                                                                                                                                                                                                       (%closure
                                                                                                                                                                                                                                                                         (lambda (self$844
                                                                                                                                                                                                                                                                                  k$606
                                                                                                                                                                                                                                                                                  sym$312)
                                                                                                                                                                                                                                                                           ((%closure-ref
                                                                                                                                                                                                                                                                              vector
                                                                                                                                                                                                                                                                              0)
                                                                                                                                                                                                                                                                            vector
                                                                                                                                                                                                                                                                            k$606
                                                                                                                                                                                                                                                                            sym$312
                                                                                                                                                                                                                                                                            '()))))))
                                                                                                                                                                                                                                                                  (%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)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    9)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    10)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    11)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    12)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    13)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    14)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    15)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    16)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    17)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    18)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    19)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    20)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    21)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    22)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    23)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    24)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    25)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    26)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    27)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    28)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    29)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    30)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    31)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    32)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    33)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    34))
                                                                                                                                                                                                                                                                (set-cell!
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$842
                                                                                                                                                                                                                                                                    1)
                                                                                                                                                                                                                                                                  '())))
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               1)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               2)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               3)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               4)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               5)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               6)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               7)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               8)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               9)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               10)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               11)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               12)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               13)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               14)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               15)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               16)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               17)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               18)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               19)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               20)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               21)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               22)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               23)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               24)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               25)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               26)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               27)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               28)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               29)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               30)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               31)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               32)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               33)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               34))
                                                                                                                                                                                                                                                           (set-cell!
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$836
                                                                                                                                                                                                                                                               20)
                                                                                                                                                                                                                                                             (%closure
                                                                                                                                                                                                                                                               (lambda (self$837
                                                                                                                                                                                                                                                                        k$610
                                                                                                                                                                                                                                                                        sym$313)
                                                                                                                                                                                                                                                                 ((%closure
                                                                                                                                                                                                                                                                    (lambda (self$838
                                                                                                                                                                                                                                                                             x$314)
                                                                                                                                                                                                                                                                      (if x$314
                                                                                                                                                                                                                                                                        ((%closure-ref
                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                             self$838
                                                                                                                                                                                                                                                                             2)
                                                                                                                                                                                                                                                                           0)
                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                           self$838
                                                                                                                                                                                                                                                                           2)
                                                                                                                                                                                                                                                                         (cdr x$314))
                                                                                                                                                                                                                                                                        ((%closure-ref
                                                                                                                                                                                                                                                                           vector
                                                                                                                                                                                                                                                                           0)
                                                                                                                                                                                                                                                                         vector
                                                                                                                                                                                                                                                                         (%closure
                                                                                                                                                                                                                                                                           (lambda (self$839
                                                                                                                                                                                                                                                                                    r$315)
                                                                                                                                                                                                                                                                             ((%closure
                                                                                                                                                                                                                                                                                (lambda (self$840
                                                                                                                                                                                                                                                                                         r$614)
                                                                                                                                                                                                                                                                                  ((%closure
                                                                                                                                                                                                                                                                                     (lambda (self$841
                                                                                                                                                                                                                                                                                              r$613)
                                                                                                                                                                                                                                                                                       ((%closure-ref
                                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                                            self$841
                                                                                                                                                                                                                                                                                            1)
                                                                                                                                                                                                                                                                                          0)
                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                          self$841
                                                                                                                                                                                                                                                                                          1)
                                                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                                                          self$841
                                                                                                                                                                                                                                                                                          2)))
                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                       self$840
                                                                                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                       self$840
                                                                                                                                                                                                                                                                                       3))
                                                                                                                                                                                                                                                                                   (set-cell!
                                                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                                                       self$840
                                                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                                                     r$614)))
                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                  self$839
                                                                                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                                                  self$839
                                                                                                                                                                                                                                                                                  2)
                                                                                                                                                                                                                                                                                r$315)
                                                                                                                                                                                                                                                                              (cons (cons (%closure-ref
                                                                                                                                                                                                                                                                                            self$839
                                                                                                                                                                                                                                                                                            3)
                                                                                                                                                                                                                                                                                          r$315)
                                                                                                                                                                                                                                                                                    (cell-get
                                                                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                                                                        self$839
                                                                                                                                                                                                                                                                                        1)))))
                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                             self$838
                                                                                                                                                                                                                                                                             1)
                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                             self$838
                                                                                                                                                                                                                                                                             2)
                                                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                                                             self$838
                                                                                                                                                                                                                                                                             3))
                                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                                           self$838
                                                                                                                                                                                                                                                                           3)
                                                                                                                                                                                                                                                                         '())))
                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                      self$837
                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                    k$610
                                                                                                                                                                                                                                                                    sym$313)
                                                                                                                                                                                                                                                                  (assq sym$313
                                                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                                            self$837
                                                                                                                                                                                                                                                                            1)))))
                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                 self$836
                                                                                                                                                                                                                                                                 1)))))
                                                                                                                                                                                                                                                        (%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
                                                                                                                                                                                                                                                          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-ref
                                                                                                                                                                                                                                                          self$833
                                                                                                                                                                                                                                                          29)
                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                          self$833
                                                                                                                                                                                                                                                          30)
                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                          self$833
                                                                                                                                                                                                                                                          31)
                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                          self$833
                                                                                                                                                                                                                                                          32)
                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                          self$833
                                                                                                                                                                                                                                                          33)
                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                          self$833
                                                                                                                                                                                                                                                          34)
                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                          self$833
                                                                                                                                                                                                                                                          35))
                                                                                                                                                                                                                                                      (set-cell!
                                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                                          self$833
                                                                                                                                                                                                                                                          7)
                                                                                                                                                                                                                                                        (%closure
                                                                                                                                                                                                                                                          (lambda (self$834
                                                                                                                                                                                                                                                                   k$617
                                                                                                                                                                                                                                                                   sym$317
                                                                                                                                                                                                                                                                   property$316)
                                                                                                                                                                                                                                                            ((%closure-ref
                                                                                                                                                                                                                                                               (cell-get
                                                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                                                   self$834
                                                                                                                                                                                                                                                                   1))
                                                                                                                                                                                                                                                               0)
                                                                                                                                                                                                                                                             (cell-get
                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                 self$834
                                                                                                                                                                                                                                                                 1))
                                                                                                                                                                                                                                                             (%closure
                                                                                                                                                                                                                                                               (lambda (self$835
                                                                                                                                                                                                                                                                        r$618)
                                                                                                                                                                                                                                                                 ((%closure-ref
                                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                                      self$835
                                                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                                                    0)
                                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                                    self$835
                                                                                                                                                                                                                                                                    1)
                                                                                                                                                                                                                                                                  (vector-ref
                                                                                                                                                                                                                                                                    r$618
                                                                                                                                                                                                                                                                    1)))
                                                                                                                                                                                                                                                               k$617)
                                                                                                                                                                                                                                                             sym$317))
                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                            self$833
                                                                                                                                                                                                                                                            21)))))
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     1)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     2)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     3)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     4)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     5)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     6)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     7)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     8)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     9)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     10)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     11)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     12)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     13)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     14)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     16)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     17)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     18)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     19)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     20)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     21)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     22)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     23)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     24)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     25)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     26)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     27)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     28)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     29)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     30)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     31)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     32)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     33)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     34)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     35)
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     36))
                                                                                                                                                                                                                                                 (set-cell!
                                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                                     self$830
                                                                                                                                                                                                                                                     15)
                                                                                                                                                                                                                                                   (%closure
                                                                                                                                                                                                                                                     (lambda (self$831
                                                                                                                                                                                                                                                              k$620
                                                                                                                                                                                                                                                              sym$320
                                                                                                                                                                                                                                                              property$319
                                                                                                                                                                                                                                                              value$318)
                                                                                                                                                                                                                                                       ((%closure-ref
                                                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                              self$831
                                                                                                                                                                                                                                                              1))
                                                                                                                                                                                                                                                          0)
                                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                            self$831
                                                                                                                                                                                                                                                            1))
                                                                                                                                                                                                                                                        (%closure
                                                                                                                                                                                                                                                          (lambda (self$832
                                                                                                                                                                                                                                                                   r$621)
                                                                                                                                                                                                                                                            ((%closure-ref
                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                 self$832
                                                                                                                                                                                                                                                                 1)
                                                                                                                                                                                                                                                               0)
                                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                                               self$832
                                                                                                                                                                                                                                                               1)
                                                                                                                                                                                                                                                             (vector-set!
                                                                                                                                                                                                                                                               r$621
                                                                                                                                                                                                                                                               1
                                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                                 self$832
                                                                                                                                                                                                                                                                 2))))
                                                                                                                                                                                                                                                          k$620
                                                                                                                                                                                                                                                          value$318)
                                                                                                                                                                                                                                                        sym$320))
                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                       self$830
                                                                                                                                                                                                                                                       22)))))
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                1)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                2)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                3)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                4)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                5)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                6)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                7)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                8)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                9)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                10)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                11)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                12)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                13)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                14)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                15)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                16)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                17)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                18)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                19)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                20)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                21)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                22)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                23)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                24)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                25)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                26)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                27)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                28)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                29)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                30)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                31)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                32)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                33)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                34)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                35)
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                36))
                                                                                                                                                                                                                                            (set-cell!
                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                self$827
                                                                                                                                                                                                                                                37)
                                                                                                                                                                                                                                              (%closure
                                                                                                                                                                                                                                                (lambda (self$828
                                                                                                                                                                                                                                                         k$623
                                                                                                                                                                                                                                                         term$321)
                                                                                                                                                                                                                                                  (if (pair? term$321)
                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                       map
                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                     map
                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                       (lambda (self$829
                                                                                                                                                                                                                                                                r$626)
                                                                                                                                                                                                                                                         ((%closure-ref
                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                              self$829
                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                            0)
                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                            self$829
                                                                                                                                                                                                                                                            1)
                                                                                                                                                                                                                                                          (cons (vector-ref
                                                                                                                                                                                                                                                                  (car (%closure-ref
                                                                                                                                                                                                                                                                         self$829
                                                                                                                                                                                                                                                                         2))
                                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                                r$626)))
                                                                                                                                                                                                                                                       k$623
                                                                                                                                                                                                                                                       term$321)
                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                         self$828
                                                                                                                                                                                                                                                         1))
                                                                                                                                                                                                                                                     (cdr term$321))
                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                       k$623
                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                     k$623
                                                                                                                                                                                                                                                     term$321)))
                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                  self$827
                                                                                                                                                                                                                                                  37)))))
                                                                                                                                                                                                                                         (%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-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           30)
                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           31)
                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           32)
                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           34)
                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           35)
                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           36)
                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           37)
                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           38))
                                                                                                                                                                                                                                       (set-cell!
                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                           self$823
                                                                                                                                                                                                                                           33)
                                                                                                                                                                                                                                         (%closure
                                                                                                                                                                                                                                           (lambda (self$824
                                                                                                                                                                                                                                                    k$630
                                                                                                                                                                                                                                                    lst$322)
                                                                                                                                                                                                                                             (if (null? lst$322)
                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                  k$630
                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                k$630
                                                                                                                                                                                                                                                '())
                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                  (cell-get
                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                      self$824
                                                                                                                                                                                                                                                      2))
                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$824
                                                                                                                                                                                                                                                    2))
                                                                                                                                                                                                                                                (%closure
                                                                                                                                                                                                                                                  (lambda (self$825
                                                                                                                                                                                                                                                           r$632)
                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                           self$825
                                                                                                                                                                                                                                                           3))
                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                         self$825
                                                                                                                                                                                                                                                         3))
                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                       (lambda (self$826
                                                                                                                                                                                                                                                                r$633)
                                                                                                                                                                                                                                                         ((%closure-ref
                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                              self$826
                                                                                                                                                                                                                                                              1)
                                                                                                                                                                                                                                                            0)
                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                            self$826
                                                                                                                                                                                                                                                            1)
                                                                                                                                                                                                                                                          (cons (%closure-ref
                                                                                                                                                                                                                                                                  self$826
                                                                                                                                                                                                                                                                  2)
                                                                                                                                                                                                                                                                r$633)))
                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                         self$825
                                                                                                                                                                                                                                                         1)
                                                                                                                                                                                                                                                       r$632)
                                                                                                                                                                                                                                                     (cdr (%closure-ref
                                                                                                                                                                                                                                                            self$825
                                                                                                                                                                                                                                                            2))))
                                                                                                                                                                                                                                                  k$630
                                                                                                                                                                                                                                                  lst$322
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$824
                                                                                                                                                                                                                                                    1))
                                                                                                                                                                                                                                                (car lst$322))))
                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                             self$823
                                                                                                                                                                                                                                             33)
                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                             self$823
                                                                                                                                                                                                                                             34)))))
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      1)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      2)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      3)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      4)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      5)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      6)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      7)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      8)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      9)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      10)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      11)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      12)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      13)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      14)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      15)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      16)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      17)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      18)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      19)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      20)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      21)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      22)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      23)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      24)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      25)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      26)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      27)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      28)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      29)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      30)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      31)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      32)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      33)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      34)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      35)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      36)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      37)
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      38))
                                                                                                                                                                                                                                  (set-cell!
                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                      self$819
                                                                                                                                                                                                                                      34)
                                                                                                                                                                                                                                    (%closure
                                                                                                                                                                                                                                      (lambda (self$820
                                                                                                                                                                                                                                               k$637
                                                                                                                                                                                                                                               term$323)
                                                                                                                                                                                                                                        (if (pair? term$323)
                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                             (cell-get
                                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                                 self$820
                                                                                                                                                                                                                                                 1))
                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                           (cell-get
                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                               self$820
                                                                                                                                                                                                                                               1))
                                                                                                                                                                                                                                           (%closure
                                                                                                                                                                                                                                             (lambda (self$821
                                                                                                                                                                                                                                                      r$639)
                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                  (cell-get
                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                      self$821
                                                                                                                                                                                                                                                      3))
                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$821
                                                                                                                                                                                                                                                    3))
                                                                                                                                                                                                                                                (%closure
                                                                                                                                                                                                                                                  (lambda (self$822
                                                                                                                                                                                                                                                           r$640)
                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                         self$822
                                                                                                                                                                                                                                                         1)
                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                                       self$822
                                                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                                                     (cons (%closure-ref
                                                                                                                                                                                                                                                             self$822
                                                                                                                                                                                                                                                             2)
                                                                                                                                                                                                                                                           r$640)))
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$821
                                                                                                                                                                                                                                                    1)
                                                                                                                                                                                                                                                  r$639)
                                                                                                                                                                                                                                                (cdr (%closure-ref
                                                                                                                                                                                                                                                       self$821
                                                                                                                                                                                                                                                       2))))
                                                                                                                                                                                                                                             k$637
                                                                                                                                                                                                                                             term$323
                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                               self$820
                                                                                                                                                                                                                                               2))
                                                                                                                                                                                                                                           (car term$323))
                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                             k$637
                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                           k$637
                                                                                                                                                                                                                                           term$323)))
                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                        self$819
                                                                                                                                                                                                                                        22)
                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                        self$819
                                                                                                                                                                                                                                        33)))))
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 1)
                                                                                                                                                                                                                               (%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
                                                                                                                                                                                                                                 26)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 27)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 28)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 29)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 30)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 31)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 32)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 33)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 34)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 35)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 36)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 37)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 38)
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 39))
                                                                                                                                                                                                                             (set-cell!
                                                                                                                                                                                                                               (%closure-ref
                                                                                                                                                                                                                                 self$812
                                                                                                                                                                                                                                 2)
                                                                                                                                                                                                                               (%closure
                                                                                                                                                                                                                                 (lambda (self$813
                                                                                                                                                                                                                                          k$644
                                                                                                                                                                                                                                          term$324)
                                                                                                                                                                                                                                   ((%closure
                                                                                                                                                                                                                                      (lambda (self$818
                                                                                                                                                                                                                                               k$655)
                                                                                                                                                                                                                                        (if (pair? (%closure-ref
                                                                                                                                                                                                                                                     self$818
                                                                                                                                                                                                                                                     1))
                                                                                                                                                                                                                                          (if (eq? (car (%closure-ref
                                                                                                                                                                                                                                                          self$818
                                                                                                                                                                                                                                                          1))
                                                                                                                                                                                                                                                   'equal)
                                                                                                                                                                                                                                            ((%closure-ref
                                                                                                                                                                                                                                               k$655
                                                                                                                                                                                                                                               0)
                                                                                                                                                                                                                                             k$655
                                                                                                                                                                                                                                             (pair? (cadr (%closure-ref
                                                                                                                                                                                                                                                            self$818
                                                                                                                                                                                                                                                            1))))
                                                                                                                                                                                                                                            ((%closure-ref
                                                                                                                                                                                                                                               k$655
                                                                                                                                                                                                                                               0)
                                                                                                                                                                                                                                             k$655
                                                                                                                                                                                                                                             #f))
                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                             k$655
                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                           k$655
                                                                                                                                                                                                                                           #f)))
                                                                                                                                                                                                                                      term$324)
                                                                                                                                                                                                                                    (%closure
                                                                                                                                                                                                                                      (lambda (self$814
                                                                                                                                                                                                                                               r$645)
                                                                                                                                                                                                                                        (if r$645
                                                                                                                                                                                                                                          ((%closure
                                                                                                                                                                                                                                             (lambda (self$815
                                                                                                                                                                                                                                                      r$654)
                                                                                                                                                                                                                                               ((%closure-ref
                                                                                                                                                                                                                                                  (cell-get
                                                                                                                                                                                                                                                    (%closure-ref
                                                                                                                                                                                                                                                      self$815
                                                                                                                                                                                                                                                      5))
                                                                                                                                                                                                                                                  0)
                                                                                                                                                                                                                                                (cell-get
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$815
                                                                                                                                                                                                                                                    5))
                                                                                                                                                                                                                                                (%closure
                                                                                                                                                                                                                                                  (lambda (self$816
                                                                                                                                                                                                                                                           r$649)
                                                                                                                                                                                                                                                    ((%closure-ref
                                                                                                                                                                                                                                                       (cell-get
                                                                                                                                                                                                                                                         (%closure-ref
                                                                                                                                                                                                                                                           self$816
                                                                                                                                                                                                                                                           1))
                                                                                                                                                                                                                                                       0)
                                                                                                                                                                                                                                                     (cell-get
                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                         self$816
                                                                                                                                                                                                                                                         1))
                                                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                                                       (lambda (self$817
                                                                                                                                                                                                                                                                r$650)
                                                                                                                                                                                                                                                         ((%closure-ref
                                                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                                                self$817
                                                                                                                                                                                                                                                                2))
                                                                                                                                                                                                                                                            0)
                                                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                                                              self$817
                                                                                                                                                                                                                                                              2))
                                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                                            self$817
                                                                                                                                                                                                                                                            1)
                                                                                                                                                                                                                                                          (car (%closure-ref
                                                                                                                                                                                                                                                                 self$817
                                                                                                                                                                                                                                                                 4))
                                                                                                                                                                                                                                                          'lemmas
                                                                                                                                                                                                                                                          (cons (%closure-ref
                                                                                                                                                                                                                                                                  self$817
                                                                                                                                                                                                                                                                  3)
                                                                                                                                                                                                                                                                r$650)))
                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                         self$816
                                                                                                                                                                                                                                                         2)
                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                         self$816
                                                                                                                                                                                                                                                         3)
                                                                                                                                                                                                                                                       r$649
                                                                                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                                                                                         self$816
                                                                                                                                                                                                                                                         4))
                                                                                                                                                                                                                                                     (car (cadr (%closure-ref
                                                                                                                                                                                                                                                                  self$816
                                                                                                                                                                                                                                                                  5)))
                                                                                                                                                                                                                                                     'lemmas))
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$815
                                                                                                                                                                                                                                                    1)
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$815
                                                                                                                                                                                                                                                    2)
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$815
                                                                                                                                                                                                                                                    3)
                                                                                                                                                                                                                                                  r$654
                                                                                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                                                                                    self$815
                                                                                                                                                                                                                                                    4))
                                                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                                                  self$815
                                                                                                                                                                                                                                                  4)))
                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                               self$814
                                                                                                                                                                                                                                               1)
                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                               self$814
                                                                                                                                                                                                                                               2)
                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                               self$814
                                                                                                                                                                                                                                               3)
                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                               self$814
                                                                                                                                                                                                                                               4)
                                                                                                                                                                                                                                             (%closure-ref
                                                                                                                                                                                                                                               self$814
                                                                                                                                                                                                                                               5))
                                                                                                                                                                                                                                           (cadr (%closure-ref
                                                                                                                                                                                                                                                   self$814
                                                                                                                                                                                                                                                   4)))
                                                                                                                                                                                                                                          ((%closure-ref
                                                                                                                                                                                                                                             error
                                                                                                                                                                                                                                             0)
                                                                                                                                                                                                                                           error
                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                             self$814
                                                                                                                                                                                                                                             2)
                                                                                                                                                                                                                                           #f
                                                                                                                                                                                                                                           "ADD-LEMMA did not like term:  "
                                                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                                                             self$814
                                                                                                                                                                                                                                             4))))
                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                        self$813
                                                                                                                                                                                                                                        1)
                                                                                                                                                                                                                                      k$644
                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                        self$813
                                                                                                                                                                                                                                        2)
                                                                                                                                                                                                                                      term$324
                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                        self$813
                                                                                                                                                                                                                                        3))))
                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                   self$812
                                                                                                                                                                                                                                   8)
                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                   self$812
                                                                                                                                                                                                                                   16)
                                                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                                                   self$812
                                                                                                                                                                                                                                   35)))))
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            1)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            2)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            3)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            4)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            5)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            6)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            7)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            8)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            9)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            10)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            11)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            12)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            13)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            14)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            15)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            16)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            17)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            18)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            19)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            20)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            21)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            22)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            23)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            24)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            25)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            26)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            27)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            28)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            29)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            30)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            31)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            32)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            33)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            34)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            35)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            36)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            37)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            38)
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            39))
                                                                                                                                                                                                                        (set-cell!
                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                            self$809
                                                                                                                                                                                                                            3)
                                                                                                                                                                                                                          (%closure
                                                                                                                                                                                                                            (lambda (self$810
                                                                                                                                                                                                                                     k$662
                                                                                                                                                                                                                                     lst$325)
                                                                                                                                                                                                                              (if (null? lst$325)
                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                   k$662
                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                 k$662
                                                                                                                                                                                                                                 #t)
                                                                                                                                                                                                                                ((%closure-ref
                                                                                                                                                                                                                                   (cell-get
                                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                                       self$810
                                                                                                                                                                                                                                       1))
                                                                                                                                                                                                                                   0)
                                                                                                                                                                                                                                 (cell-get
                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                     self$810
                                                                                                                                                                                                                                     1))
                                                                                                                                                                                                                                 (%closure
                                                                                                                                                                                                                                   (lambda (self$811
                                                                                                                                                                                                                                            r$664)
                                                                                                                                                                                                                                     ((%closure-ref
                                                                                                                                                                                                                                        (cell-get
                                                                                                                                                                                                                                          (%closure-ref
                                                                                                                                                                                                                                            self$811
                                                                                                                                                                                                                                            1))
                                                                                                                                                                                                                                        0)
                                                                                                                                                                                                                                      (cell-get
                                                                                                                                                                                                                                        (%closure-ref
                                                                                                                                                                                                                                          self$811
                                                                                                                                                                                                                                          1))
                                                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                                                        self$811
                                                                                                                                                                                                                                        2)
                                                                                                                                                                                                                                      (cdr (%closure-ref
                                                                                                                                                                                                                                             self$811
                                                                                                                                                                                                                                             3))))
                                                                                                                                                                                                                                   (%closure-ref
                                                                                                                                                                                                                                     self$810
                                                                                                                                                                                                                                     2)
                                                                                                                                                                                                                                   k$662
                                                                                                                                                                                                                                   lst$325)
                                                                                                                                                                                                                                 (car lst$325))))
                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                              self$809
                                                                                                                                                                                                                              2)
                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                              self$809
                                                                                                                                                                                                                              3)))))
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       1)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       2)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       3)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       4)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       5)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       6)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       7)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       8)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       9)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       10)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       11)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       12)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       13)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       14)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       15)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       16)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       17)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       18)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       19)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       20)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       21)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       22)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       24)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       25)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       26)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       27)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       28)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       29)
                                                                                                                                                                                                                     term-member?$215
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       30)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       31)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       32)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       33)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       34)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       35)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       36)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       37)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       38)
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       39))
                                                                                                                                                                                                                   (set-cell!
                                                                                                                                                                                                                     (%closure-ref
                                                                                                                                                                                                                       self$807
                                                                                                                                                                                                                       23)
                                                                                                                                                                                                                     (%closure
                                                                                                                                                                                                                       (lambda (self$808
                                                                                                                                                                                                                                k$668)
                                                                                                                                                                                                                         ((%closure-ref
                                                                                                                                                                                                                            (cell-get
                                                                                                                                                                                                                              (%closure-ref
                                                                                                                                                                                                                                self$808
                                                                                                                                                                                                                                1))
                                                                                                                                                                                                                            0)
                                                                                                                                                                                                                          (cell-get
                                                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                                                              self$808
                                                                                                                                                                                                                              1))
                                                                                                                                                                                                                          k$668
                                                                                                                                                                                                                          '((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$807
                                                                                                                                                                                                                         3)))))
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  1)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  2)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  3)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  4)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  5)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  6)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  7)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  8)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  9)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  10)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  11)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  12)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  13)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  14)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  15)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  16)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  17)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  18)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  19)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  20)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  21)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  22)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  23)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  24)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  25)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  26)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  27)
                                                                                                                                                                                                                term-args-equal?$216
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  28)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  30)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  31)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  32)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  33)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  34)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  35)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  36)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  37)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  38)
                                                                                                                                                                                                                (%closure-ref
                                                                                                                                                                                                                  self$806
                                                                                                                                                                                                                  39))
                                                                                                                                                                                                              (cell (%closure-ref
                                                                                                                                                                                                                      self$806
                                                                                                                                                                                                                      29))))
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             1)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             2)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             3)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             4)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             5)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             6)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             7)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             8)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             9)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             10)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             11)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             12)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             13)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             14)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             15)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             16)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             17)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             18)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             19)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             20)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             21)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             22)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             23)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             24)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             25)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             26)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             27)
                                                                                                                                                                                                           term-equal?$217
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             29)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             30)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             31)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             32)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             33)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             34)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             35)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             36)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             37)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             38)
                                                                                                                                                                                                           (%closure-ref
                                                                                                                                                                                                             self$805
                                                                                                                                                                                                             39))
                                                                                                                                                                                                         (cell (%closure-ref
                                                                                                                                                                                                                 self$805
                                                                                                                                                                                                                 28))))
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        1)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        2)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        3)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        4)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        5)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        6)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        7)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        8)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        9)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        10)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        11)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        12)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        13)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        14)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        15)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        16)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        17)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        18)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        19)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        20)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        21)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        22)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        23)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        24)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        25)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        26)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        27)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        28)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        30)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        31)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        32)
                                                                                                                                                                                                      trans-of-implies1$218
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        33)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        34)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        35)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        36)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        37)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        38)
                                                                                                                                                                                                      (%closure-ref
                                                                                                                                                                                                        self$804
                                                                                                                                                                                                        39))
                                                                                                                                                                                                    (cell (%closure-ref
                                                                                                                                                                                                            self$804
                                                                                                                                                                                                            29))))
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   1)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   2)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   3)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   4)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   5)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   6)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   7)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   8)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   9)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   10)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   11)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   12)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   13)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   14)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   15)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   16)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   17)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   18)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   19)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   20)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   21)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   22)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   23)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   24)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   25)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   26)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   27)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   28)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   29)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   30)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   31)
                                                                                                                                                                                                 trans-of-implies$219
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   33)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   34)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   35)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   36)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   37)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   38)
                                                                                                                                                                                                 (%closure-ref
                                                                                                                                                                                                   self$803
                                                                                                                                                                                                   39))
                                                                                                                                                                                               (cell (%closure-ref
                                                                                                                                                                                                       self$803
                                                                                                                                                                                                       32))))
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              1)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              2)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              3)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              4)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              5)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              6)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              7)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              8)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              9)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              10)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              11)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              12)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              13)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              14)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              15)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              16)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              17)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              18)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              19)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              20)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              21)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              22)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              23)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              24)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              25)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              26)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              27)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              28)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              29)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              30)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              31)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              33)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              34)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              35)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              36)
                                                                                                                                                                                            true-term$220
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              37)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              38)
                                                                                                                                                                                            (%closure-ref
                                                                                                                                                                                              self$802
                                                                                                                                                                                              39))
                                                                                                                                                                                          (cell (%closure-ref
                                                                                                                                                                                                  self$802
                                                                                                                                                                                                  32))))
                                                                                                                                                                                       (%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)
                                                                                                                                                                                       false-term$221
                                                                                                                                                                                       (%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-ref
                                                                                                                                                                                         self$801
                                                                                                                                                                                         31)
                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                         self$801
                                                                                                                                                                                         32)
                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                         self$801
                                                                                                                                                                                         33)
                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                         self$801
                                                                                                                                                                                         34)
                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                         self$801
                                                                                                                                                                                         35)
                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                         self$801
                                                                                                                                                                                         37)
                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                         self$801
                                                                                                                                                                                         38)
                                                                                                                                                                                       (%closure-ref
                                                                                                                                                                                         self$801
                                                                                                                                                                                         39))
                                                                                                                                                                                     (cell (%closure-ref
                                                                                                                                                                                             self$801
                                                                                                                                                                                             36))))
                                                                                                                                                                                  (%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
                                                                                                                                                                                    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)
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    31)
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    32)
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    33)
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    34)
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    35)
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    36)
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    37)
                                                                                                                                                                                  truep$222
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    38)
                                                                                                                                                                                  (%closure-ref
                                                                                                                                                                                    self$800
                                                                                                                                                                                    39))
                                                                                                                                                                                (cell (%closure-ref
                                                                                                                                                                                        self$800
                                                                                                                                                                                        6))))
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               1)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               2)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               3)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               4)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               5)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               6)
                                                                                                                                                                             falsep$223
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               7)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               8)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               9)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               10)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               11)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               12)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               13)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               14)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               15)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               16)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               17)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               18)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               19)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               20)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               21)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               22)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               23)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               24)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               25)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               26)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               27)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               28)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               29)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               30)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               31)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               32)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               33)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               34)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               35)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               36)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               38)
                                                                                                                                                                             (%closure-ref
                                                                                                                                                                               self$799
                                                                                                                                                                               39))
                                                                                                                                                                           (cell (%closure-ref
                                                                                                                                                                                   self$799
                                                                                                                                                                                   37))))
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          1)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          2)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          3)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          4)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          5)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          6)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          8)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          9)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          10)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          11)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          12)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          13)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          14)
                                                                                                                                                                        one-way-unify1-lst$224
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          15)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          16)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          17)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          18)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          19)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          20)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          21)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          22)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          23)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          24)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          25)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          26)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          27)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          28)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          29)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          30)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          31)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          32)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          33)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          34)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          35)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          36)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          37)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          38)
                                                                                                                                                                        (%closure-ref
                                                                                                                                                                          self$798
                                                                                                                                                                          39))
                                                                                                                                                                      (cell (%closure-ref
                                                                                                                                                                              self$798
                                                                                                                                                                              7))))
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     1)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     2)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     3)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     4)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     5)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     6)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     7)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     8)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     9)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     10)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     11)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     12)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     13)
                                                                                                                                                                   one-way-unify1$225
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     15)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     16)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     17)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     18)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     19)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     20)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     21)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     22)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     23)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     24)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     25)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     26)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     27)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     28)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     29)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     30)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     31)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     32)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     33)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     34)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     35)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     36)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     37)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     38)
                                                                                                                                                                   (%closure-ref
                                                                                                                                                                     self$797
                                                                                                                                                                     39))
                                                                                                                                                                 (cell (%closure-ref
                                                                                                                                                                         self$797
                                                                                                                                                                         14))))
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                1)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                2)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                3)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                4)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                5)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                6)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                7)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                8)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                9)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                10)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                11)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                12)
                                                                                                                                                              one-way-unify$226
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                14)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                15)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                16)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                17)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                18)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                19)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                20)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                21)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                22)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                23)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                24)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                25)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                26)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                27)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                28)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                29)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                30)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                31)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                32)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                33)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                34)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                35)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                36)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                37)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                38)
                                                                                                                                                              (%closure-ref
                                                                                                                                                                self$796
                                                                                                                                                                39))
                                                                                                                                                            (cell (%closure-ref
                                                                                                                                                                    self$796
                                                                                                                                                                    13))))
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           1)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           2)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           3)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           4)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           5)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           6)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           7)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           8)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           9)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           10)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           11)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           12)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           14)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           15)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           16)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           17)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           18)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           19)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           20)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           21)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           22)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           23)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           24)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           25)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           26)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           27)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           28)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           29)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           30)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           31)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           32)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           33)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           34)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           35)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           36)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           37)
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           38)
                                                                                                                                                         unify-subst$227
                                                                                                                                                         (%closure-ref
                                                                                                                                                           self$795
                                                                                                                                                           39))
                                                                                                                                                       (cell (%closure-ref
                                                                                                                                                               self$795
                                                                                                                                                               13))))
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      1)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      2)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      3)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      4)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      5)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      6)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      7)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      8)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      9)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      10)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      11)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      12)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      13)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      14)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      15)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      16)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      17)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      18)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      19)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      20)
                                                                                                                                                    rewrite-with-lemmas$228
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      21)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      22)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      23)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      24)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      25)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      26)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      27)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      28)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      29)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      30)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      31)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      32)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      33)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      34)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      35)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      36)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      37)
                                                                                                                                                    (%closure-ref
                                                                                                                                                      self$794
                                                                                                                                                      39))
                                                                                                                                                  (cell (%closure-ref
                                                                                                                                                          self$794
                                                                                                                                                          38))))
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 1)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 2)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 3)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 4)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 5)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 6)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 7)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 8)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 9)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 10)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 11)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 12)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 13)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 14)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 15)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 16)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 17)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 18)
                                                                                                                                               rewrite-args$229
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 19)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 21)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 22)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 23)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 24)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 25)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 26)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 27)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 28)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 29)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 30)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 31)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 32)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 33)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 34)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 35)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 36)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 37)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 38)
                                                                                                                                               (%closure-ref
                                                                                                                                                 self$793
                                                                                                                                                 39))
                                                                                                                                             (cell (%closure-ref
                                                                                                                                                     self$793
                                                                                                                                                     20))))
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            1)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            2)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            3)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            4)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            5)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            6)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            7)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            8)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            9)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            10)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            11)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            12)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            13)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            14)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            15)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            16)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            17)
                                                                                                                                          rewrite$230
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            19)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            20)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            21)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            22)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            23)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            24)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            25)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            26)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            27)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            28)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            29)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            30)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            31)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            32)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            33)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            34)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            35)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            36)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            37)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            38)
                                                                                                                                          (%closure-ref
                                                                                                                                            self$792
                                                                                                                                            39))
                                                                                                                                        (cell (%closure-ref
                                                                                                                                                self$792
                                                                                                                                                18))))
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       1)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       2)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       3)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       4)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       5)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       6)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       7)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       8)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       9)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       10)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       11)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       12)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       13)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       14)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       15)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       16)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       17)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       19)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       20)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       21)
                                                                                                                                     scons$231
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       22)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       23)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       24)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       25)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       26)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       27)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       28)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       29)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       30)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       31)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       32)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       33)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       34)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       35)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       36)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       37)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       38)
                                                                                                                                     (%closure-ref
                                                                                                                                       self$791
                                                                                                                                       39))
                                                                                                                                   (cell (%closure-ref
                                                                                                                                           self$791
                                                                                                                                           18))))
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  1)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  2)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  3)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  4)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  5)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  6)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  7)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  8)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  9)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  10)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  11)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  12)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  13)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  14)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  15)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  16)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  17)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  18)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  19)
                                                                                                                                rewrite-count$232
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  20)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  22)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  23)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  24)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  25)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  26)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  27)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  28)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  29)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  30)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  31)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  32)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  33)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  34)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  35)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  36)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  37)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  38)
                                                                                                                                (%closure-ref
                                                                                                                                  self$790
                                                                                                                                  39))
                                                                                                                              (cell (%closure-ref
                                                                                                                                      self$790
                                                                                                                                      21))))
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             1)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             2)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             3)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             4)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             5)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             6)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             7)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             8)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             9)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             10)
                                                                                                                           if-constructor$233
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             11)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             12)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             13)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             14)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             15)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             16)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             17)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             18)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             20)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             21)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             22)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             23)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             24)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             25)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             26)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             27)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             28)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             29)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             30)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             31)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             32)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             33)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             34)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             35)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             36)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             37)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             38)
                                                                                                                           (%closure-ref
                                                                                                                             self$789
                                                                                                                             39))
                                                                                                                         (cell (%closure-ref
                                                                                                                                 self$789
                                                                                                                                 19))))
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        1)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        2)
                                                                                                                      (%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-ref
                                                                                                                        self$788
                                                                                                                        8)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        9)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        10)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        12)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        13)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        14)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        15)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        16)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        17)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        18)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        19)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        20)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        21)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        22)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        23)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        24)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        25)
                                                                                                                      tautologyp$234
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        26)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        27)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        28)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        29)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        30)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        31)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        32)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        33)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        34)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        35)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        36)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        37)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        38)
                                                                                                                      (%closure-ref
                                                                                                                        self$788
                                                                                                                        39))
                                                                                                                    (cell (%closure-ref
                                                                                                                            self$788
                                                                                                                            11))))
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   1)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   2)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   3)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   4)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   5)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   6)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   7)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   8)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   9)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   10)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   11)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   12)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   13)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   14)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   15)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   16)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   17)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   18)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   19)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   20)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   21)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   22)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   23)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   24)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   25)
                                                                                                                 tautp$235
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   27)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   28)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   29)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   30)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   31)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   32)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   33)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   34)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   35)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   36)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   37)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   38)
                                                                                                                 (%closure-ref
                                                                                                                   self$787
                                                                                                                   39))
                                                                                                               (cell (%closure-ref
                                                                                                                       self$787
                                                                                                                       26))))
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              1)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              2)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              3)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              4)
                                                                                                            apply-subst-lst$236
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              5)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              6)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              7)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              8)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              9)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              10)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              11)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              12)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              13)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              14)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              15)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              16)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              17)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              18)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              19)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              20)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              21)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              22)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              23)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              24)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              25)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              27)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              28)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              29)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              30)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              31)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              32)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              33)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              34)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              35)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              36)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              37)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              38)
                                                                                                            (%closure-ref
                                                                                                              self$786
                                                                                                              39))
                                                                                                          (cell (%closure-ref
                                                                                                                  self$786
                                                                                                                  26))))
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         1)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         2)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         3)
                                                                                                       apply-subst$237
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         5)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         6)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         7)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         8)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         9)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         10)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         11)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         12)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         13)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         14)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         15)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         16)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         17)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         18)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         19)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         20)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         21)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         22)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         23)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         24)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         25)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         26)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         27)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         28)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         29)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         30)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         31)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         32)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         33)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         34)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         35)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         36)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         37)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         38)
                                                                                                       (%closure-ref
                                                                                                         self$785
                                                                                                         39))
                                                                                                     (cell (%closure-ref
                                                                                                             self$785
                                                                                                             4))))
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    1)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    2)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    3)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    5)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    6)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    7)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    8)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    9)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    10)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    11)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    12)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    13)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    14)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    15)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    16)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    17)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    18)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    19)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    20)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    21)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    22)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    23)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    24)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    25)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    26)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    27)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    28)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    29)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    30)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    31)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    32)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    33)
                                                                                                  translate-alist$238
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    34)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    35)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    36)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    37)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    38)
                                                                                                  (%closure-ref
                                                                                                    self$784
                                                                                                    39))
                                                                                                (cell (%closure-ref
                                                                                                        self$784
                                                                                                        4))))
                                                                                             (%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)
                                                                                             test$239
                                                                                             (%closure-ref
                                                                                               self$783
                                                                                               31)
                                                                                             (%closure-ref
                                                                                               self$783
                                                                                               32)
                                                                                             (%closure-ref
                                                                                               self$783
                                                                                               34)
                                                                                             (%closure-ref
                                                                                               self$783
                                                                                               35)
                                                                                             (%closure-ref
                                                                                               self$783
                                                                                               36)
                                                                                             (%closure-ref
                                                                                               self$783
                                                                                               37)
                                                                                             (%closure-ref
                                                                                               self$783
                                                                                               38)
                                                                                             (%closure-ref
                                                                                               self$783
                                                                                               39))
                                                                                           (cell (%closure-ref
                                                                                                   self$783
                                                                                                   33))))
                                                                                        (%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)
                                                                                        symbol-record-equal?$240
                                                                                        (%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
                                                                                          31)
                                                                                        (%closure-ref
                                                                                          self$782
                                                                                          32)
                                                                                        (%closure-ref
                                                                                          self$782
                                                                                          33)
                                                                                        (%closure-ref
                                                                                          self$782
                                                                                          34)
                                                                                        (%closure-ref
                                                                                          self$782
                                                                                          35)
                                                                                        (%closure-ref
                                                                                          self$782
                                                                                          36)
                                                                                        (%closure-ref
                                                                                          self$782
                                                                                          37)
                                                                                        (%closure-ref
                                                                                          self$782
                                                                                          38)
                                                                                        (%closure-ref
                                                                                          self$782
                                                                                          39))
                                                                                      (cell (%closure-ref
                                                                                              self$782
                                                                                              30))))
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     1)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     2)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     3)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     4)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     5)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     6)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     7)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     8)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     9)
                                                                                   get-name$241
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     10)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     11)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     12)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     13)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     14)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     15)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     16)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     17)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     18)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     19)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     20)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     21)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     22)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     23)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     25)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     26)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     27)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     28)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     29)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     30)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     31)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     32)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     33)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     34)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     35)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     36)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     37)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     38)
                                                                                   (%closure-ref
                                                                                     self$781
                                                                                     39))
                                                                                 (cell (%closure-ref
                                                                                         self$781
                                                                                         24))))
                                                                              (%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)
                                                                              get-lemmas$242
                                                                              (%closure-ref
                                                                                self$780
                                                                                10)
                                                                              (%closure-ref
                                                                                self$780
                                                                                11)
                                                                              (%closure-ref
                                                                                self$780
                                                                                12)
                                                                              (%closure-ref
                                                                                self$780
                                                                                13)
                                                                              (%closure-ref
                                                                                self$780
                                                                                14)
                                                                              (%closure-ref
                                                                                self$780
                                                                                15)
                                                                              (%closure-ref
                                                                                self$780
                                                                                16)
                                                                              (%closure-ref
                                                                                self$780
                                                                                17)
                                                                              (%closure-ref
                                                                                self$780
                                                                                18)
                                                                              (%closure-ref
                                                                                self$780
                                                                                19)
                                                                              (%closure-ref
                                                                                self$780
                                                                                20)
                                                                              (%closure-ref
                                                                                self$780
                                                                                21)
                                                                              (%closure-ref
                                                                                self$780
                                                                                22)
                                                                              (%closure-ref
                                                                                self$780
                                                                                23)
                                                                              (%closure-ref
                                                                                self$780
                                                                                24)
                                                                              (%closure-ref
                                                                                self$780
                                                                                25)
                                                                              (%closure-ref
                                                                                self$780
                                                                                26)
                                                                              (%closure-ref
                                                                                self$780
                                                                                27)
                                                                              (%closure-ref
                                                                                self$780
                                                                                28)
                                                                              (%closure-ref
                                                                                self$780
                                                                                29)
                                                                              (%closure-ref
                                                                                self$780
                                                                                30)
                                                                              (%closure-ref
                                                                                self$780
                                                                                31)
                                                                              (%closure-ref
                                                                                self$780
                                                                                32)
                                                                              (%closure-ref
                                                                                self$780
                                                                                33)
                                                                              (%closure-ref
                                                                                self$780
                                                                                34)
                                                                              (%closure-ref
                                                                                self$780
                                                                                35)
                                                                              (%closure-ref
                                                                                self$780
                                                                                36)
                                                                              (%closure-ref
                                                                                self$780
                                                                                37)
                                                                              (%closure-ref
                                                                                self$780
                                                                                38)
                                                                              (%closure-ref
                                                                                self$780
                                                                                39))
                                                                            (cell (%closure-ref
                                                                                    self$780
                                                                                    9))))
                                                                         (%closure-ref
                                                                           self$779
                                                                           1)
                                                                         (%closure-ref
                                                                           self$779
                                                                           2)
                                                                         (%closure-ref
                                                                           self$779
                                                                           3)
                                                                         (%closure-ref
                                                                           self$779
                                                                           4)
                                                                         (%closure-ref
                                                                           self$779
                                                                           5)
                                                                         (%closure-ref
                                                                           self$779
                                                                           6)
                                                                         (%closure-ref
                                                                           self$779
                                                                           7)
                                                                         (%closure-ref
                                                                           self$779
                                                                           8)
                                                                         (%closure-ref
                                                                           self$779
                                                                           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)
                                                                         put-lemmas!$243
                                                                         (%closure-ref
                                                                           self$779
                                                                           17)
                                                                         (%closure-ref
                                                                           self$779
                                                                           18)
                                                                         (%closure-ref
                                                                           self$779
                                                                           19)
                                                                         (%closure-ref
                                                                           self$779
                                                                           20)
                                                                         (%closure-ref
                                                                           self$779
                                                                           21)
                                                                         (%closure-ref
                                                                           self$779
                                                                           22)
                                                                         (%closure-ref
                                                                           self$779
                                                                           23)
                                                                         (%closure-ref
                                                                           self$779
                                                                           24)
                                                                         (%closure-ref
                                                                           self$779
                                                                           25)
                                                                         (%closure-ref
                                                                           self$779
                                                                           26)
                                                                         (%closure-ref
                                                                           self$779
                                                                           27)
                                                                         (%closure-ref
                                                                           self$779
                                                                           28)
                                                                         (%closure-ref
                                                                           self$779
                                                                           29)
                                                                         (%closure-ref
                                                                           self$779
                                                                           30)
                                                                         (%closure-ref
                                                                           self$779
                                                                           31)
                                                                         (%closure-ref
                                                                           self$779
                                                                           32)
                                                                         (%closure-ref
                                                                           self$779
                                                                           33)
                                                                         (%closure-ref
                                                                           self$779
                                                                           34)
                                                                         (%closure-ref
                                                                           self$779
                                                                           35)
                                                                         (%closure-ref
                                                                           self$779
                                                                           36)
                                                                         (%closure-ref
                                                                           self$779
                                                                           37)
                                                                         (%closure-ref
                                                                           self$779
                                                                           38)
                                                                         (%closure-ref
                                                                           self$779
                                                                           39))
                                                                       (cell (%closure-ref
                                                                               self$779
                                                                               9))))
                                                                    (%closure-ref
                                                                      self$778
                                                                      1)
                                                                    (%closure-ref
                                                                      self$778
                                                                      2)
                                                                    (%closure-ref
                                                                      self$778
                                                                      3)
                                                                    (%closure-ref
                                                                      self$778
                                                                      4)
                                                                    (%closure-ref
                                                                      self$778
                                                                      5)
                                                                    (%closure-ref
                                                                      self$778
                                                                      6)
                                                                    (%closure-ref
                                                                      self$778
                                                                      7)
                                                                    (%closure-ref
                                                                      self$778
                                                                      8)
                                                                    (%closure-ref
                                                                      self$778
                                                                      9)
                                                                    (%closure-ref
                                                                      self$778
                                                                      10)
                                                                    (%closure-ref
                                                                      self$778
                                                                      11)
                                                                    make-symbol-record$244
                                                                    (%closure-ref
                                                                      self$778
                                                                      12)
                                                                    (%closure-ref
                                                                      self$778
                                                                      13)
                                                                    (%closure-ref
                                                                      self$778
                                                                      14)
                                                                    (%closure-ref
                                                                      self$778
                                                                      15)
                                                                    (%closure-ref
                                                                      self$778
                                                                      17)
                                                                    (%closure-ref
                                                                      self$778
                                                                      18)
                                                                    (%closure-ref
                                                                      self$778
                                                                      19)
                                                                    (%closure-ref
                                                                      self$778
                                                                      20)
                                                                    (%closure-ref
                                                                      self$778
                                                                      21)
                                                                    (%closure-ref
                                                                      self$778
                                                                      22)
                                                                    (%closure-ref
                                                                      self$778
                                                                      23)
                                                                    (%closure-ref
                                                                      self$778
                                                                      24)
                                                                    (%closure-ref
                                                                      self$778
                                                                      25)
                                                                    (%closure-ref
                                                                      self$778
                                                                      26)
                                                                    (%closure-ref
                                                                      self$778
                                                                      27)
                                                                    (%closure-ref
                                                                      self$778
                                                                      28)
                                                                    (%closure-ref
                                                                      self$778
                                                                      29)
                                                                    (%closure-ref
                                                                      self$778
                                                                      30)
                                                                    (%closure-ref
                                                                      self$778
                                                                      31)
                                                                    (%closure-ref
                                                                      self$778
                                                                      32)
                                                                    (%closure-ref
                                                                      self$778
                                                                      33)
                                                                    (%closure-ref
                                                                      self$778
                                                                      34)
                                                                    (%closure-ref
                                                                      self$778
                                                                      35)
                                                                    (%closure-ref
                                                                      self$778
                                                                      36)
                                                                    (%closure-ref
                                                                      self$778
                                                                      37)
                                                                    (%closure-ref
                                                                      self$778
                                                                      38)
                                                                    (%closure-ref
                                                                      self$778
                                                                      39))
                                                                  (cell (%closure-ref
                                                                          self$778
                                                                          16))))
                                                               *symbol-records-alist*$245
                                                               (%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
                                                                 12)
                                                               (%closure-ref
                                                                 self$777
                                                                 13)
                                                               (%closure-ref
                                                                 self$777
                                                                 14)
                                                               (%closure-ref
                                                                 self$777
                                                                 15)
                                                               (%closure-ref
                                                                 self$777
                                                                 16)
                                                               (%closure-ref
                                                                 self$777
                                                                 17)
                                                               (%closure-ref
                                                                 self$777
                                                                 18)
                                                               (%closure-ref
                                                                 self$777
                                                                 19)
                                                               (%closure-ref
                                                                 self$777
                                                                 20)
                                                               (%closure-ref
                                                                 self$777
                                                                 21)
                                                               (%closure-ref
                                                                 self$777
                                                                 22)
                                                               (%closure-ref
                                                                 self$777
                                                                 23)
                                                               (%closure-ref
                                                                 self$777
                                                                 24)
                                                               (%closure-ref
                                                                 self$777
                                                                 25)
                                                               (%closure-ref
                                                                 self$777
                                                                 26)
                                                               (%closure-ref
                                                                 self$777
                                                                 27)
                                                               (%closure-ref
                                                                 self$777
                                                                 28)
                                                               (%closure-ref
                                                                 self$777
                                                                 29)
                                                               (%closure-ref
                                                                 self$777
                                                                 30)
                                                               (%closure-ref
                                                                 self$777
                                                                 31)
                                                               (%closure-ref
                                                                 self$777
                                                                 32)
                                                               (%closure-ref
                                                                 self$777
                                                                 33)
                                                               (%closure-ref
                                                                 self$777
                                                                 34)
                                                               (%closure-ref
                                                                 self$777
                                                                 35)
                                                               (%closure-ref
                                                                 self$777
                                                                 36)
                                                               (%closure-ref
                                                                 self$777
                                                                 37)
                                                               (%closure-ref
                                                                 self$777
                                                                 38)
                                                               (%closure-ref
                                                                 self$777
                                                                 39))
                                                             (cell (%closure-ref
                                                                     self$777
                                                                     11))))
                                                          (%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)
                                                          symbol->symbol-record$246
                                                          (%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)
                                                          (%closure-ref
                                                            self$776
                                                            32)
                                                          (%closure-ref
                                                            self$776
                                                            33)
                                                          (%closure-ref
                                                            self$776
                                                            34)
                                                          (%closure-ref
                                                            self$776
                                                            35)
                                                          (%closure-ref
                                                            self$776
                                                            36)
                                                          (%closure-ref
                                                            self$776
                                                            37)
                                                          (%closure-ref
                                                            self$776
                                                            38)
                                                          (%closure-ref
                                                            self$776
                                                            39))
                                                        (cell (%closure-ref
                                                                self$776
                                                                1))))
                                                     (%closure-ref self$775 1)
                                                     (%closure-ref self$775 2)
                                                     (%closure-ref self$775 3)
                                                     (%closure-ref self$775 4)
                                                     (%closure-ref self$775 5)
                                                     (%closure-ref self$775 6)
                                                     (%closure-ref self$775 7)
                                                     get$247
                                                     (%closure-ref self$775 8)
                                                     (%closure-ref self$775 9)
                                                     (%closure-ref self$775 10)
                                                     (%closure-ref self$775 11)
                                                     (%closure-ref self$775 12)
                                                     (%closure-ref self$775 13)
                                                     (%closure-ref self$775 14)
                                                     (%closure-ref self$775 15)
                                                     (%closure-ref self$775 16)
                                                     (%closure-ref self$775 17)
                                                     (%closure-ref self$775 18)
                                                     (%closure-ref self$775 19)
                                                     (%closure-ref self$775 20)
                                                     (%closure-ref self$775 21)
                                                     (%closure-ref self$775 22)
                                                     (%closure-ref self$775 24)
                                                     (%closure-ref self$775 25)
                                                     (%closure-ref self$775 26)
                                                     (%closure-ref self$775 27)
                                                     (%closure-ref self$775 28)
                                                     (%closure-ref self$775 29)
                                                     (%closure-ref self$775 30)
                                                     (%closure-ref self$775 31)
                                                     (%closure-ref self$775 32)
                                                     (%closure-ref self$775 33)
                                                     (%closure-ref self$775 34)
                                                     (%closure-ref self$775 35)
                                                     (%closure-ref self$775 36)
                                                     (%closure-ref self$775 37)
                                                     (%closure-ref self$775 38)
                                                     (%closure-ref self$775 39))
                                                   (cell (%closure-ref
                                                           self$775
                                                           23))))
                                                (%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 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)
                                                put$248
                                                (%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-ref self$774 32)
                                                (%closure-ref self$774 33)
                                                (%closure-ref self$774 34)
                                                (%closure-ref self$774 35)
                                                (%closure-ref self$774 36)
                                                (%closure-ref self$774 37)
                                                (%closure-ref self$774 38)
                                                (%closure-ref self$774 39))
                                              (cell (%closure-ref self$774 8))))
                                           (%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 12)
                                           (%closure-ref self$773 13)
                                           (%closure-ref self$773 14)
                                           (%closure-ref self$773 15)
                                           (%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)
                                           (%closure-ref self$773 33)
                                           (%closure-ref self$773 34)
                                           (%closure-ref self$773 35)
                                           (%closure-ref self$773 36)
                                           (%closure-ref self$773 37)
                                           (%closure-ref self$773 38)
                                           (%closure-ref self$773 39)
                                           untranslate-term$249)
                                         (cell (%closure-ref self$773 16))))
                                      (%closure-ref self$772 1)
                                      (%closure-ref self$772 2)
                                      (%closure-ref self$772 3)
                                      (%closure-ref self$772 4)
                                      (%closure-ref self$772 5)
                                      (%closure-ref self$772 6)
                                      (%closure-ref self$772 7)
                                      (%closure-ref self$772 8)
                                      (%closure-ref self$772 9)
                                      (%closure-ref self$772 10)
                                      (%closure-ref self$772 11)
                                      (%closure-ref self$772 12)
                                      (%closure-ref self$772 13)
                                      (%closure-ref self$772 14)
                                      (%closure-ref self$772 15)
                                      (%closure-ref self$772 16)
                                      (%closure-ref self$772 17)
                                      (%closure-ref self$772 18)
                                      (%closure-ref self$772 19)
                                      (%closure-ref self$772 20)
                                      (%closure-ref self$772 21)
                                      (%closure-ref self$772 22)
                                      (%closure-ref self$772 23)
                                      (%closure-ref self$772 24)
                                      (%closure-ref self$772 25)
                                      (%closure-ref self$772 26)
                                      (%closure-ref self$772 27)
                                      (%closure-ref self$772 28)
                                      (%closure-ref self$772 29)
                                      (%closure-ref self$772 30)
                                      (%closure-ref self$772 31)
                                      (%closure-ref self$772 32)
                                      (%closure-ref self$772 33)
                                      (%closure-ref self$772 34)
                                      translate-args$250
                                      (%closure-ref self$772 35)
                                      (%closure-ref self$772 36)
                                      (%closure-ref self$772 37)
                                      (%closure-ref self$772 38))
                                    (cell (%closure-ref self$772 39))))
                                 (%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-ref self$771 33)
                                 (%closure-ref self$771 34)
                                 translate-term$251
                                 (%closure-ref self$771 36)
                                 (%closure-ref self$771 37)
                                 (%closure-ref self$771 38)
                                 (%closure-ref self$771 39))
                               (cell (%closure-ref self$771 35))))
                            (%closure-ref self$770 1)
                            add-lemma$252
                            (%closure-ref self$770 2)
                            (%closure-ref self$770 3)
                            (%closure-ref self$770 4)
                            (%closure-ref self$770 5)
                            (%closure-ref self$770 6)
                            (%closure-ref self$770 7)
                            (%closure-ref self$770 8)
                            (%closure-ref self$770 9)
                            (%closure-ref self$770 10)
                            (%closure-ref self$770 11)
                            (%closure-ref self$770 12)
                            (%closure-ref self$770 13)
                            (%closure-ref self$770 14)
                            (%closure-ref self$770 15)
                            (%closure-ref self$770 16)
                            (%closure-ref self$770 17)
                            (%closure-ref self$770 18)
                            (%closure-ref self$770 19)
                            (%closure-ref self$770 20)
                            (%closure-ref self$770 21)
                            (%closure-ref self$770 22)
                            (%closure-ref self$770 23)
                            (%closure-ref self$770 24)
                            (%closure-ref self$770 25)
                            (%closure-ref self$770 26)
                            (%closure-ref self$770 27)
                            (%closure-ref self$770 28)
                            (%closure-ref self$770 29)
                            (%closure-ref self$770 30)
                            (%closure-ref self$770 31)
                            (%closure-ref self$770 32)
                            (%closure-ref self$770 33)
                            (%closure-ref self$770 34)
                            (%closure-ref self$770 36)
                            (%closure-ref self$770 37)
                            (%closure-ref self$770 38)
                            (%closure-ref self$770 39))
                          (cell (%closure-ref self$770 35))))
                       (%closure-ref self$769 1)
                       add-lemma-lst$253
                       (%closure-ref self$769 3)
                       (%closure-ref self$769 4)
                       (%closure-ref self$769 5)
                       (%closure-ref self$769 6)
                       (%closure-ref self$769 7)
                       (%closure-ref self$769 8)
                       (%closure-ref self$769 9)
                       (%closure-ref self$769 10)
                       (%closure-ref self$769 11)
                       (%closure-ref self$769 12)
                       (%closure-ref self$769 13)
                       (%closure-ref self$769 14)
                       (%closure-ref self$769 15)
                       (%closure-ref self$769 16)
                       (%closure-ref self$769 17)
                       (%closure-ref self$769 18)
                       (%closure-ref self$769 19)
                       (%closure-ref self$769 20)
                       (%closure-ref self$769 21)
                       (%closure-ref self$769 22)
                       (%closure-ref self$769 23)
                       (%closure-ref self$769 24)
                       (%closure-ref self$769 25)
                       (%closure-ref self$769 26)
                       (%closure-ref self$769 27)
                       (%closure-ref self$769 28)
                       (%closure-ref self$769 29)
                       (%closure-ref self$769 30)
                       (%closure-ref self$769 31)
                       (%closure-ref self$769 32)
                       (%closure-ref self$769 33)
                       (%closure-ref self$769 34)
                       (%closure-ref self$769 35)
                       (%closure-ref self$769 36)
                       (%closure-ref self$769 37)
                       (%closure-ref self$769 38)
                       (%closure-ref self$769 39))
                     (cell (%closure-ref self$769 2))))
                  (%closure-ref self$768 1)
                  (%closure-ref self$768 2)
                  (%closure-ref self$768 4)
                  (%closure-ref self$768 5)
                  (%closure-ref self$768 6)
                  (%closure-ref self$768 7)
                  (%closure-ref self$768 8)
                  (%closure-ref self$768 9)
                  (%closure-ref self$768 10)
                  (%closure-ref self$768 11)
                  (%closure-ref self$768 12)
                  (%closure-ref self$768 13)
                  (%closure-ref self$768 14)
                  (%closure-ref self$768 15)
                  (%closure-ref self$768 16)
                  (%closure-ref self$768 17)
                  (%closure-ref self$768 18)
                  (%closure-ref self$768 19)
                  (%closure-ref self$768 20)
                  (%closure-ref self$768 21)
                  (%closure-ref self$768 22)
                  setup$254
                  (%closure-ref self$768 23)
                  (%closure-ref self$768 24)
                  (%closure-ref self$768 25)
                  (%closure-ref self$768 26)
                  (%closure-ref self$768 27)
                  (%closure-ref self$768 28)
                  (%closure-ref self$768 29)
                  (%closure-ref self$768 30)
                  (%closure-ref self$768 31)
                  (%closure-ref self$768 32)
                  (%closure-ref self$768 33)
                  (%closure-ref self$768 34)
                  (%closure-ref self$768 35)
                  (%closure-ref self$768 36)
                  (%closure-ref self$768 37)
                  (%closure-ref self$768 38)
                  (%closure-ref self$768 39))
                (cell (%closure-ref self$768 3))))
             *symbol-records-alist*$245
             add-lemma$252
             add-lemma-lst$253
             apply-subst$237
             apply-subst-lst$236
             false-term$221
             falsep$223
             get$247
             get-lemmas$242
             get-name$241
             if-constructor$233
             make-symbol-record$244
             one-way-unify$226
             one-way-unify1$225
             one-way-unify1-lst$224
             put$248
             put-lemmas!$243
             rewrite$230
             rewrite-args$229
             rewrite-count$232
             rewrite-with-lemmas$228
             scons$231
             symbol->symbol-record$246
             symbol-record-equal?$240
             tautologyp$234
             tautp$235
             term-args-equal?$216
             term-equal?$217
             term-member?$215
             test$239
             trans-of-implies$219
             trans-of-implies1$218
             translate-alist$238
             translate-args$250
             translate-term$251
             true-term$220
             truep$222
             unify-subst$227
             untranslate-term$249)
           (cell setup$254)))
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #f
        #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
       '(implies
          (and (implies x y)
               (and (implies y z)
                    (and (implies z u) (implies u w))))
          (implies x w)))))
  (set-global!
    alist
    '((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)))))))
 */
/* 
"---------------- C headers: "
 */
/* 
()
 */
/* 
"---------------- module globals: "
 */
/* 
(this-scheme-implementation-name
  run-r7rs-benchmark
  hide
  test-boyer
  setup-boyer
  term
  alist
  main)
 */
/* 
"---------------- C code:"
 */
#define closcall1(td, clo,a1) \
if (type_is_pair_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, (function_type) _fn); \
     GC(td, &c1, buf, 1); \
     return; \
 } else { \
     (_fn)(td, 1, (closure)_fn,a1); \
 }}

#define closcall2(td, clo,a1,a2) \
if (type_is_pair_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, (function_type) _fn); \
     GC(td, &c1, buf, 2); \
     return; \
 } else { \
     (_fn)(td, 2, (closure)_fn,a1,a2); \
 }}

#define closcall3(td, clo,a1,a2,a3) \
if (type_is_pair_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, (function_type) _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_is_pair_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, (function_type) _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_is_pair_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, (function_type) _fn); \
     GC(td, &c1, buf, 5); \
     return; \
 } else { \
     (_fn)(td, 5, (closure)_fn,a1,a2,a3,a4,a5); \
 }}

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

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

#include "cyclone/types.h"
object __glo_this_91scheme_91implementation_91name = NULL;
object __glo_run_91r7rs_91benchmark = NULL;
object __glo_hide = NULL;
object __glo_test_91boyer = NULL;
object __glo_setup_91boyer = NULL;
object __glo_term = NULL;
object __glo_alist = NULL;
object __glo_main = NULL;
extern object __glo_member_scheme_base;
extern object __glo_assoc_scheme_base;
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_define_91record_91type_scheme_base;
extern object __glo_record_127_scheme_base;
extern object __glo_register_91simple_91type_scheme_base;
extern object __glo_make_91type_91predicate_scheme_base;
extern object __glo_make_91constructor_scheme_base;
extern object __glo_make_91getter_scheme_base;
extern object __glo_make_91setter_scheme_base;
extern object __glo_slot_91set_67_scheme_base;
extern object __glo_type_91slot_91offset_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_91integer_91sqrt_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_bignum_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_91handler_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_get_91output_91string_scheme_base;
extern object __glo_open_91output_91string_scheme_base;
extern object __glo_open_91input_91string_scheme_base;
extern object __glo_get_91output_91bytevector_scheme_base;
extern object __glo_open_91input_91bytevector_scheme_base;
extern object __glo_open_91output_91bytevector_scheme_base;
extern object __glo_features_scheme_base;
extern object __glo_Cyc_91version_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_let_85_91values_scheme_base;
extern object __glo_let_91values_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_bytevector_91copy_67_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_parameterize_scheme_base;
extern object __glo_caar_scheme_cxr;
extern object __glo_cadr_scheme_cxr;
extern object __glo_cdar_scheme_cxr;
extern object __glo_cddr_scheme_cxr;
extern object __glo_caaar_scheme_cxr;
extern object __glo_caadr_scheme_cxr;
extern object __glo_cadar_scheme_cxr;
extern object __glo_caddr_scheme_cxr;
extern object __glo_cdaar_scheme_cxr;
extern object __glo_cdadr_scheme_cxr;
extern object __glo_cddar_scheme_cxr;
extern object __glo_cdddr_scheme_cxr;
extern object __glo_caaaar_scheme_cxr;
extern object __glo_caaadr_scheme_cxr;
extern object __glo_caadar_scheme_cxr;
extern object __glo_caaddr_scheme_cxr;
extern object __glo_cadaar_scheme_cxr;
extern object __glo_cadadr_scheme_cxr;
extern object __glo_caddar_scheme_cxr;
extern object __glo_cadddr_scheme_cxr;
extern object __glo_cdaaar_scheme_cxr;
extern object __glo_cdaadr_scheme_cxr;
extern object __glo_cdadar_scheme_cxr;
extern object __glo_cdaddr_scheme_cxr;
extern object __glo_cddaar_scheme_cxr;
extern object __glo_cddadr_scheme_cxr;
extern object __glo_cdddar_scheme_cxr;
extern object __glo_cddddr_scheme_cxr;
extern object __glo_caaaaar_scheme_cxr;
extern object __glo_read_scheme_read;
extern object __glo_read_91all_scheme_read;
extern object __glo_include_scheme_read;
extern object __glo_include_91ci_scheme_read;
extern object __glo_display_scheme_write;
extern object __glo_write_scheme_write;
extern object __glo_write_91shared_scheme_write;
extern object __glo_write_91simple_scheme_write;
extern object __glo_current_91second_scheme_time;
extern object __glo_current_91jiffy_scheme_time;
extern object __glo_jiffies_91per_91second_scheme_time;
extern object __glo_string_123_127_191_191inline_191_191_scheme_base;
extern object __glo_string_121_127_191_191inline_191_191_scheme_base;
extern object __glo_string_121_123_127_191_191inline_191_191_scheme_base;
extern object __glo_string_125_127_191_191inline_191_191_scheme_base;
extern object __glo_string_125_123_127_191_191inline_191_191_scheme_base;
extern object __glo_not_191_191inline_191_191_scheme_base;
extern object __glo_zero_127_191_191inline_191_191_scheme_base;
extern object __glo_positive_127_191_191inline_191_191_scheme_base;
extern object __glo_negative_127_191_191inline_191_191_scheme_base;
extern object __glo_floor_191_191inline_191_191_scheme_base;
extern object __glo_ceiling_191_191inline_191_191_scheme_base;
extern object __glo_truncate_191_191inline_191_191_scheme_base;
extern object __glo_round_191_191inline_191_191_scheme_base;
extern object __glo_inexact_191_191inline_191_191_scheme_base;
extern object __glo_sqrt_191_191inline_191_191_scheme_base;
extern object __glo_exact_91integer_127_191_191inline_191_191_scheme_base;
extern object __glo_exact_127_191_191inline_191_191_scheme_base;
extern object __glo_denominator_191_191inline_191_191_scheme_base;
extern object __glo_numerator_191_191inline_191_191_scheme_base;
extern object __glo_quotient_191_191inline_191_191_scheme_base;
extern object __glo_square_191_191inline_191_191_scheme_base;
extern object __glo_eof_91object_191_191inline_191_191_scheme_base;
extern object __glo_in_91port_117get_91buf_191_191inline_191_191_scheme_read;
extern object __glo_in_91port_117get_91lnum_191_191inline_191_191_scheme_read;
extern object __glo_in_91port_117get_91cnum_191_191inline_191_191_scheme_read;
#include "cyclone/runtime.h"
#include "cyclone/runtime-main.h"
defsymbol(u);
defsymbol(lemmas);
defsymbol(_85);
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(_if);
defsymbol(even1);
defsymbol(implies);
defsymbol(and);
defsymbol(iff);
defsymbol(f);
defsymbol(t);
defsymbol(or);
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(equal);
static void __lambda_259(void *data, int argc, closure _,object r_73360) ;
static void __lambda_258(void *data, int argc, closure _,object r_73361) ;
static void __lambda_257(void *data, int argc, closure _,object setup_73254, object add_91lemma_91lst_73253, object add_91lemma_73252, object translate_91term_73251, object translate_91args_73250, object untranslate_91term_73249, object put_73248, object get_73247, object symbol_91_125symbol_91record_73246, object _85symbol_91records_91alist_85_73245, object make_91symbol_91record_73244, object put_91lemmas_67_73243, object get_91lemmas_73242, object get_91name_73241, object symbol_91record_91equal_127_73240, object test_73239, object translate_91alist_73238, object apply_91subst_73237, object apply_91subst_91lst_73236, object tautp_73235, object tautologyp_73234, object if_91constructor_73233, object rewrite_91count_73232, object scons_73231, object rewrite_73230, object rewrite_91args_73229, object rewrite_91with_91lemmas_73228, object unify_91subst_73227, object one_91way_91unify_73226, object one_91way_91unify1_73225, object one_91way_91unify1_91lst_73224, object falsep_73223, object truep_73222, object false_91term_73221, object true_91term_73220, object trans_91of_91implies_73219, object trans_91of_91implies1_73218, object term_91equal_127_73217, object term_91args_91equal_127_73216, object term_91member_127_73215) ;
static void __lambda_256(void *data, int argc, object self_73768, object setup_73254) ;
static void __lambda_255(void *data, int argc, object self_73769, object add_91lemma_91lst_73253) ;
static void __lambda_254(void *data, int argc, object self_73770, object add_91lemma_73252) ;
static void __lambda_253(void *data, int argc, object self_73771, object translate_91term_73251) ;
static void __lambda_252(void *data, int argc, object self_73772, object translate_91args_73250) ;
static void __lambda_251(void *data, int argc, object self_73773, object untranslate_91term_73249) ;
static void __lambda_250(void *data, int argc, object self_73774, object put_73248) ;
static void __lambda_249(void *data, int argc, object self_73775, object get_73247) ;
static void __lambda_248(void *data, int argc, object self_73776, object symbol_91_125symbol_91record_73246) ;
static void __lambda_247(void *data, int argc, object self_73777, object _85symbol_91records_91alist_85_73245) ;
static void __lambda_246(void *data, int argc, object self_73778, object make_91symbol_91record_73244) ;
static void __lambda_245(void *data, int argc, object self_73779, object put_91lemmas_67_73243) ;
static void __lambda_244(void *data, int argc, object self_73780, object get_91lemmas_73242) ;
static void __lambda_243(void *data, int argc, object self_73781, object get_91name_73241) ;
static void __lambda_242(void *data, int argc, object self_73782, object symbol_91record_91equal_127_73240) ;
static void __lambda_241(void *data, int argc, object self_73783, object test_73239) ;
static void __lambda_240(void *data, int argc, object self_73784, object translate_91alist_73238) ;
static void __lambda_239(void *data, int argc, object self_73785, object apply_91subst_73237) ;
static void __lambda_238(void *data, int argc, object self_73786, object apply_91subst_91lst_73236) ;
static void __lambda_237(void *data, int argc, object self_73787, object tautp_73235) ;
static void __lambda_236(void *data, int argc, object self_73788, object tautologyp_73234) ;
static void __lambda_235(void *data, int argc, object self_73789, object if_91constructor_73233) ;
static void __lambda_234(void *data, int argc, object self_73790, object rewrite_91count_73232) ;
static void __lambda_233(void *data, int argc, object self_73791, object scons_73231) ;
static void __lambda_232(void *data, int argc, object self_73792, object rewrite_73230) ;
static void __lambda_231(void *data, int argc, object self_73793, object rewrite_91args_73229) ;
static void __lambda_230(void *data, int argc, object self_73794, object rewrite_91with_91lemmas_73228) ;
static void __lambda_229(void *data, int argc, object self_73795, object unify_91subst_73227) ;
static void __lambda_228(void *data, int argc, object self_73796, object one_91way_91unify_73226) ;
static void __lambda_227(void *data, int argc, object self_73797, object one_91way_91unify1_73225) ;
static void __lambda_226(void *data, int argc, object self_73798, object one_91way_91unify1_91lst_73224) ;
static void __lambda_225(void *data, int argc, object self_73799, object falsep_73223) ;
static void __lambda_224(void *data, int argc, object self_73800, object truep_73222) ;
static void __lambda_223(void *data, int argc, object self_73801, object false_91term_73221) ;
static void __lambda_222(void *data, int argc, object self_73802, object true_91term_73220) ;
static void __lambda_221(void *data, int argc, object self_73803, object trans_91of_91implies_73219) ;
static void __lambda_220(void *data, int argc, object self_73804, object trans_91of_91implies1_73218) ;
static void __lambda_219(void *data, int argc, object self_73805, object term_91equal_127_73217) ;
static void __lambda_218(void *data, int argc, object self_73806, object term_91args_91equal_127_73216) ;
static void __lambda_217(void *data, int argc, object self_73807, object term_91member_127_73215) ;
static void __lambda_216(void *data, int argc, object self_73808, object k_73668) ;
static void __lambda_215(void *data, int argc, object self_73809, object r_73363) ;
static void __lambda_214(void *data, int argc, object self_73810, object k_73662, object lst_73325) ;
static void __lambda_213(void *data, int argc, object self_73811, object r_73664) ;
static void __lambda_212(void *data, int argc, object self_73812, object r_73364) ;
static void __lambda_211(void *data, int argc, object self_73813, object k_73644, object term_73324) ;
static void __lambda_210(void *data, int argc, object self_73814, object r_73645) ;
static void __lambda_209(void *data, int argc, object self_73815, object r_73654) ;
static void __lambda_208(void *data, int argc, object self_73816, object r_73649) ;
static void __lambda_207(void *data, int argc, object self_73817, object r_73650) ;
static void __lambda_206(void *data, int argc, object self_73818, object k_73655) ;
static void __lambda_205(void *data, int argc, object self_73819, object r_73365) ;
static void __lambda_204(void *data, int argc, object self_73820, object k_73637, object term_73323) ;
static void __lambda_203(void *data, int argc, object self_73821, object r_73639) ;
static void __lambda_202(void *data, int argc, object self_73822, object r_73640) ;
static void __lambda_201(void *data, int argc, object self_73823, object r_73366) ;
static void __lambda_200(void *data, int argc, object self_73824, object k_73630, object lst_73322) ;
static void __lambda_199(void *data, int argc, object self_73825, object r_73632) ;
static void __lambda_198(void *data, int argc, object self_73826, object r_73633) ;
static void __lambda_197(void *data, int argc, object self_73827, object r_73367) ;
static void __lambda_196(void *data, int argc, object self_73828, object k_73623, object term_73321) ;
static void __lambda_195(void *data, int argc, object self_73829, object r_73626) ;
static void __lambda_194(void *data, int argc, object self_73830, object r_73368) ;
static void __lambda_193(void *data, int argc, object self_73831, object k_73620, object sym_73320, object property_73319, object value_73318) ;
static void __lambda_192(void *data, int argc, object self_73832, object r_73621) ;
static void __lambda_191(void *data, int argc, object self_73833, object r_73369) ;
static void __lambda_190(void *data, int argc, object self_73834, object k_73617, object sym_73317, object property_73316) ;
static void __lambda_189(void *data, int argc, object self_73835, object r_73618) ;
static void __lambda_188(void *data, int argc, object self_73836, object r_73370) ;
static void __lambda_187(void *data, int argc, object self_73837, object k_73610, object sym_73313) ;
static void __lambda_186(void *data, int argc, object self_73838, object x_73314) ;
static void __lambda_185(void *data, int argc, object self_73839, object r_73315) ;
static void __lambda_184(void *data, int argc, object self_73840, object r_73614) ;
static void __lambda_183(void *data, int argc, object self_73841, object r_73613) ;
static void __lambda_182(void *data, int argc, object self_73842, object r_73371) ;
static void __lambda_181(void *data, int argc, object self_73843, object r_73372) ;
static void __lambda_180(void *data, int argc, object self_73844, object k_73606, object sym_73312) ;
static void __lambda_179(void *data, int argc, object self_73845, object r_73373) ;
static void __lambda_178(void *data, int argc, object self_73846, object k_73604, object symbol_91record_73311, object lemmas_73310) ;
static void __lambda_177(void *data, int argc, object self_73847, object r_73374) ;
static void __lambda_176(void *data, int argc, object self_73848, object k_73602, object symbol_91record_73309) ;
static void __lambda_175(void *data, int argc, object self_73849, object r_73375) ;
static void __lambda_174(void *data, int argc, object self_73850, object k_73600, object symbol_91record_73308) ;
static void __lambda_173(void *data, int argc, object self_73851, object r_73376) ;
static void __lambda_172(void *data, int argc, object self_73852, object k_73598, object r1_73307, object r2_73306) ;
static void __lambda_171(void *data, int argc, object self_73853, object r_73377) ;
static void __lambda_170(void *data, int argc, object self_73854, object k_73584, object alist_73299, object term_73298, object n_73297) ;
static void __lambda_169(void *data, int argc, object self_73855, object r_73586) ;
static void __lambda_168(void *data, int argc, object self_73856, object term_73301, object n_73300) ;
static void __lambda_167(void *data, int argc, object self_73857, object lp_7337_73302) ;
static void __lambda_166(void *data, int argc, object self_73858, object lp_7337_73302) ;
static void __lambda_165(void *data, int argc, object self_73859, object k_73591, object term_73304, object n_73303) ;
static void __lambda_164(void *data, int argc, object self_73860, object r_73593) ;
static void __lambda_163(void *data, int argc, object self_73861, object r_73589) ;
static void __lambda_162(void *data, int argc, object self_73862, object r_73588) ;
static void __lambda_161(void *data, int argc, object self_73863, object r_73587) ;
static void __lambda_160(void *data, int argc, object self_73864, object term_73305) ;
static void __lambda_159(void *data, int argc, object self_73865, object r_73378) ;
static void __lambda_158(void *data, int argc, object self_73866, object k_73575, object alist_73296) ;
static void __lambda_157(void *data, int argc, object self_73867, object r_73581) ;
static void __lambda_156(void *data, int argc, object self_73868, object r_73578) ;
static void __lambda_155(void *data, int argc, object self_73869, object r_73379) ;
static void __lambda_154(void *data, int argc, object self_73870, object k_73568, object alist_73294, object term_73293) ;
static void __lambda_153(void *data, int argc, object self_73871, object r_73571) ;
static void __lambda_152(void *data, int argc, object self_73872, object r_73380) ;
static void __lambda_151(void *data, int argc, object self_73873, object k_73561, object alist_73292, object lst_73291) ;
static void __lambda_150(void *data, int argc, object self_73874, object r_73563) ;
static void __lambda_149(void *data, int argc, object self_73875, object r_73564) ;
static void __lambda_148(void *data, int argc, object self_73876, object r_73381) ;
static void __lambda_147(void *data, int argc, object self_73877, object k_73556, object x_73290) ;
static void __lambda_146(void *data, int argc, object self_73878, object r_73557) ;
static void __lambda_145(void *data, int argc, object self_73879, object r_73382) ;
static void __lambda_144(void *data, int argc, object self_73880, object k_73536, object x_73289, object true_91lst_73288, object false_91lst_73287) ;
static void __lambda_143(void *data, int argc, object self_73881, object r_73537) ;
static void __lambda_142(void *data, int argc, object self_73882, object r_73538) ;
static void __lambda_141(void *data, int argc, object self_73883, object r_73541) ;
static void __lambda_140(void *data, int argc, object self_73884, object r_73543) ;
static void __lambda_139(void *data, int argc, object self_73885, object r_73545) ;
static void __lambda_138(void *data, int argc, object self_73886, object r_73383) ;
static void __lambda_137(void *data, int argc, object self_73887, object r_73384) ;
static void __lambda_136(void *data, int argc, object self_73888, object r_73385) ;
static void __lambda_135(void *data, int argc, object self_73889, object k_73528, object x_73286, object y_73285, object original_73284) ;
static void __lambda_134(void *data, int argc, object self_73890, object r_73529) ;
static void __lambda_133(void *data, int argc, object self_73891, object k_73530) ;
static void __lambda_132(void *data, int argc, object self_73892, object r_73386) ;
static void __lambda_131(void *data, int argc, object self_73893, object k_73517, object term_73283) ;
static void __lambda_130(void *data, int argc, object self_73894, object r_73526) ;
static void __lambda_129(void *data, int argc, object self_73895, object r_73518) ;
static void __lambda_128(void *data, int argc, object self_73896, object r_73524) ;
static void __lambda_127(void *data, int argc, object self_73897, object r_73520) ;
static void __lambda_126(void *data, int argc, object self_73898, object r_73387) ;
static void __lambda_125(void *data, int argc, object self_73899, object k_73510, object lst_73282) ;
static void __lambda_124(void *data, int argc, object self_73900, object r_73512) ;
static void __lambda_123(void *data, int argc, object self_73901, object r_73513) ;
static void __lambda_122(void *data, int argc, object self_73902, object r_73388) ;
static void __lambda_121(void *data, int argc, object self_73903, object k_73500, object term_73281, object lst_73280) ;
static void __lambda_120(void *data, int argc, object self_73904, object r_73502) ;
static void __lambda_119(void *data, int argc, object self_73905, object r_73503) ;
static void __lambda_118(void *data, int argc, object self_73906, object r_73389) ;
static void __lambda_117(void *data, int argc, object self_73907, object r_73390) ;
static void __lambda_116(void *data, int argc, object self_73908, object k_73495, object term1_73279, object term2_73278) ;
static void __lambda_115(void *data, int argc, object self_73909, object r_73496) ;
static void __lambda_114(void *data, int argc, object self_73910, object r_73391) ;
static void __lambda_113(void *data, int argc, object self_73911, object k_73480, object term1_73276, object term2_73275) ;
static void __lambda_112(void *data, int argc, object self_73912, object temp_91temp_73277) ;
static void __lambda_111(void *data, int argc, object self_73913, object r_73492) ;
static void __lambda_110(void *data, int argc, object self_73914, object r_73491) ;
static void __lambda_109(void *data, int argc, object self_73915, object r_73392) ;
static void __lambda_108(void *data, int argc, object self_73916, object k_73471, object lst1_73274, object lst2_73273) ;
static void __lambda_107(void *data, int argc, object self_73917, object r_73474) ;
static void __lambda_106(void *data, int argc, object self_73918, object r_73393) ;
static void __lambda_105(void *data, int argc, object self_73919, object k_73468, object x_73271, object lst_73270) ;
static void __lambda_104(void *data, int argc, object self_73920, object tmp_73117_73272) ;
static void __lambda_103(void *data, int argc, object self_73921, object r_73394) ;
static void __lambda_102(void *data, int argc, object self_73922, object k_73465, object x_73268, object lst_73267) ;
static void __lambda_101(void *data, int argc, object self_73923, object tmp_73120_73269) ;
static void __lambda_100(void *data, int argc, object self_73924, object r_73395) ;
static void __lambda_99(void *data, int argc, object self_73925, object r_73396) ;
static void __lambda_98(void *data, int argc, object self_73926, object r_73397) ;
static void __lambda_97(void *data, int argc, object self_73927, object k_73456, object n_73266) ;
static void __lambda_96(void *data, int argc, object self_73928, object r_73459) ;
static void __lambda_95(void *data, int argc, object self_73929, object r_73460) ;
static void __lambda_94(void *data, int argc, object self_73930, object r_73457) ;
static void __lambda_93(void *data, int argc, object self_73931, object r_73398) ;
static void __lambda_92(void *data, int argc, object self_73932, object k_73446, object n_73265) ;
static void __lambda_91(void *data, int argc, object self_73933, object r_73447) ;
static void __lambda_90(void *data, int argc, object self_73934, object r_73454) ;
static void __lambda_89(void *data, int argc, object self_73935, object r_73450) ;
static void __lambda_88(void *data, int argc, object self_73936, object r_73451) ;
static void __lambda_87(void *data, int argc, object self_73937, object r_73399) ;
static void __lambda_86(void *data, int argc, object self_73938, object k_73437, object x_73264, object y_73263) ;
static void __lambda_85(void *data, int argc, object self_73939, object r_73400) ;
static void __lambda_84(void *data, int argc, object self_73940, object k_73428, object lst1_73262, object lst2_73261) ;
static void __lambda_83(void *data, int argc, object self_73941, object r_73431) ;
static void __lambda_82(void *data, int argc, object self_73942, object r_73401) ;
static void __lambda_81(void *data, int argc, object self_73943, object k_73422, object x_73260, object lst_73259) ;
static void __lambda_80(void *data, int argc, object self_73944, object r_73424) ;
static void __lambda_79(void *data, int argc, object self_73945, object r_73402) ;
static void __lambda_78(void *data, int argc, object self_73946, object k_73409) ;
static void __lambda_77(void *data, int argc, object self_73947, object r_73410) ;
static void __lambda_76(void *data, int argc, object self_73948, object r_73418) ;
static void __lambda_75(void *data, int argc, object self_73949, object r_73411) ;
static void __lambda_74(void *data, int argc, object self_73950, object r_73416) ;
static void __lambda_73(void *data, int argc, object self_73951, object r_73412) ;
static void __lambda_72(void *data, int argc, object self_73952, object r_73414) ;
static void __lambda_71(void *data, int argc, object self_73953, object r_73413) ;
static void __lambda_70(void *data, int argc, object self_73954, object r_73403) ;
static void __lambda_69(void *data, int argc, object self_73955, object k_73405, object alist_73257, object term_73256, object n_73255) ;
static void __lambda_68(void *data, int argc, object self_73956, object r_73406) ;
static void __lambda_67(void *data, int argc, object self_73957, object answer_73258) ;
static void __lambda_66(void *data, int argc, closure _,object r_73362) ;
static void __lambda_65(void *data, int argc, closure _,object k_73674) ;
static void __lambda_64(void *data, int argc, object self_73958, object r_73675) ;
static void __lambda_63(void *data, int argc, closure _,object k_73678, object name_73329, object count_73328, object thunk_73327, object ok_127_73326) ;
static void __lambda_62(void *data, int argc, object self_73959, object rounded_73331) ;
static void __lambda_61(void *data, int argc, object self_73960, object rounded_73331) ;
static void __lambda_60(void *data, int argc, object self_73961, object k_73725, object x_73346) ;
static void __lambda_59(void *data, int argc, object self_73962, object r_73679) ;
static void __lambda_58(void *data, int argc, object self_73963, object r_73680) ;
static void __lambda_57(void *data, int argc, object self_73964, object r_73681) ;
static void __lambda_56(void *data, int argc, object self_73965, object r_73682) ;
static void __lambda_55(void *data, int argc, object self_73966, object r_73723) ;
static void __lambda_54(void *data, int argc, object self_73967, object r_73683) ;
static void __lambda_53(void *data, int argc, object self_73968, object j_95s_73333) ;
static void __lambda_52(void *data, int argc, object self_73969, object t0_73334) ;
static void __lambda_51(void *data, int argc, object self_73970, object j0_73335) ;
static void __lambda_50(void *data, int argc, object self_73971, object loop_73338) ;
static void __lambda_49(void *data, int argc, object self_73972, object loop_73338) ;
static void __lambda_48(void *data, int argc, object self_73973, object k_73689, object i_73340, object result_73339) ;
static void __lambda_47(void *data, int argc, object self_73974, object r_73693) ;
static void __lambda_46(void *data, int argc, object self_73975, object r_73718) ;
static void __lambda_45(void *data, int argc, object self_73976, object r_73719) ;
static void __lambda_44(void *data, int argc, object self_73977, object r_73720) ;
static void __lambda_43(void *data, int argc, object self_73978, object r_73722) ;
static void __lambda_42(void *data, int argc, object self_73979, object r_73721) ;
static void __lambda_41(void *data, int argc, object self_73980, object j1_73341) ;
static void __lambda_40(void *data, int argc, object self_73981, object t1_73342) ;
static void __lambda_39(void *data, int argc, object self_73982, object secs2_73345) ;
static void __lambda_38(void *data, int argc, object self_73983, object r_73700) ;
static void __lambda_37(void *data, int argc, object self_73984, object r_73701) ;
static void __lambda_36(void *data, int argc, object self_73985, object r_73702) ;
static void __lambda_35(void *data, int argc, object self_73986, object r_73703) ;
static void __lambda_34(void *data, int argc, object self_73987, object r_73704) ;
static void __lambda_33(void *data, int argc, object self_73988, object r_73705) ;
static void __lambda_32(void *data, int argc, object self_73989, object r_73706) ;
static void __lambda_31(void *data, int argc, object self_73990, object r_73707) ;
static void __lambda_30(void *data, int argc, object self_73991, object r_73715) ;
static void __lambda_29(void *data, int argc, object self_73992, object r_73708) ;
static void __lambda_28(void *data, int argc, object self_73993, object r_73709) ;
static void __lambda_27(void *data, int argc, object self_73994, object r_73710) ;
static void __lambda_26(void *data, int argc, object self_73995, object r_73711) ;
static void __lambda_25(void *data, int argc, object self_73996, object r_73712) ;
static void __lambda_24(void *data, int argc, object self_73997, object r_73713) ;
static void __lambda_23(void *data, int argc, object self_73998, object r_73714) ;
static void __lambda_22(void *data, int argc, object self_73999, object r_73694) ;
static void __lambda_21(void *data, int argc, object self_731000, object r_73692) ;
static void __lambda_20(void *data, int argc, object self_731001, object r_73687) ;
static void __lambda_19(void *data, int argc, closure _,object k_73730, object r_73348, object x_73347) ;
static void __lambda_18(void *data, int argc, object self_731002, object k_73733, object v_73350, object i_73349) ;
static void __lambda_17(void *data, int argc, object self_731003, object k_73735) ;
static void __lambda_16(void *data, int argc, object self_731004, object k_73741, object x_73351) ;
static void __lambda_15(void *data, int argc, object self_731005, object r_73736) ;
static void __lambda_14(void *data, int argc, object self_731006, object r_73737) ;
static void __lambda_13(void *data, int argc, object self_731007, object k_73738) ;
static void __lambda_12(void *data, int argc, closure _,object k_73744) ;
static void __lambda_11(void *data, int argc, closure _,object k_73747) ;
static void __lambda_10(void *data, int argc, closure _,object k_73754) ;
static void __lambda_9(void *data, int argc, object self_731008, object count_73352) ;
static void __lambda_8(void *data, int argc, object self_731009, object input_73353) ;
static void __lambda_7(void *data, int argc, object self_731010, object output_73354) ;
static void __lambda_6(void *data, int argc, object self_731011, object s2_73355) ;
static void __lambda_5(void *data, int argc, object self_731012, object s1_73356) ;
static void __lambda_4(void *data, int argc, object self_731013, object r_73760) ;
static void __lambda_3(void *data, int argc, object self_731014, object k_73763, object rewrites_73358) ;
static void __lambda_2(void *data, int argc, object self_731015, object k_73765) ;
static void __lambda_1(void *data, int argc, object self_731016, object r_73766) ;
static void __lambda_0(void *data, int argc, object self_731017, object r_73767) ;

static void __lambda_259(void *data, int argc, closure _,object r_73360) {
  make_pair(c_736404,quote_y,NULL);
make_pair(c_736403,quote_x,&c_736404);
make_pair(c_736402,quote_implies,&c_736403);
make_pair(c_736410,quote_z,NULL);
make_pair(c_736409,quote_y,&c_736410);
make_pair(c_736408,quote_implies,&c_736409);
make_pair(c_736416,quote_u,NULL);
make_pair(c_736415,quote_z,&c_736416);
make_pair(c_736414,quote_implies,&c_736415);
make_pair(c_736420,quote_w,NULL);
make_pair(c_736419,quote_u,&c_736420);
make_pair(c_736418,quote_implies,&c_736419);
make_pair(c_736417,&c_736418,NULL);
make_pair(c_736413,&c_736414,&c_736417);
make_pair(c_736412,quote_and,&c_736413);
make_pair(c_736411,&c_736412,NULL);
make_pair(c_736407,&c_736408,&c_736411);
make_pair(c_736406,quote_and,&c_736407);
make_pair(c_736405,&c_736406,NULL);
make_pair(c_736401,&c_736402,&c_736405);
make_pair(c_736400,quote_and,&c_736401);
make_pair(c_736424,quote_w,NULL);
make_pair(c_736423,quote_x,&c_736424);
make_pair(c_736422,quote_implies,&c_736423);
make_pair(c_736421,&c_736422,NULL);
make_pair(c_736399,&c_736400,&c_736421);
make_pair(c_736398,quote_implies,&c_736399);
return_direct1(data,__lambda_258,global_set(__glo_term, &c_736398));; 
}

static void __lambda_258(void *data, int argc, closure _,object r_73361) {
  return_direct40(data,__lambda_257,boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f, boolean_f);; 
}

static void __lambda_257(void *data, int argc, closure _,object setup_73254, object add_91lemma_91lst_73253, object add_91lemma_73252, object translate_91term_73251, object translate_91args_73250, object untranslate_91term_73249, object put_73248, object get_73247, object symbol_91_125symbol_91record_73246, object _85symbol_91records_91alist_85_73245, object make_91symbol_91record_73244, object put_91lemmas_67_73243, object get_91lemmas_73242, object get_91name_73241, object symbol_91record_91equal_127_73240, object test_73239, object translate_91alist_73238, object apply_91subst_73237, object apply_91subst_91lst_73236, object tautp_73235, object tautologyp_73234, object if_91constructor_73233, object rewrite_91count_73232, object scons_73231, object rewrite_73230, object rewrite_91args_73229, object rewrite_91with_91lemmas_73228, object unify_91subst_73227, object one_91way_91unify_73226, object one_91way_91unify1_73225, object one_91way_91unify1_91lst_73224, object falsep_73223, object truep_73222, object false_91term_73221, object true_91term_73220, object trans_91of_91implies_73219, object trans_91of_91implies1_73218, object term_91equal_127_73217, object term_91args_91equal_127_73216, object term_91member_127_73215) {
  
closureN_type c_731294;
c_731294.hdr.mark = gc_color_red;
 c_731294.hdr.grayed = 0;
c_731294.tag = closureN_tag;
 c_731294.fn = (function_type)__lambda_256;
c_731294.num_args = 1;
c_731294.num_elements = 39;
c_731294.elements = (object *)alloca(sizeof(object) * 39);
c_731294.elements[0] = _85symbol_91records_91alist_85_73245;
c_731294.elements[1] = add_91lemma_73252;
c_731294.elements[2] = add_91lemma_91lst_73253;
c_731294.elements[3] = apply_91subst_73237;
c_731294.elements[4] = apply_91subst_91lst_73236;
c_731294.elements[5] = false_91term_73221;
c_731294.elements[6] = falsep_73223;
c_731294.elements[7] = get_73247;
c_731294.elements[8] = get_91lemmas_73242;
c_731294.elements[9] = get_91name_73241;
c_731294.elements[10] = if_91constructor_73233;
c_731294.elements[11] = make_91symbol_91record_73244;
c_731294.elements[12] = one_91way_91unify_73226;
c_731294.elements[13] = one_91way_91unify1_73225;
c_731294.elements[14] = one_91way_91unify1_91lst_73224;
c_731294.elements[15] = put_73248;
c_731294.elements[16] = put_91lemmas_67_73243;
c_731294.elements[17] = rewrite_73230;
c_731294.elements[18] = rewrite_91args_73229;
c_731294.elements[19] = rewrite_91count_73232;
c_731294.elements[20] = rewrite_91with_91lemmas_73228;
c_731294.elements[21] = scons_73231;
c_731294.elements[22] = symbol_91_125symbol_91record_73246;
c_731294.elements[23] = symbol_91record_91equal_127_73240;
c_731294.elements[24] = tautologyp_73234;
c_731294.elements[25] = tautp_73235;
c_731294.elements[26] = term_91args_91equal_127_73216;
c_731294.elements[27] = term_91equal_127_73217;
c_731294.elements[28] = term_91member_127_73215;
c_731294.elements[29] = test_73239;
c_731294.elements[30] = trans_91of_91implies_73219;
c_731294.elements[31] = trans_91of_91implies1_73218;
c_731294.elements[32] = translate_91alist_73238;
c_731294.elements[33] = translate_91args_73250;
c_731294.elements[34] = translate_91term_73251;
c_731294.elements[35] = true_91term_73220;
c_731294.elements[36] = truep_73222;
c_731294.elements[37] = unify_91subst_73227;
c_731294.elements[38] = untranslate_91term_73249;


make_cell(c_736395,setup_73254);
return_closcall1(data,(closure)&c_731294,  &c_736395);; 
}

static void __lambda_256(void *data, int argc, object self_73768, object setup_73254) {
  
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_255;
c_731296.num_args = 1;
c_731296.num_elements = 39;
c_731296.elements = (object *)alloca(sizeof(object) * 39);
c_731296.elements[0] = ((closureN)self_73768)->elements[0];
c_731296.elements[1] = ((closureN)self_73768)->elements[1];
c_731296.elements[2] = ((closureN)self_73768)->elements[3];
c_731296.elements[3] = ((closureN)self_73768)->elements[4];
c_731296.elements[4] = ((closureN)self_73768)->elements[5];
c_731296.elements[5] = ((closureN)self_73768)->elements[6];
c_731296.elements[6] = ((closureN)self_73768)->elements[7];
c_731296.elements[7] = ((closureN)self_73768)->elements[8];
c_731296.elements[8] = ((closureN)self_73768)->elements[9];
c_731296.elements[9] = ((closureN)self_73768)->elements[10];
c_731296.elements[10] = ((closureN)self_73768)->elements[11];
c_731296.elements[11] = ((closureN)self_73768)->elements[12];
c_731296.elements[12] = ((closureN)self_73768)->elements[13];
c_731296.elements[13] = ((closureN)self_73768)->elements[14];
c_731296.elements[14] = ((closureN)self_73768)->elements[15];
c_731296.elements[15] = ((closureN)self_73768)->elements[16];
c_731296.elements[16] = ((closureN)self_73768)->elements[17];
c_731296.elements[17] = ((closureN)self_73768)->elements[18];
c_731296.elements[18] = ((closureN)self_73768)->elements[19];
c_731296.elements[19] = ((closureN)self_73768)->elements[20];
c_731296.elements[20] = ((closureN)self_73768)->elements[21];
c_731296.elements[21] = setup_73254;
c_731296.elements[22] = ((closureN)self_73768)->elements[22];
c_731296.elements[23] = ((closureN)self_73768)->elements[23];
c_731296.elements[24] = ((closureN)self_73768)->elements[24];
c_731296.elements[25] = ((closureN)self_73768)->elements[25];
c_731296.elements[26] = ((closureN)self_73768)->elements[26];
c_731296.elements[27] = ((closureN)self_73768)->elements[27];
c_731296.elements[28] = ((closureN)self_73768)->elements[28];
c_731296.elements[29] = ((closureN)self_73768)->elements[29];
c_731296.elements[30] = ((closureN)self_73768)->elements[30];
c_731296.elements[31] = ((closureN)self_73768)->elements[31];
c_731296.elements[32] = ((closureN)self_73768)->elements[32];
c_731296.elements[33] = ((closureN)self_73768)->elements[33];
c_731296.elements[34] = ((closureN)self_73768)->elements[34];
c_731296.elements[35] = ((closureN)self_73768)->elements[35];
c_731296.elements[36] = ((closureN)self_73768)->elements[36];
c_731296.elements[37] = ((closureN)self_73768)->elements[37];
c_731296.elements[38] = ((closureN)self_73768)->elements[38];


make_cell(c_736391,((closureN)self_73768)->elements[2]);
return_closcall1(data,(closure)&c_731296,  &c_736391);; 
}

static void __lambda_255(void *data, int argc, object self_73769, object add_91lemma_91lst_73253) {
  
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_254;
c_731298.num_args = 1;
c_731298.num_elements = 39;
c_731298.elements = (object *)alloca(sizeof(object) * 39);
c_731298.elements[0] = ((closureN)self_73769)->elements[0];
c_731298.elements[1] = add_91lemma_91lst_73253;
c_731298.elements[2] = ((closureN)self_73769)->elements[2];
c_731298.elements[3] = ((closureN)self_73769)->elements[3];
c_731298.elements[4] = ((closureN)self_73769)->elements[4];
c_731298.elements[5] = ((closureN)self_73769)->elements[5];
c_731298.elements[6] = ((closureN)self_73769)->elements[6];
c_731298.elements[7] = ((closureN)self_73769)->elements[7];
c_731298.elements[8] = ((closureN)self_73769)->elements[8];
c_731298.elements[9] = ((closureN)self_73769)->elements[9];
c_731298.elements[10] = ((closureN)self_73769)->elements[10];
c_731298.elements[11] = ((closureN)self_73769)->elements[11];
c_731298.elements[12] = ((closureN)self_73769)->elements[12];
c_731298.elements[13] = ((closureN)self_73769)->elements[13];
c_731298.elements[14] = ((closureN)self_73769)->elements[14];
c_731298.elements[15] = ((closureN)self_73769)->elements[15];
c_731298.elements[16] = ((closureN)self_73769)->elements[16];
c_731298.elements[17] = ((closureN)self_73769)->elements[17];
c_731298.elements[18] = ((closureN)self_73769)->elements[18];
c_731298.elements[19] = ((closureN)self_73769)->elements[19];
c_731298.elements[20] = ((closureN)self_73769)->elements[20];
c_731298.elements[21] = ((closureN)self_73769)->elements[21];
c_731298.elements[22] = ((closureN)self_73769)->elements[22];
c_731298.elements[23] = ((closureN)self_73769)->elements[23];
c_731298.elements[24] = ((closureN)self_73769)->elements[24];
c_731298.elements[25] = ((closureN)self_73769)->elements[25];
c_731298.elements[26] = ((closureN)self_73769)->elements[26];
c_731298.elements[27] = ((closureN)self_73769)->elements[27];
c_731298.elements[28] = ((closureN)self_73769)->elements[28];
c_731298.elements[29] = ((closureN)self_73769)->elements[29];
c_731298.elements[30] = ((closureN)self_73769)->elements[30];
c_731298.elements[31] = ((closureN)self_73769)->elements[31];
c_731298.elements[32] = ((closureN)self_73769)->elements[32];
c_731298.elements[33] = ((closureN)self_73769)->elements[33];
c_731298.elements[34] = ((closureN)self_73769)->elements[34];
c_731298.elements[35] = ((closureN)self_73769)->elements[35];
c_731298.elements[36] = ((closureN)self_73769)->elements[36];
c_731298.elements[37] = ((closureN)self_73769)->elements[37];
c_731298.elements[38] = ((closureN)self_73769)->elements[38];


make_cell(c_736387,((closureN)self_73769)->elements[1]);
return_closcall1(data,(closure)&c_731298,  &c_736387);; 
}

static void __lambda_254(void *data, int argc, object self_73770, object add_91lemma_73252) {
  
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_253;
c_731300.num_args = 1;
c_731300.num_elements = 39;
c_731300.elements = (object *)alloca(sizeof(object) * 39);
c_731300.elements[0] = ((closureN)self_73770)->elements[0];
c_731300.elements[1] = add_91lemma_73252;
c_731300.elements[2] = ((closureN)self_73770)->elements[1];
c_731300.elements[3] = ((closureN)self_73770)->elements[2];
c_731300.elements[4] = ((closureN)self_73770)->elements[3];
c_731300.elements[5] = ((closureN)self_73770)->elements[4];
c_731300.elements[6] = ((closureN)self_73770)->elements[5];
c_731300.elements[7] = ((closureN)self_73770)->elements[6];
c_731300.elements[8] = ((closureN)self_73770)->elements[7];
c_731300.elements[9] = ((closureN)self_73770)->elements[8];
c_731300.elements[10] = ((closureN)self_73770)->elements[9];
c_731300.elements[11] = ((closureN)self_73770)->elements[10];
c_731300.elements[12] = ((closureN)self_73770)->elements[11];
c_731300.elements[13] = ((closureN)self_73770)->elements[12];
c_731300.elements[14] = ((closureN)self_73770)->elements[13];
c_731300.elements[15] = ((closureN)self_73770)->elements[14];
c_731300.elements[16] = ((closureN)self_73770)->elements[15];
c_731300.elements[17] = ((closureN)self_73770)->elements[16];
c_731300.elements[18] = ((closureN)self_73770)->elements[17];
c_731300.elements[19] = ((closureN)self_73770)->elements[18];
c_731300.elements[20] = ((closureN)self_73770)->elements[19];
c_731300.elements[21] = ((closureN)self_73770)->elements[20];
c_731300.elements[22] = ((closureN)self_73770)->elements[21];
c_731300.elements[23] = ((closureN)self_73770)->elements[22];
c_731300.elements[24] = ((closureN)self_73770)->elements[23];
c_731300.elements[25] = ((closureN)self_73770)->elements[24];
c_731300.elements[26] = ((closureN)self_73770)->elements[25];
c_731300.elements[27] = ((closureN)self_73770)->elements[26];
c_731300.elements[28] = ((closureN)self_73770)->elements[27];
c_731300.elements[29] = ((closureN)self_73770)->elements[28];
c_731300.elements[30] = ((closureN)self_73770)->elements[29];
c_731300.elements[31] = ((closureN)self_73770)->elements[30];
c_731300.elements[32] = ((closureN)self_73770)->elements[31];
c_731300.elements[33] = ((closureN)self_73770)->elements[32];
c_731300.elements[34] = ((closureN)self_73770)->elements[33];
c_731300.elements[35] = ((closureN)self_73770)->elements[35];
c_731300.elements[36] = ((closureN)self_73770)->elements[36];
c_731300.elements[37] = ((closureN)self_73770)->elements[37];
c_731300.elements[38] = ((closureN)self_73770)->elements[38];


make_cell(c_736383,((closureN)self_73770)->elements[34]);
return_closcall1(data,(closure)&c_731300,  &c_736383);; 
}

static void __lambda_253(void *data, int argc, object self_73771, object translate_91term_73251) {
  
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_252;
c_731302.num_args = 1;
c_731302.num_elements = 39;
c_731302.elements = (object *)alloca(sizeof(object) * 39);
c_731302.elements[0] = ((closureN)self_73771)->elements[0];
c_731302.elements[1] = ((closureN)self_73771)->elements[1];
c_731302.elements[2] = ((closureN)self_73771)->elements[2];
c_731302.elements[3] = ((closureN)self_73771)->elements[3];
c_731302.elements[4] = ((closureN)self_73771)->elements[4];
c_731302.elements[5] = ((closureN)self_73771)->elements[5];
c_731302.elements[6] = ((closureN)self_73771)->elements[6];
c_731302.elements[7] = ((closureN)self_73771)->elements[7];
c_731302.elements[8] = ((closureN)self_73771)->elements[8];
c_731302.elements[9] = ((closureN)self_73771)->elements[9];
c_731302.elements[10] = ((closureN)self_73771)->elements[10];
c_731302.elements[11] = ((closureN)self_73771)->elements[11];
c_731302.elements[12] = ((closureN)self_73771)->elements[12];
c_731302.elements[13] = ((closureN)self_73771)->elements[13];
c_731302.elements[14] = ((closureN)self_73771)->elements[14];
c_731302.elements[15] = ((closureN)self_73771)->elements[15];
c_731302.elements[16] = ((closureN)self_73771)->elements[16];
c_731302.elements[17] = ((closureN)self_73771)->elements[17];
c_731302.elements[18] = ((closureN)self_73771)->elements[18];
c_731302.elements[19] = ((closureN)self_73771)->elements[19];
c_731302.elements[20] = ((closureN)self_73771)->elements[20];
c_731302.elements[21] = ((closureN)self_73771)->elements[21];
c_731302.elements[22] = ((closureN)self_73771)->elements[22];
c_731302.elements[23] = ((closureN)self_73771)->elements[23];
c_731302.elements[24] = ((closureN)self_73771)->elements[24];
c_731302.elements[25] = ((closureN)self_73771)->elements[25];
c_731302.elements[26] = ((closureN)self_73771)->elements[26];
c_731302.elements[27] = ((closureN)self_73771)->elements[27];
c_731302.elements[28] = ((closureN)self_73771)->elements[28];
c_731302.elements[29] = ((closureN)self_73771)->elements[29];
c_731302.elements[30] = ((closureN)self_73771)->elements[30];
c_731302.elements[31] = ((closureN)self_73771)->elements[31];
c_731302.elements[32] = ((closureN)self_73771)->elements[32];
c_731302.elements[33] = ((closureN)self_73771)->elements[33];
c_731302.elements[34] = translate_91term_73251;
c_731302.elements[35] = ((closureN)self_73771)->elements[35];
c_731302.elements[36] = ((closureN)self_73771)->elements[36];
c_731302.elements[37] = ((closureN)self_73771)->elements[37];
c_731302.elements[38] = ((closureN)self_73771)->elements[38];


make_cell(c_736379,((closureN)self_73771)->elements[34]);
return_closcall1(data,(closure)&c_731302,  &c_736379);; 
}

static void __lambda_252(void *data, int argc, object self_73772, object translate_91args_73250) {
  
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_251;
c_731304.num_args = 1;
c_731304.num_elements = 39;
c_731304.elements = (object *)alloca(sizeof(object) * 39);
c_731304.elements[0] = ((closureN)self_73772)->elements[0];
c_731304.elements[1] = ((closureN)self_73772)->elements[1];
c_731304.elements[2] = ((closureN)self_73772)->elements[2];
c_731304.elements[3] = ((closureN)self_73772)->elements[3];
c_731304.elements[4] = ((closureN)self_73772)->elements[4];
c_731304.elements[5] = ((closureN)self_73772)->elements[5];
c_731304.elements[6] = ((closureN)self_73772)->elements[6];
c_731304.elements[7] = ((closureN)self_73772)->elements[7];
c_731304.elements[8] = ((closureN)self_73772)->elements[8];
c_731304.elements[9] = ((closureN)self_73772)->elements[9];
c_731304.elements[10] = ((closureN)self_73772)->elements[10];
c_731304.elements[11] = ((closureN)self_73772)->elements[11];
c_731304.elements[12] = ((closureN)self_73772)->elements[12];
c_731304.elements[13] = ((closureN)self_73772)->elements[13];
c_731304.elements[14] = ((closureN)self_73772)->elements[14];
c_731304.elements[15] = ((closureN)self_73772)->elements[15];
c_731304.elements[16] = ((closureN)self_73772)->elements[16];
c_731304.elements[17] = ((closureN)self_73772)->elements[17];
c_731304.elements[18] = ((closureN)self_73772)->elements[18];
c_731304.elements[19] = ((closureN)self_73772)->elements[19];
c_731304.elements[20] = ((closureN)self_73772)->elements[20];
c_731304.elements[21] = ((closureN)self_73772)->elements[21];
c_731304.elements[22] = ((closureN)self_73772)->elements[22];
c_731304.elements[23] = ((closureN)self_73772)->elements[23];
c_731304.elements[24] = ((closureN)self_73772)->elements[24];
c_731304.elements[25] = ((closureN)self_73772)->elements[25];
c_731304.elements[26] = ((closureN)self_73772)->elements[26];
c_731304.elements[27] = ((closureN)self_73772)->elements[27];
c_731304.elements[28] = ((closureN)self_73772)->elements[28];
c_731304.elements[29] = ((closureN)self_73772)->elements[29];
c_731304.elements[30] = ((closureN)self_73772)->elements[30];
c_731304.elements[31] = ((closureN)self_73772)->elements[31];
c_731304.elements[32] = ((closureN)self_73772)->elements[32];
c_731304.elements[33] = ((closureN)self_73772)->elements[33];
c_731304.elements[34] = translate_91args_73250;
c_731304.elements[35] = ((closureN)self_73772)->elements[34];
c_731304.elements[36] = ((closureN)self_73772)->elements[35];
c_731304.elements[37] = ((closureN)self_73772)->elements[36];
c_731304.elements[38] = ((closureN)self_73772)->elements[37];


make_cell(c_736375,((closureN)self_73772)->elements[38]);
return_closcall1(data,(closure)&c_731304,  &c_736375);; 
}

static void __lambda_251(void *data, int argc, object self_73773, object untranslate_91term_73249) {
  
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_250;
c_731306.num_args = 1;
c_731306.num_elements = 39;
c_731306.elements = (object *)alloca(sizeof(object) * 39);
c_731306.elements[0] = ((closureN)self_73773)->elements[0];
c_731306.elements[1] = ((closureN)self_73773)->elements[1];
c_731306.elements[2] = ((closureN)self_73773)->elements[2];
c_731306.elements[3] = ((closureN)self_73773)->elements[3];
c_731306.elements[4] = ((closureN)self_73773)->elements[4];
c_731306.elements[5] = ((closureN)self_73773)->elements[5];
c_731306.elements[6] = ((closureN)self_73773)->elements[6];
c_731306.elements[7] = ((closureN)self_73773)->elements[7];
c_731306.elements[8] = ((closureN)self_73773)->elements[8];
c_731306.elements[9] = ((closureN)self_73773)->elements[9];
c_731306.elements[10] = ((closureN)self_73773)->elements[10];
c_731306.elements[11] = ((closureN)self_73773)->elements[11];
c_731306.elements[12] = ((closureN)self_73773)->elements[12];
c_731306.elements[13] = ((closureN)self_73773)->elements[13];
c_731306.elements[14] = ((closureN)self_73773)->elements[14];
c_731306.elements[15] = ((closureN)self_73773)->elements[16];
c_731306.elements[16] = ((closureN)self_73773)->elements[17];
c_731306.elements[17] = ((closureN)self_73773)->elements[18];
c_731306.elements[18] = ((closureN)self_73773)->elements[19];
c_731306.elements[19] = ((closureN)self_73773)->elements[20];
c_731306.elements[20] = ((closureN)self_73773)->elements[21];
c_731306.elements[21] = ((closureN)self_73773)->elements[22];
c_731306.elements[22] = ((closureN)self_73773)->elements[23];
c_731306.elements[23] = ((closureN)self_73773)->elements[24];
c_731306.elements[24] = ((closureN)self_73773)->elements[25];
c_731306.elements[25] = ((closureN)self_73773)->elements[26];
c_731306.elements[26] = ((closureN)self_73773)->elements[27];
c_731306.elements[27] = ((closureN)self_73773)->elements[28];
c_731306.elements[28] = ((closureN)self_73773)->elements[29];
c_731306.elements[29] = ((closureN)self_73773)->elements[30];
c_731306.elements[30] = ((closureN)self_73773)->elements[31];
c_731306.elements[31] = ((closureN)self_73773)->elements[32];
c_731306.elements[32] = ((closureN)self_73773)->elements[33];
c_731306.elements[33] = ((closureN)self_73773)->elements[34];
c_731306.elements[34] = ((closureN)self_73773)->elements[35];
c_731306.elements[35] = ((closureN)self_73773)->elements[36];
c_731306.elements[36] = ((closureN)self_73773)->elements[37];
c_731306.elements[37] = ((closureN)self_73773)->elements[38];
c_731306.elements[38] = untranslate_91term_73249;


make_cell(c_736371,((closureN)self_73773)->elements[15]);
return_closcall1(data,(closure)&c_731306,  &c_736371);; 
}

static void __lambda_250(void *data, int argc, object self_73774, object put_73248) {
  
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_249;
c_731308.num_args = 1;
c_731308.num_elements = 39;
c_731308.elements = (object *)alloca(sizeof(object) * 39);
c_731308.elements[0] = ((closureN)self_73774)->elements[0];
c_731308.elements[1] = ((closureN)self_73774)->elements[1];
c_731308.elements[2] = ((closureN)self_73774)->elements[2];
c_731308.elements[3] = ((closureN)self_73774)->elements[3];
c_731308.elements[4] = ((closureN)self_73774)->elements[4];
c_731308.elements[5] = ((closureN)self_73774)->elements[5];
c_731308.elements[6] = ((closureN)self_73774)->elements[6];
c_731308.elements[7] = ((closureN)self_73774)->elements[8];
c_731308.elements[8] = ((closureN)self_73774)->elements[9];
c_731308.elements[9] = ((closureN)self_73774)->elements[10];
c_731308.elements[10] = ((closureN)self_73774)->elements[11];
c_731308.elements[11] = ((closureN)self_73774)->elements[12];
c_731308.elements[12] = ((closureN)self_73774)->elements[13];
c_731308.elements[13] = ((closureN)self_73774)->elements[14];
c_731308.elements[14] = put_73248;
c_731308.elements[15] = ((closureN)self_73774)->elements[15];
c_731308.elements[16] = ((closureN)self_73774)->elements[16];
c_731308.elements[17] = ((closureN)self_73774)->elements[17];
c_731308.elements[18] = ((closureN)self_73774)->elements[18];
c_731308.elements[19] = ((closureN)self_73774)->elements[19];
c_731308.elements[20] = ((closureN)self_73774)->elements[20];
c_731308.elements[21] = ((closureN)self_73774)->elements[21];
c_731308.elements[22] = ((closureN)self_73774)->elements[22];
c_731308.elements[23] = ((closureN)self_73774)->elements[23];
c_731308.elements[24] = ((closureN)self_73774)->elements[24];
c_731308.elements[25] = ((closureN)self_73774)->elements[25];
c_731308.elements[26] = ((closureN)self_73774)->elements[26];
c_731308.elements[27] = ((closureN)self_73774)->elements[27];
c_731308.elements[28] = ((closureN)self_73774)->elements[28];
c_731308.elements[29] = ((closureN)self_73774)->elements[29];
c_731308.elements[30] = ((closureN)self_73774)->elements[30];
c_731308.elements[31] = ((closureN)self_73774)->elements[31];
c_731308.elements[32] = ((closureN)self_73774)->elements[32];
c_731308.elements[33] = ((closureN)self_73774)->elements[33];
c_731308.elements[34] = ((closureN)self_73774)->elements[34];
c_731308.elements[35] = ((closureN)self_73774)->elements[35];
c_731308.elements[36] = ((closureN)self_73774)->elements[36];
c_731308.elements[37] = ((closureN)self_73774)->elements[37];
c_731308.elements[38] = ((closureN)self_73774)->elements[38];


make_cell(c_736367,((closureN)self_73774)->elements[7]);
return_closcall1(data,(closure)&c_731308,  &c_736367);; 
}

static void __lambda_249(void *data, int argc, object self_73775, object get_73247) {
  
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_248;
c_731310.num_args = 1;
c_731310.num_elements = 39;
c_731310.elements = (object *)alloca(sizeof(object) * 39);
c_731310.elements[0] = ((closureN)self_73775)->elements[0];
c_731310.elements[1] = ((closureN)self_73775)->elements[1];
c_731310.elements[2] = ((closureN)self_73775)->elements[2];
c_731310.elements[3] = ((closureN)self_73775)->elements[3];
c_731310.elements[4] = ((closureN)self_73775)->elements[4];
c_731310.elements[5] = ((closureN)self_73775)->elements[5];
c_731310.elements[6] = ((closureN)self_73775)->elements[6];
c_731310.elements[7] = get_73247;
c_731310.elements[8] = ((closureN)self_73775)->elements[7];
c_731310.elements[9] = ((closureN)self_73775)->elements[8];
c_731310.elements[10] = ((closureN)self_73775)->elements[9];
c_731310.elements[11] = ((closureN)self_73775)->elements[10];
c_731310.elements[12] = ((closureN)self_73775)->elements[11];
c_731310.elements[13] = ((closureN)self_73775)->elements[12];
c_731310.elements[14] = ((closureN)self_73775)->elements[13];
c_731310.elements[15] = ((closureN)self_73775)->elements[14];
c_731310.elements[16] = ((closureN)self_73775)->elements[15];
c_731310.elements[17] = ((closureN)self_73775)->elements[16];
c_731310.elements[18] = ((closureN)self_73775)->elements[17];
c_731310.elements[19] = ((closureN)self_73775)->elements[18];
c_731310.elements[20] = ((closureN)self_73775)->elements[19];
c_731310.elements[21] = ((closureN)self_73775)->elements[20];
c_731310.elements[22] = ((closureN)self_73775)->elements[21];
c_731310.elements[23] = ((closureN)self_73775)->elements[23];
c_731310.elements[24] = ((closureN)self_73775)->elements[24];
c_731310.elements[25] = ((closureN)self_73775)->elements[25];
c_731310.elements[26] = ((closureN)self_73775)->elements[26];
c_731310.elements[27] = ((closureN)self_73775)->elements[27];
c_731310.elements[28] = ((closureN)self_73775)->elements[28];
c_731310.elements[29] = ((closureN)self_73775)->elements[29];
c_731310.elements[30] = ((closureN)self_73775)->elements[30];
c_731310.elements[31] = ((closureN)self_73775)->elements[31];
c_731310.elements[32] = ((closureN)self_73775)->elements[32];
c_731310.elements[33] = ((closureN)self_73775)->elements[33];
c_731310.elements[34] = ((closureN)self_73775)->elements[34];
c_731310.elements[35] = ((closureN)self_73775)->elements[35];
c_731310.elements[36] = ((closureN)self_73775)->elements[36];
c_731310.elements[37] = ((closureN)self_73775)->elements[37];
c_731310.elements[38] = ((closureN)self_73775)->elements[38];


make_cell(c_736363,((closureN)self_73775)->elements[22]);
return_closcall1(data,(closure)&c_731310,  &c_736363);; 
}

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


make_cell(c_736359,((closureN)self_73776)->elements[0]);
return_closcall1(data,(closure)&c_731312,  &c_736359);; 
}

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


make_cell(c_736355,((closureN)self_73777)->elements[10]);
return_closcall1(data,(closure)&c_731314,  &c_736355);; 
}

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


make_cell(c_736351,((closureN)self_73778)->elements[15]);
return_closcall1(data,(closure)&c_731316,  &c_736351);; 
}

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


make_cell(c_736347,((closureN)self_73779)->elements[8]);
return_closcall1(data,(closure)&c_731318,  &c_736347);; 
}

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


make_cell(c_736343,((closureN)self_73780)->elements[8]);
return_closcall1(data,(closure)&c_731320,  &c_736343);; 
}

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


make_cell(c_736339,((closureN)self_73781)->elements[23]);
return_closcall1(data,(closure)&c_731322,  &c_736339);; 
}

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


make_cell(c_736335,((closureN)self_73782)->elements[29]);
return_closcall1(data,(closure)&c_731324,  &c_736335);; 
}

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


make_cell(c_736331,((closureN)self_73783)->elements[32]);
return_closcall1(data,(closure)&c_731326,  &c_736331);; 
}

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


make_cell(c_736327,((closureN)self_73784)->elements[3]);
return_closcall1(data,(closure)&c_731328,  &c_736327);; 
}

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


make_cell(c_736323,((closureN)self_73785)->elements[3]);
return_closcall1(data,(closure)&c_731330,  &c_736323);; 
}

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


make_cell(c_736319,((closureN)self_73786)->elements[25]);
return_closcall1(data,(closure)&c_731332,  &c_736319);; 
}

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


make_cell(c_736315,((closureN)self_73787)->elements[25]);
return_closcall1(data,(closure)&c_731334,  &c_736315);; 
}

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


make_cell(c_736311,((closureN)self_73788)->elements[10]);
return_closcall1(data,(closure)&c_731336,  &c_736311);; 
}

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


make_cell(c_736307,((closureN)self_73789)->elements[18]);
return_closcall1(data,(closure)&c_731338,  &c_736307);; 
}

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


make_cell(c_736303,((closureN)self_73790)->elements[20]);
return_closcall1(data,(closure)&c_731340,  &c_736303);; 
}

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


make_cell(c_736299,((closureN)self_73791)->elements[17]);
return_closcall1(data,(closure)&c_731342,  &c_736299);; 
}

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


make_cell(c_736295,((closureN)self_73792)->elements[17]);
return_closcall1(data,(closure)&c_731344,  &c_736295);; 
}

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


make_cell(c_736291,((closureN)self_73793)->elements[19]);
return_closcall1(data,(closure)&c_731346,  &c_736291);; 
}

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


make_cell(c_736287,((closureN)self_73794)->elements[37]);
return_closcall1(data,(closure)&c_731348,  &c_736287);; 
}

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


make_cell(c_736283,((closureN)self_73795)->elements[12]);
return_closcall1(data,(closure)&c_731350,  &c_736283);; 
}

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


make_cell(c_736279,((closureN)self_73796)->elements[12]);
return_closcall1(data,(closure)&c_731352,  &c_736279);; 
}

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


make_cell(c_736275,((closureN)self_73797)->elements[13]);
return_closcall1(data,(closure)&c_731354,  &c_736275);; 
}

static void __lambda_226(void *data, int argc, object self_73798, object one_91way_91unify1_91lst_73224) {
  
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_225;
c_731356.num_args = 1;
c_731356.num_elements = 39;
c_731356.elements = (object *)alloca(sizeof(object) * 39);
c_731356.elements[0] = ((closureN)self_73798)->elements[0];
c_731356.elements[1] = ((closureN)self_73798)->elements[1];
c_731356.elements[2] = ((closureN)self_73798)->elements[2];
c_731356.elements[3] = ((closureN)self_73798)->elements[3];
c_731356.elements[4] = ((closureN)self_73798)->elements[4];
c_731356.elements[5] = ((closureN)self_73798)->elements[5];
c_731356.elements[6] = ((closureN)self_73798)->elements[7];
c_731356.elements[7] = ((closureN)self_73798)->elements[8];
c_731356.elements[8] = ((closureN)self_73798)->elements[9];
c_731356.elements[9] = ((closureN)self_73798)->elements[10];
c_731356.elements[10] = ((closureN)self_73798)->elements[11];
c_731356.elements[11] = ((closureN)self_73798)->elements[12];
c_731356.elements[12] = ((closureN)self_73798)->elements[13];
c_731356.elements[13] = one_91way_91unify1_91lst_73224;
c_731356.elements[14] = ((closureN)self_73798)->elements[14];
c_731356.elements[15] = ((closureN)self_73798)->elements[15];
c_731356.elements[16] = ((closureN)self_73798)->elements[16];
c_731356.elements[17] = ((closureN)self_73798)->elements[17];
c_731356.elements[18] = ((closureN)self_73798)->elements[18];
c_731356.elements[19] = ((closureN)self_73798)->elements[19];
c_731356.elements[20] = ((closureN)self_73798)->elements[20];
c_731356.elements[21] = ((closureN)self_73798)->elements[21];
c_731356.elements[22] = ((closureN)self_73798)->elements[22];
c_731356.elements[23] = ((closureN)self_73798)->elements[23];
c_731356.elements[24] = ((closureN)self_73798)->elements[24];
c_731356.elements[25] = ((closureN)self_73798)->elements[25];
c_731356.elements[26] = ((closureN)self_73798)->elements[26];
c_731356.elements[27] = ((closureN)self_73798)->elements[27];
c_731356.elements[28] = ((closureN)self_73798)->elements[28];
c_731356.elements[29] = ((closureN)self_73798)->elements[29];
c_731356.elements[30] = ((closureN)self_73798)->elements[30];
c_731356.elements[31] = ((closureN)self_73798)->elements[31];
c_731356.elements[32] = ((closureN)self_73798)->elements[32];
c_731356.elements[33] = ((closureN)self_73798)->elements[33];
c_731356.elements[34] = ((closureN)self_73798)->elements[34];
c_731356.elements[35] = ((closureN)self_73798)->elements[35];
c_731356.elements[36] = ((closureN)self_73798)->elements[36];
c_731356.elements[37] = ((closureN)self_73798)->elements[37];
c_731356.elements[38] = ((closureN)self_73798)->elements[38];


make_cell(c_736271,((closureN)self_73798)->elements[6]);
return_closcall1(data,(closure)&c_731356,  &c_736271);; 
}

static void __lambda_225(void *data, int argc, object self_73799, object falsep_73223) {
  
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_224;
c_731358.num_args = 1;
c_731358.num_elements = 39;
c_731358.elements = (object *)alloca(sizeof(object) * 39);
c_731358.elements[0] = ((closureN)self_73799)->elements[0];
c_731358.elements[1] = ((closureN)self_73799)->elements[1];
c_731358.elements[2] = ((closureN)self_73799)->elements[2];
c_731358.elements[3] = ((closureN)self_73799)->elements[3];
c_731358.elements[4] = ((closureN)self_73799)->elements[4];
c_731358.elements[5] = ((closureN)self_73799)->elements[5];
c_731358.elements[6] = falsep_73223;
c_731358.elements[7] = ((closureN)self_73799)->elements[6];
c_731358.elements[8] = ((closureN)self_73799)->elements[7];
c_731358.elements[9] = ((closureN)self_73799)->elements[8];
c_731358.elements[10] = ((closureN)self_73799)->elements[9];
c_731358.elements[11] = ((closureN)self_73799)->elements[10];
c_731358.elements[12] = ((closureN)self_73799)->elements[11];
c_731358.elements[13] = ((closureN)self_73799)->elements[12];
c_731358.elements[14] = ((closureN)self_73799)->elements[13];
c_731358.elements[15] = ((closureN)self_73799)->elements[14];
c_731358.elements[16] = ((closureN)self_73799)->elements[15];
c_731358.elements[17] = ((closureN)self_73799)->elements[16];
c_731358.elements[18] = ((closureN)self_73799)->elements[17];
c_731358.elements[19] = ((closureN)self_73799)->elements[18];
c_731358.elements[20] = ((closureN)self_73799)->elements[19];
c_731358.elements[21] = ((closureN)self_73799)->elements[20];
c_731358.elements[22] = ((closureN)self_73799)->elements[21];
c_731358.elements[23] = ((closureN)self_73799)->elements[22];
c_731358.elements[24] = ((closureN)self_73799)->elements[23];
c_731358.elements[25] = ((closureN)self_73799)->elements[24];
c_731358.elements[26] = ((closureN)self_73799)->elements[25];
c_731358.elements[27] = ((closureN)self_73799)->elements[26];
c_731358.elements[28] = ((closureN)self_73799)->elements[27];
c_731358.elements[29] = ((closureN)self_73799)->elements[28];
c_731358.elements[30] = ((closureN)self_73799)->elements[29];
c_731358.elements[31] = ((closureN)self_73799)->elements[30];
c_731358.elements[32] = ((closureN)self_73799)->elements[31];
c_731358.elements[33] = ((closureN)self_73799)->elements[32];
c_731358.elements[34] = ((closureN)self_73799)->elements[33];
c_731358.elements[35] = ((closureN)self_73799)->elements[34];
c_731358.elements[36] = ((closureN)self_73799)->elements[35];
c_731358.elements[37] = ((closureN)self_73799)->elements[37];
c_731358.elements[38] = ((closureN)self_73799)->elements[38];


make_cell(c_736267,((closureN)self_73799)->elements[36]);
return_closcall1(data,(closure)&c_731358,  &c_736267);; 
}

static void __lambda_224(void *data, int argc, object self_73800, object truep_73222) {
  
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_223;
c_731360.num_args = 1;
c_731360.num_elements = 39;
c_731360.elements = (object *)alloca(sizeof(object) * 39);
c_731360.elements[0] = ((closureN)self_73800)->elements[0];
c_731360.elements[1] = ((closureN)self_73800)->elements[1];
c_731360.elements[2] = ((closureN)self_73800)->elements[2];
c_731360.elements[3] = ((closureN)self_73800)->elements[3];
c_731360.elements[4] = ((closureN)self_73800)->elements[4];
c_731360.elements[5] = ((closureN)self_73800)->elements[6];
c_731360.elements[6] = ((closureN)self_73800)->elements[7];
c_731360.elements[7] = ((closureN)self_73800)->elements[8];
c_731360.elements[8] = ((closureN)self_73800)->elements[9];
c_731360.elements[9] = ((closureN)self_73800)->elements[10];
c_731360.elements[10] = ((closureN)self_73800)->elements[11];
c_731360.elements[11] = ((closureN)self_73800)->elements[12];
c_731360.elements[12] = ((closureN)self_73800)->elements[13];
c_731360.elements[13] = ((closureN)self_73800)->elements[14];
c_731360.elements[14] = ((closureN)self_73800)->elements[15];
c_731360.elements[15] = ((closureN)self_73800)->elements[16];
c_731360.elements[16] = ((closureN)self_73800)->elements[17];
c_731360.elements[17] = ((closureN)self_73800)->elements[18];
c_731360.elements[18] = ((closureN)self_73800)->elements[19];
c_731360.elements[19] = ((closureN)self_73800)->elements[20];
c_731360.elements[20] = ((closureN)self_73800)->elements[21];
c_731360.elements[21] = ((closureN)self_73800)->elements[22];
c_731360.elements[22] = ((closureN)self_73800)->elements[23];
c_731360.elements[23] = ((closureN)self_73800)->elements[24];
c_731360.elements[24] = ((closureN)self_73800)->elements[25];
c_731360.elements[25] = ((closureN)self_73800)->elements[26];
c_731360.elements[26] = ((closureN)self_73800)->elements[27];
c_731360.elements[27] = ((closureN)self_73800)->elements[28];
c_731360.elements[28] = ((closureN)self_73800)->elements[29];
c_731360.elements[29] = ((closureN)self_73800)->elements[30];
c_731360.elements[30] = ((closureN)self_73800)->elements[31];
c_731360.elements[31] = ((closureN)self_73800)->elements[32];
c_731360.elements[32] = ((closureN)self_73800)->elements[33];
c_731360.elements[33] = ((closureN)self_73800)->elements[34];
c_731360.elements[34] = ((closureN)self_73800)->elements[35];
c_731360.elements[35] = ((closureN)self_73800)->elements[36];
c_731360.elements[36] = truep_73222;
c_731360.elements[37] = ((closureN)self_73800)->elements[37];
c_731360.elements[38] = ((closureN)self_73800)->elements[38];


make_cell(c_736263,((closureN)self_73800)->elements[5]);
return_closcall1(data,(closure)&c_731360,  &c_736263);; 
}

static void __lambda_223(void *data, int argc, object self_73801, object false_91term_73221) {
  
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_222;
c_731362.num_args = 1;
c_731362.num_elements = 39;
c_731362.elements = (object *)alloca(sizeof(object) * 39);
c_731362.elements[0] = ((closureN)self_73801)->elements[0];
c_731362.elements[1] = ((closureN)self_73801)->elements[1];
c_731362.elements[2] = ((closureN)self_73801)->elements[2];
c_731362.elements[3] = ((closureN)self_73801)->elements[3];
c_731362.elements[4] = ((closureN)self_73801)->elements[4];
c_731362.elements[5] = false_91term_73221;
c_731362.elements[6] = ((closureN)self_73801)->elements[5];
c_731362.elements[7] = ((closureN)self_73801)->elements[6];
c_731362.elements[8] = ((closureN)self_73801)->elements[7];
c_731362.elements[9] = ((closureN)self_73801)->elements[8];
c_731362.elements[10] = ((closureN)self_73801)->elements[9];
c_731362.elements[11] = ((closureN)self_73801)->elements[10];
c_731362.elements[12] = ((closureN)self_73801)->elements[11];
c_731362.elements[13] = ((closureN)self_73801)->elements[12];
c_731362.elements[14] = ((closureN)self_73801)->elements[13];
c_731362.elements[15] = ((closureN)self_73801)->elements[14];
c_731362.elements[16] = ((closureN)self_73801)->elements[15];
c_731362.elements[17] = ((closureN)self_73801)->elements[16];
c_731362.elements[18] = ((closureN)self_73801)->elements[17];
c_731362.elements[19] = ((closureN)self_73801)->elements[18];
c_731362.elements[20] = ((closureN)self_73801)->elements[19];
c_731362.elements[21] = ((closureN)self_73801)->elements[20];
c_731362.elements[22] = ((closureN)self_73801)->elements[21];
c_731362.elements[23] = ((closureN)self_73801)->elements[22];
c_731362.elements[24] = ((closureN)self_73801)->elements[23];
c_731362.elements[25] = ((closureN)self_73801)->elements[24];
c_731362.elements[26] = ((closureN)self_73801)->elements[25];
c_731362.elements[27] = ((closureN)self_73801)->elements[26];
c_731362.elements[28] = ((closureN)self_73801)->elements[27];
c_731362.elements[29] = ((closureN)self_73801)->elements[28];
c_731362.elements[30] = ((closureN)self_73801)->elements[29];
c_731362.elements[31] = ((closureN)self_73801)->elements[30];
c_731362.elements[32] = ((closureN)self_73801)->elements[31];
c_731362.elements[33] = ((closureN)self_73801)->elements[32];
c_731362.elements[34] = ((closureN)self_73801)->elements[33];
c_731362.elements[35] = ((closureN)self_73801)->elements[34];
c_731362.elements[36] = ((closureN)self_73801)->elements[36];
c_731362.elements[37] = ((closureN)self_73801)->elements[37];
c_731362.elements[38] = ((closureN)self_73801)->elements[38];


make_cell(c_736259,((closureN)self_73801)->elements[35]);
return_closcall1(data,(closure)&c_731362,  &c_736259);; 
}

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


make_cell(c_736255,((closureN)self_73802)->elements[31]);
return_closcall1(data,(closure)&c_731364,  &c_736255);; 
}

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


make_cell(c_736251,((closureN)self_73803)->elements[31]);
return_closcall1(data,(closure)&c_731366,  &c_736251);; 
}

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


make_cell(c_736247,((closureN)self_73804)->elements[28]);
return_closcall1(data,(closure)&c_731368,  &c_736247);; 
}

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


make_cell(c_736243,((closureN)self_73805)->elements[27]);
return_closcall1(data,(closure)&c_731370,  &c_736243);; 
}

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


make_cell(c_736239,((closureN)self_73806)->elements[28]);
return_closcall1(data,(closure)&c_731372,  &c_736239);; 
}

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


closureN_type c_734385;
c_734385.hdr.mark = gc_color_red;
 c_734385.hdr.grayed = 0;
c_734385.tag = closureN_tag;
 c_734385.fn = (function_type)__lambda_216;
c_734385.num_args = 0;
c_734385.num_elements = 1;
c_734385.elements = (object *)alloca(sizeof(object) * 1);
c_734385.elements[0] = ((closureN)self_73807)->elements[2];

return_closcall1(data,(closure)&c_731374,  Cyc_set_cell(data, ((closureN)self_73807)->elements[22], &c_734385));; 
}

static void __lambda_216(void *data, int argc, object self_73808, object k_73668) {
  
make_pair(c_734394,quote_form,NULL);

make_pair(c_734393,quote_compile,&c_734394);

make_pair(c_734401,quote_form,NULL);

make_pair(c_734400,quote_optimize,&c_734401);

make_pair(c_734403,quote_nil,NULL);

make_pair(c_734402,&c_734403,NULL);

make_pair(c_734399,&c_734400,&c_734402);

make_pair(c_734398,quote_codegen,&c_734399);

make_pair(c_734397,&c_734398,NULL);

make_pair(c_734396,quote_reverse,&c_734397);

make_pair(c_734395,&c_734396,NULL);

make_pair(c_734392,&c_734393,&c_734395);

make_pair(c_734391,quote_equal,&c_734392);

make_pair(c_734409,quote_y,NULL);

make_pair(c_734408,quote_x,&c_734409);

make_pair(c_734407,quote_eqp,&c_734408);

make_pair(c_734414,quote_x,NULL);

make_pair(c_734413,quote_fix,&c_734414);

make_pair(c_734417,quote_y,NULL);

make_pair(c_734416,quote_fix,&c_734417);

make_pair(c_734415,&c_734416,NULL);

make_pair(c_734412,&c_734413,&c_734415);

make_pair(c_734411,quote_equal,&c_734412);

make_pair(c_734410,&c_734411,NULL);

make_pair(c_734406,&c_734407,&c_734410);

make_pair(c_734405,quote_equal,&c_734406);

make_pair(c_734423,quote_y,NULL);

make_pair(c_734422,quote_x,&c_734423);

make_pair(c_734421,quote_greaterp,&c_734422);

make_pair(c_734427,quote_x,NULL);

make_pair(c_734426,quote_y,&c_734427);

make_pair(c_734425,quote_lessp,&c_734426);

make_pair(c_734424,&c_734425,NULL);

make_pair(c_734420,&c_734421,&c_734424);

make_pair(c_734419,quote_equal,&c_734420);

make_pair(c_734433,quote_y,NULL);

make_pair(c_734432,quote_x,&c_734433);

make_pair(c_734431,quote_lesseqp,&c_734432);

make_pair(c_734439,quote_x,NULL);

make_pair(c_734438,quote_y,&c_734439);

make_pair(c_734437,quote_lessp,&c_734438);

make_pair(c_734436,&c_734437,NULL);

make_pair(c_734435,quote_not,&c_734436);

make_pair(c_734434,&c_734435,NULL);

make_pair(c_734430,&c_734431,&c_734434);

make_pair(c_734429,quote_equal,&c_734430);

make_pair(c_734445,quote_y,NULL);

make_pair(c_734444,quote_x,&c_734445);

make_pair(c_734443,quote_greatereqp,&c_734444);

make_pair(c_734451,quote_y,NULL);

make_pair(c_734450,quote_x,&c_734451);

make_pair(c_734449,quote_lessp,&c_734450);

make_pair(c_734448,&c_734449,NULL);

make_pair(c_734447,quote_not,&c_734448);

make_pair(c_734446,&c_734447,NULL);

make_pair(c_734442,&c_734443,&c_734446);

make_pair(c_734441,quote_equal,&c_734442);

make_pair(c_734456,quote_x,NULL);

make_pair(c_734455,quote_boolean,&c_734456);

make_pair(c_734463,quote_t,NULL);

make_pair(c_734462,&c_734463,NULL);

make_pair(c_734461,quote_x,&c_734462);

make_pair(c_734460,quote_equal,&c_734461);

make_pair(c_734468,quote_f,NULL);

make_pair(c_734467,&c_734468,NULL);

make_pair(c_734466,quote_x,&c_734467);

make_pair(c_734465,quote_equal,&c_734466);

make_pair(c_734464,&c_734465,NULL);

make_pair(c_734459,&c_734460,&c_734464);

make_pair(c_734458,quote_or,&c_734459);

make_pair(c_734457,&c_734458,NULL);

make_pair(c_734454,&c_734455,&c_734457);

make_pair(c_734453,quote_equal,&c_734454);

make_pair(c_734474,quote_y,NULL);

make_pair(c_734473,quote_x,&c_734474);

make_pair(c_734472,quote_iff,&c_734473);

make_pair(c_734480,quote_y,NULL);

make_pair(c_734479,quote_x,&c_734480);

make_pair(c_734478,quote_implies,&c_734479);

make_pair(c_734484,quote_x,NULL);

make_pair(c_734483,quote_y,&c_734484);

make_pair(c_734482,quote_implies,&c_734483);

make_pair(c_734481,&c_734482,NULL);

make_pair(c_734477,&c_734478,&c_734481);

make_pair(c_734476,quote_and,&c_734477);

make_pair(c_734475,&c_734476,NULL);

make_pair(c_734471,&c_734472,&c_734475);

make_pair(c_734470,quote_equal,&c_734471);

make_pair(c_734489,quote_x,NULL);

make_pair(c_734488,quote_even1,&c_734489);

make_pair(c_734494,quote_x,NULL);

make_pair(c_734493,quote_zerop,&c_734494);

make_pair(c_734496,quote_t,NULL);

make_pair(c_734501,quote_x,NULL);

make_pair(c_734500,quote__1911_91,&c_734501);

make_pair(c_734499,&c_734500,NULL);

make_pair(c_734498,quote_odd,&c_734499);

make_pair(c_734497,&c_734498,NULL);

make_pair(c_734495,&c_734496,&c_734497);

make_pair(c_734492,&c_734493,&c_734495);

make_pair(c_734491,quote__if,&c_734492);

make_pair(c_734490,&c_734491,NULL);

make_pair(c_734487,&c_734488,&c_734490);

make_pair(c_734486,quote_equal,&c_734487);

make_pair(c_734507,quote_pred,NULL);

make_pair(c_734506,quote_l,&c_734507);

make_pair(c_734505,quote_countps_91,&c_734506);

make_pair(c_734513,quote_zero,NULL);

make_pair(c_734512,&c_734513,NULL);

make_pair(c_734511,quote_pred,&c_734512);

make_pair(c_734510,quote_l,&c_734511);

make_pair(c_734509,quote_countps_91loop,&c_734510);

make_pair(c_734508,&c_734509,NULL);

make_pair(c_734504,&c_734505,&c_734508);

make_pair(c_734503,quote_equal,&c_734504);

make_pair(c_734518,quote_i,NULL);

make_pair(c_734517,quote_fact_91,&c_734518);

make_pair(c_734522,obj_int2obj(1),NULL);

make_pair(c_734521,quote_i,&c_734522);

make_pair(c_734520,quote_fact_91loop,&c_734521);

make_pair(c_734519,&c_734520,NULL);

make_pair(c_734516,&c_734517,&c_734519);

make_pair(c_734515,quote_equal,&c_734516);

make_pair(c_734527,quote_x,NULL);

make_pair(c_734526,quote_reverse_91,&c_734527);

make_pair(c_734532,quote_nil,NULL);

make_pair(c_734531,&c_734532,NULL);

make_pair(c_734530,quote_x,&c_734531);

make_pair(c_734529,quote_reverse_91loop,&c_734530);

make_pair(c_734528,&c_734529,NULL);

make_pair(c_734525,&c_734526,&c_734528);

make_pair(c_734524,quote_equal,&c_734525);

make_pair(c_734538,quote_y,NULL);

make_pair(c_734537,quote_x,&c_734538);

make_pair(c_734536,quote_divides,&c_734537);

make_pair(c_734544,quote_x,NULL);

make_pair(c_734543,quote_y,&c_734544);

make_pair(c_734542,quote_remainder,&c_734543);

make_pair(c_734541,&c_734542,NULL);

make_pair(c_734540,quote_zerop,&c_734541);

make_pair(c_734539,&c_734540,NULL);

make_pair(c_734535,&c_734536,&c_734539);

make_pair(c_734534,quote_equal,&c_734535);

make_pair(c_734550,quote_alist,NULL);

make_pair(c_734549,quote_var,&c_734550);

make_pair(c_734548,quote_assume_91true,&c_734549);

make_pair(c_734557,quote_t,NULL);

make_pair(c_734556,&c_734557,NULL);

make_pair(c_734555,quote_var,&c_734556);

make_pair(c_734554,quote_cons,&c_734555);

make_pair(c_734558,quote_alist,NULL);

make_pair(c_734553,&c_734554,&c_734558);

make_pair(c_734552,quote_cons,&c_734553);

make_pair(c_734551,&c_734552,NULL);

make_pair(c_734547,&c_734548,&c_734551);

make_pair(c_734546,quote_equal,&c_734547);

make_pair(c_734564,quote_alist,NULL);

make_pair(c_734563,quote_var,&c_734564);

make_pair(c_734562,quote_assume_91false,&c_734563);

make_pair(c_734571,quote_f,NULL);

make_pair(c_734570,&c_734571,NULL);

make_pair(c_734569,quote_var,&c_734570);

make_pair(c_734568,quote_cons,&c_734569);

make_pair(c_734572,quote_alist,NULL);

make_pair(c_734567,&c_734568,&c_734572);

make_pair(c_734566,quote_cons,&c_734567);

make_pair(c_734565,&c_734566,NULL);

make_pair(c_734561,&c_734562,&c_734565);

make_pair(c_734560,quote_equal,&c_734561);

make_pair(c_734577,quote_x,NULL);

make_pair(c_734576,quote_tautology_91checker,&c_734577);

make_pair(c_734582,quote_x,NULL);

make_pair(c_734581,quote_normalize,&c_734582);

make_pair(c_734584,quote_nil,NULL);

make_pair(c_734583,&c_734584,NULL);

make_pair(c_734580,&c_734581,&c_734583);

make_pair(c_734579,quote_tautologyp,&c_734580);

make_pair(c_734578,&c_734579,NULL);

make_pair(c_734575,&c_734576,&c_734578);

make_pair(c_734574,quote_equal,&c_734575);

make_pair(c_734589,quote_x,NULL);

make_pair(c_734588,quote_falsify,&c_734589);

make_pair(c_734594,quote_x,NULL);

make_pair(c_734593,quote_normalize,&c_734594);

make_pair(c_734596,quote_nil,NULL);

make_pair(c_734595,&c_734596,NULL);

make_pair(c_734592,&c_734593,&c_734595);

make_pair(c_734591,quote_falsify1,&c_734592);

make_pair(c_734590,&c_734591,NULL);

make_pair(c_734587,&c_734588,&c_734590);

make_pair(c_734586,quote_equal,&c_734587);

make_pair(c_734601,quote_x,NULL);

make_pair(c_734600,quote_prime,&c_734601);

make_pair(c_734608,quote_x,NULL);

make_pair(c_734607,quote_zerop,&c_734608);

make_pair(c_734606,&c_734607,NULL);

make_pair(c_734605,quote_not,&c_734606);

make_pair(c_734617,quote_zero,NULL);

make_pair(c_734616,&c_734617,NULL);

make_pair(c_734615,quote_add1,&c_734616);

make_pair(c_734614,&c_734615,NULL);

make_pair(c_734613,quote_x,&c_734614);

make_pair(c_734612,quote_equal,&c_734613);

make_pair(c_734611,&c_734612,NULL);

make_pair(c_734610,quote_not,&c_734611);

make_pair(c_734623,quote_x,NULL);

make_pair(c_734622,quote__1911_91,&c_734623);

make_pair(c_734621,&c_734622,NULL);

make_pair(c_734620,quote_x,&c_734621);

make_pair(c_734619,quote_prime1,&c_734620);

make_pair(c_734618,&c_734619,NULL);

make_pair(c_734609,&c_734610,&c_734618);

make_pair(c_734604,&c_734605,&c_734609);

make_pair(c_734603,quote_and,&c_734604);

make_pair(c_734602,&c_734603,NULL);

make_pair(c_734599,&c_734600,&c_734602);

make_pair(c_734598,quote_equal,&c_734599);

make_pair(c_734629,quote_q,NULL);

make_pair(c_734628,quote_p,&c_734629);

make_pair(c_734627,quote_and,&c_734628);

make_pair(c_734637,quote_t,NULL);

make_pair(c_734639,quote_f,NULL);

make_pair(c_734638,&c_734639,NULL);

make_pair(c_734636,&c_734637,&c_734638);

make_pair(c_734635,quote_q,&c_734636);

make_pair(c_734634,quote__if,&c_734635);

make_pair(c_734641,quote_f,NULL);

make_pair(c_734640,&c_734641,NULL);

make_pair(c_734633,&c_734634,&c_734640);

make_pair(c_734632,quote_p,&c_734633);

make_pair(c_734631,quote__if,&c_734632);

make_pair(c_734630,&c_734631,NULL);

make_pair(c_734626,&c_734627,&c_734630);

make_pair(c_734625,quote_equal,&c_734626);

make_pair(c_734647,quote_q,NULL);

make_pair(c_734646,quote_p,&c_734647);

make_pair(c_734645,quote_or,&c_734646);

make_pair(c_734652,quote_t,NULL);

make_pair(c_734657,quote_t,NULL);

make_pair(c_734659,quote_f,NULL);

make_pair(c_734658,&c_734659,NULL);

make_pair(c_734656,&c_734657,&c_734658);

make_pair(c_734655,quote_q,&c_734656);

make_pair(c_734654,quote__if,&c_734655);

make_pair(c_734653,&c_734654,NULL);

make_pair(c_734651,&c_734652,&c_734653);

make_pair(c_734650,quote_p,&c_734651);

make_pair(c_734649,quote__if,&c_734650);

make_pair(c_734648,&c_734649,NULL);

make_pair(c_734644,&c_734645,&c_734648);

make_pair(c_734643,quote_equal,&c_734644);

make_pair(c_734664,quote_p,NULL);

make_pair(c_734663,quote_not,&c_734664);

make_pair(c_734669,quote_f,NULL);

make_pair(c_734671,quote_t,NULL);

make_pair(c_734670,&c_734671,NULL);

make_pair(c_734668,&c_734669,&c_734670);

make_pair(c_734667,quote_p,&c_734668);

make_pair(c_734666,quote__if,&c_734667);

make_pair(c_734665,&c_734666,NULL);

make_pair(c_734662,&c_734663,&c_734665);

make_pair(c_734661,quote_equal,&c_734662);

make_pair(c_734677,quote_q,NULL);

make_pair(c_734676,quote_p,&c_734677);

make_pair(c_734675,quote_implies,&c_734676);

make_pair(c_734685,quote_t,NULL);

make_pair(c_734687,quote_f,NULL);

make_pair(c_734686,&c_734687,NULL);

make_pair(c_734684,&c_734685,&c_734686);

make_pair(c_734683,quote_q,&c_734684);

make_pair(c_734682,quote__if,&c_734683);

make_pair(c_734689,quote_t,NULL);

make_pair(c_734688,&c_734689,NULL);

make_pair(c_734681,&c_734682,&c_734688);

make_pair(c_734680,quote_p,&c_734681);

make_pair(c_734679,quote__if,&c_734680);

make_pair(c_734678,&c_734679,NULL);

make_pair(c_734674,&c_734675,&c_734678);

make_pair(c_734673,quote_equal,&c_734674);

make_pair(c_734694,quote_x,NULL);

make_pair(c_734693,quote_fix,&c_734694);

make_pair(c_734699,quote_x,NULL);

make_pair(c_734698,quote_numberp,&c_734699);

make_pair(c_734702,quote_zero,NULL);

make_pair(c_734701,&c_734702,NULL);

make_pair(c_734700,quote_x,&c_734701);

make_pair(c_734697,&c_734698,&c_734700);

make_pair(c_734696,quote__if,&c_734697);

make_pair(c_734695,&c_734696,NULL);

make_pair(c_734692,&c_734693,&c_734695);

make_pair(c_734691,quote_equal,&c_734692);

make_pair(c_734711,quote_c,NULL);

make_pair(c_734710,quote_b,&c_734711);

make_pair(c_734709,quote_a,&c_734710);

make_pair(c_734708,quote__if,&c_734709);

make_pair(c_734713,quote_e,NULL);

make_pair(c_734712,quote_d,&c_734713);

make_pair(c_734707,&c_734708,&c_734712);

make_pair(c_734706,quote__if,&c_734707);

make_pair(c_734721,quote_e,NULL);

make_pair(c_734720,quote_d,&c_734721);

make_pair(c_734719,quote_b,&c_734720);

make_pair(c_734718,quote__if,&c_734719);

make_pair(c_734726,quote_e,NULL);

make_pair(c_734725,quote_d,&c_734726);

make_pair(c_734724,quote_c,&c_734725);

make_pair(c_734723,quote__if,&c_734724);

make_pair(c_734722,&c_734723,NULL);

make_pair(c_734717,&c_734718,&c_734722);

make_pair(c_734716,quote_a,&c_734717);

make_pair(c_734715,quote__if,&c_734716);

make_pair(c_734714,&c_734715,NULL);

make_pair(c_734705,&c_734706,&c_734714);

make_pair(c_734704,quote_equal,&c_734705);

make_pair(c_734731,quote_x,NULL);

make_pair(c_734730,quote_zerop,&c_734731);

make_pair(c_734738,quote_zero,NULL);

make_pair(c_734737,&c_734738,NULL);

make_pair(c_734736,quote_x,&c_734737);

make_pair(c_734735,quote_equal,&c_734736);

make_pair(c_734743,quote_x,NULL);

make_pair(c_734742,quote_numberp,&c_734743);

make_pair(c_734741,&c_734742,NULL);

make_pair(c_734740,quote_not,&c_734741);

make_pair(c_734739,&c_734740,NULL);

make_pair(c_734734,&c_734735,&c_734739);

make_pair(c_734733,quote_or,&c_734734);

make_pair(c_734732,&c_734733,NULL);

make_pair(c_734729,&c_734730,&c_734732);

make_pair(c_734728,quote_equal,&c_734729);

make_pair(c_734751,quote_y,NULL);

make_pair(c_734750,quote_x,&c_734751);

make_pair(c_734749,quote_plus,&c_734750);

make_pair(c_734752,quote_z,NULL);

make_pair(c_734748,&c_734749,&c_734752);

make_pair(c_734747,quote_plus,&c_734748);

make_pair(c_734759,quote_z,NULL);

make_pair(c_734758,quote_y,&c_734759);

make_pair(c_734757,quote_plus,&c_734758);

make_pair(c_734756,&c_734757,NULL);

make_pair(c_734755,quote_x,&c_734756);

make_pair(c_734754,quote_plus,&c_734755);

make_pair(c_734753,&c_734754,NULL);

make_pair(c_734746,&c_734747,&c_734753);

make_pair(c_734745,quote_equal,&c_734746);

make_pair(c_734767,quote_b,NULL);

make_pair(c_734766,quote_a,&c_734767);

make_pair(c_734765,quote_plus,&c_734766);

make_pair(c_734769,quote_zero,NULL);

make_pair(c_734768,&c_734769,NULL);

make_pair(c_734764,&c_734765,&c_734768);

make_pair(c_734763,quote_equal,&c_734764);

make_pair(c_734774,quote_a,NULL);

make_pair(c_734773,quote_zerop,&c_734774);

make_pair(c_734777,quote_b,NULL);

make_pair(c_734776,quote_zerop,&c_734777);

make_pair(c_734775,&c_734776,NULL);

make_pair(c_734772,&c_734773,&c_734775);

make_pair(c_734771,quote_and,&c_734772);

make_pair(c_734770,&c_734771,NULL);

make_pair(c_734762,&c_734763,&c_734770);

make_pair(c_734761,quote_equal,&c_734762);

make_pair(c_734783,quote_x,NULL);

make_pair(c_734782,quote_x,&c_734783);

make_pair(c_734781,quote_difference,&c_734782);

make_pair(c_734785,quote_zero,NULL);

make_pair(c_734784,&c_734785,NULL);

make_pair(c_734780,&c_734781,&c_734784);

make_pair(c_734779,quote_equal,&c_734780);

make_pair(c_734793,quote_b,NULL);

make_pair(c_734792,quote_a,&c_734793);

make_pair(c_734791,quote_plus,&c_734792);

make_pair(c_734797,quote_c,NULL);

make_pair(c_734796,quote_a,&c_734797);

make_pair(c_734795,quote_plus,&c_734796);

make_pair(c_734794,&c_734795,NULL);

make_pair(c_734790,&c_734791,&c_734794);

make_pair(c_734789,quote_equal,&c_734790);

make_pair(c_734802,quote_b,NULL);

make_pair(c_734801,quote_fix,&c_734802);

make_pair(c_734805,quote_c,NULL);

make_pair(c_734804,quote_fix,&c_734805);

make_pair(c_734803,&c_734804,NULL);

make_pair(c_734800,&c_734801,&c_734803);

make_pair(c_734799,quote_equal,&c_734800);

make_pair(c_734798,&c_734799,NULL);

make_pair(c_734788,&c_734789,&c_734798);

make_pair(c_734787,quote_equal,&c_734788);

make_pair(c_734811,quote_zero,NULL);

make_pair(c_734815,quote_y,NULL);

make_pair(c_734814,quote_x,&c_734815);

make_pair(c_734813,quote_difference,&c_734814);

make_pair(c_734812,&c_734813,NULL);

make_pair(c_734810,&c_734811,&c_734812);

make_pair(c_734809,quote_equal,&c_734810);

make_pair(c_734821,quote_x,NULL);

make_pair(c_734820,quote_y,&c_734821);

make_pair(c_734819,quote_lessp,&c_734820);

make_pair(c_734818,&c_734819,NULL);

make_pair(c_734817,quote_not,&c_734818);

make_pair(c_734816,&c_734817,NULL);

make_pair(c_734808,&c_734809,&c_734816);

make_pair(c_734807,quote_equal,&c_734808);

make_pair(c_734830,quote_y,NULL);

make_pair(c_734829,quote_x,&c_734830);

make_pair(c_734828,quote_difference,&c_734829);

make_pair(c_734827,&c_734828,NULL);

make_pair(c_734826,quote_x,&c_734827);

make_pair(c_734825,quote_equal,&c_734826);

make_pair(c_734835,quote_x,NULL);

make_pair(c_734834,quote_numberp,&c_734835);

make_pair(c_734842,quote_zero,NULL);

make_pair(c_734841,&c_734842,NULL);

make_pair(c_734840,quote_x,&c_734841);

make_pair(c_734839,quote_equal,&c_734840);

make_pair(c_734845,quote_y,NULL);

make_pair(c_734844,quote_zerop,&c_734845);

make_pair(c_734843,&c_734844,NULL);

make_pair(c_734838,&c_734839,&c_734843);

make_pair(c_734837,quote_or,&c_734838);

make_pair(c_734836,&c_734837,NULL);

make_pair(c_734833,&c_734834,&c_734836);

make_pair(c_734832,quote_and,&c_734833);

make_pair(c_734831,&c_734832,NULL);

make_pair(c_734824,&c_734825,&c_734831);

make_pair(c_734823,quote_equal,&c_734824);

make_pair(c_734855,quote_y,NULL);

make_pair(c_734854,quote_x,&c_734855);

make_pair(c_734853,quote_append,&c_734854);

make_pair(c_734852,&c_734853,NULL);

make_pair(c_734851,quote_plus_91tree,&c_734852);

make_pair(c_734856,quote_a,NULL);

make_pair(c_734850,&c_734851,&c_734856);

make_pair(c_734849,quote_meaning,&c_734850);

make_pair(c_734863,quote_x,NULL);

make_pair(c_734862,quote_plus_91tree,&c_734863);

make_pair(c_734864,quote_a,NULL);

make_pair(c_734861,&c_734862,&c_734864);

make_pair(c_734860,quote_meaning,&c_734861);

make_pair(c_734869,quote_y,NULL);

make_pair(c_734868,quote_plus_91tree,&c_734869);

make_pair(c_734870,quote_a,NULL);

make_pair(c_734867,&c_734868,&c_734870);

make_pair(c_734866,quote_meaning,&c_734867);

make_pair(c_734865,&c_734866,NULL);

make_pair(c_734859,&c_734860,&c_734865);

make_pair(c_734858,quote_plus,&c_734859);

make_pair(c_734857,&c_734858,NULL);

make_pair(c_734848,&c_734849,&c_734857);

make_pair(c_734847,quote_equal,&c_734848);

make_pair(c_734879,quote_x,NULL);

make_pair(c_734878,quote_plus_91fringe,&c_734879);

make_pair(c_734877,&c_734878,NULL);

make_pair(c_734876,quote_plus_91tree,&c_734877);

make_pair(c_734880,quote_a,NULL);

make_pair(c_734875,&c_734876,&c_734880);

make_pair(c_734874,quote_meaning,&c_734875);

make_pair(c_734886,quote_a,NULL);

make_pair(c_734885,quote_x,&c_734886);

make_pair(c_734884,quote_meaning,&c_734885);

make_pair(c_734883,&c_734884,NULL);

make_pair(c_734882,quote_fix,&c_734883);

make_pair(c_734881,&c_734882,NULL);

make_pair(c_734873,&c_734874,&c_734881);

make_pair(c_734872,quote_equal,&c_734873);

make_pair(c_734894,quote_y,NULL);

make_pair(c_734893,quote_x,&c_734894);

make_pair(c_734892,quote_append,&c_734893);

make_pair(c_734895,quote_z,NULL);

make_pair(c_734891,&c_734892,&c_734895);

make_pair(c_734890,quote_append,&c_734891);

make_pair(c_734902,quote_z,NULL);

make_pair(c_734901,quote_y,&c_734902);

make_pair(c_734900,quote_append,&c_734901);

make_pair(c_734899,&c_734900,NULL);

make_pair(c_734898,quote_x,&c_734899);

make_pair(c_734897,quote_append,&c_734898);

make_pair(c_734896,&c_734897,NULL);

make_pair(c_734889,&c_734890,&c_734896);

make_pair(c_734888,quote_equal,&c_734889);

make_pair(c_734910,quote_b,NULL);

make_pair(c_734909,quote_a,&c_734910);

make_pair(c_734908,quote_append,&c_734909);

make_pair(c_734907,&c_734908,NULL);

make_pair(c_734906,quote_reverse,&c_734907);

make_pair(c_734915,quote_b,NULL);

make_pair(c_734914,quote_reverse,&c_734915);

make_pair(c_734918,quote_a,NULL);

make_pair(c_734917,quote_reverse,&c_734918);

make_pair(c_734916,&c_734917,NULL);

make_pair(c_734913,&c_734914,&c_734916);

make_pair(c_734912,quote_append,&c_734913);

make_pair(c_734911,&c_734912,NULL);

make_pair(c_734905,&c_734906,&c_734911);

make_pair(c_734904,quote_equal,&c_734905);

make_pair(c_734927,quote_z,NULL);

make_pair(c_734926,quote_y,&c_734927);

make_pair(c_734925,quote_plus,&c_734926);

make_pair(c_734924,&c_734925,NULL);

make_pair(c_734923,quote_x,&c_734924);

make_pair(c_734922,quote_times,&c_734923);

make_pair(c_734933,quote_y,NULL);

make_pair(c_734932,quote_x,&c_734933);

make_pair(c_734931,quote_times,&c_734932);

make_pair(c_734937,quote_z,NULL);

make_pair(c_734936,quote_x,&c_734937);

make_pair(c_734935,quote_times,&c_734936);

make_pair(c_734934,&c_734935,NULL);

make_pair(c_734930,&c_734931,&c_734934);

make_pair(c_734929,quote_plus,&c_734930);

make_pair(c_734928,&c_734929,NULL);

make_pair(c_734921,&c_734922,&c_734928);

make_pair(c_734920,quote_equal,&c_734921);

make_pair(c_734945,quote_y,NULL);

make_pair(c_734944,quote_x,&c_734945);

make_pair(c_734943,quote_times,&c_734944);

make_pair(c_734946,quote_z,NULL);

make_pair(c_734942,&c_734943,&c_734946);

make_pair(c_734941,quote_times,&c_734942);

make_pair(c_734953,quote_z,NULL);

make_pair(c_734952,quote_y,&c_734953);

make_pair(c_734951,quote_times,&c_734952);

make_pair(c_734950,&c_734951,NULL);

make_pair(c_734949,quote_x,&c_734950);

make_pair(c_734948,quote_times,&c_734949);

make_pair(c_734947,&c_734948,NULL);

make_pair(c_734940,&c_734941,&c_734947);

make_pair(c_734939,quote_equal,&c_734940);

make_pair(c_734961,quote_y,NULL);

make_pair(c_734960,quote_x,&c_734961);

make_pair(c_734959,quote_times,&c_734960);

make_pair(c_734963,quote_zero,NULL);

make_pair(c_734962,&c_734963,NULL);

make_pair(c_734958,&c_734959,&c_734962);

make_pair(c_734957,quote_equal,&c_734958);

make_pair(c_734968,quote_x,NULL);

make_pair(c_734967,quote_zerop,&c_734968);

make_pair(c_734971,quote_y,NULL);

make_pair(c_734970,quote_zerop,&c_734971);

make_pair(c_734969,&c_734970,NULL);

make_pair(c_734966,&c_734967,&c_734969);

make_pair(c_734965,quote_or,&c_734966);

make_pair(c_734964,&c_734965,NULL);

make_pair(c_734956,&c_734957,&c_734964);

make_pair(c_734955,quote_equal,&c_734956);

make_pair(c_734979,quote_y,NULL);

make_pair(c_734978,quote_x,&c_734979);

make_pair(c_734977,quote_append,&c_734978);

make_pair(c_734981,quote_envrn,NULL);

make_pair(c_734980,quote_pds,&c_734981);

make_pair(c_734976,&c_734977,&c_734980);

make_pair(c_734975,quote_exec,&c_734976);

make_pair(c_734989,quote_envrn,NULL);

make_pair(c_734988,quote_pds,&c_734989);

make_pair(c_734987,quote_x,&c_734988);

make_pair(c_734986,quote_exec,&c_734987);

make_pair(c_734990,quote_envrn,NULL);

make_pair(c_734985,&c_734986,&c_734990);

make_pair(c_734984,quote_y,&c_734985);

make_pair(c_734983,quote_exec,&c_734984);

make_pair(c_734982,&c_734983,NULL);

make_pair(c_734974,&c_734975,&c_734982);

make_pair(c_734973,quote_equal,&c_734974);

make_pair(c_734996,quote_y,NULL);

make_pair(c_734995,quote_x,&c_734996);

make_pair(c_734994,quote_mc_91flatten,&c_734995);

make_pair(c_735001,quote_x,NULL);

make_pair(c_735000,quote_flatten,&c_735001);

make_pair(c_735002,quote_y,NULL);

make_pair(c_734999,&c_735000,&c_735002);

make_pair(c_734998,quote_append,&c_734999);

make_pair(c_734997,&c_734998,NULL);

make_pair(c_734993,&c_734994,&c_734997);

make_pair(c_734992,quote_equal,&c_734993);

make_pair(c_735011,quote_b,NULL);

make_pair(c_735010,quote_a,&c_735011);

make_pair(c_735009,quote_append,&c_735010);

make_pair(c_735008,&c_735009,NULL);

make_pair(c_735007,quote_x,&c_735008);

make_pair(c_735006,quote_member,&c_735007);

make_pair(c_735017,quote_a,NULL);

make_pair(c_735016,quote_x,&c_735017);

make_pair(c_735015,quote_member,&c_735016);

make_pair(c_735021,quote_b,NULL);

make_pair(c_735020,quote_x,&c_735021);

make_pair(c_735019,quote_member,&c_735020);

make_pair(c_735018,&c_735019,NULL);

make_pair(c_735014,&c_735015,&c_735018);

make_pair(c_735013,quote_or,&c_735014);

make_pair(c_735012,&c_735013,NULL);

make_pair(c_735005,&c_735006,&c_735012);

make_pair(c_735004,quote_equal,&c_735005);

make_pair(c_735029,quote_y,NULL);

make_pair(c_735028,quote_reverse,&c_735029);

make_pair(c_735027,&c_735028,NULL);

make_pair(c_735026,quote_x,&c_735027);

make_pair(c_735025,quote_member,&c_735026);

make_pair(c_735033,quote_y,NULL);

make_pair(c_735032,quote_x,&c_735033);

make_pair(c_735031,quote_member,&c_735032);

make_pair(c_735030,&c_735031,NULL);

make_pair(c_735024,&c_735025,&c_735030);

make_pair(c_735023,quote_equal,&c_735024);

make_pair(c_735040,quote_x,NULL);

make_pair(c_735039,quote_reverse,&c_735040);

make_pair(c_735038,&c_735039,NULL);

make_pair(c_735037,quote_length,&c_735038);

make_pair(c_735043,quote_x,NULL);

make_pair(c_735042,quote_length,&c_735043);

make_pair(c_735041,&c_735042,NULL);

make_pair(c_735036,&c_735037,&c_735041);

make_pair(c_735035,quote_equal,&c_735036);

make_pair(c_735052,quote_c,NULL);

make_pair(c_735051,quote_b,&c_735052);

make_pair(c_735050,quote_intersect,&c_735051);

make_pair(c_735049,&c_735050,NULL);

make_pair(c_735048,quote_a,&c_735049);

make_pair(c_735047,quote_member,&c_735048);

make_pair(c_735058,quote_b,NULL);

make_pair(c_735057,quote_a,&c_735058);

make_pair(c_735056,quote_member,&c_735057);

make_pair(c_735062,quote_c,NULL);

make_pair(c_735061,quote_a,&c_735062);

make_pair(c_735060,quote_member,&c_735061);

make_pair(c_735059,&c_735060,NULL);

make_pair(c_735055,&c_735056,&c_735059);

make_pair(c_735054,quote_and,&c_735055);

make_pair(c_735053,&c_735054,NULL);

make_pair(c_735046,&c_735047,&c_735053);

make_pair(c_735045,quote_equal,&c_735046);

make_pair(c_735068,quote_zero,NULL);

make_pair(c_735069,quote_i,NULL);

make_pair(c_735067,&c_735068,&c_735069);

make_pair(c_735066,quote_nth,&c_735067);

make_pair(c_735071,quote_zero,NULL);

make_pair(c_735070,&c_735071,NULL);

make_pair(c_735065,&c_735066,&c_735070);

make_pair(c_735064,quote_equal,&c_735065);

make_pair(c_735080,quote_k,NULL);

make_pair(c_735079,quote_j,&c_735080);

make_pair(c_735078,quote_plus,&c_735079);

make_pair(c_735077,&c_735078,NULL);

make_pair(c_735076,quote_i,&c_735077);

make_pair(c_735075,quote_exp,&c_735076);

make_pair(c_735086,quote_j,NULL);

make_pair(c_735085,quote_i,&c_735086);

make_pair(c_735084,quote_exp,&c_735085);

make_pair(c_735090,quote_k,NULL);

make_pair(c_735089,quote_i,&c_735090);

make_pair(c_735088,quote_exp,&c_735089);

make_pair(c_735087,&c_735088,NULL);

make_pair(c_735083,&c_735084,&c_735087);

make_pair(c_735082,quote_times,&c_735083);

make_pair(c_735081,&c_735082,NULL);

make_pair(c_735074,&c_735075,&c_735081);

make_pair(c_735073,quote_equal,&c_735074);

make_pair(c_735099,quote_k,NULL);

make_pair(c_735098,quote_j,&c_735099);

make_pair(c_735097,quote_times,&c_735098);

make_pair(c_735096,&c_735097,NULL);

make_pair(c_735095,quote_i,&c_735096);

make_pair(c_735094,quote_exp,&c_735095);

make_pair(c_735105,quote_j,NULL);

make_pair(c_735104,quote_i,&c_735105);

make_pair(c_735103,quote_exp,&c_735104);

make_pair(c_735106,quote_k,NULL);

make_pair(c_735102,&c_735103,&c_735106);

make_pair(c_735101,quote_exp,&c_735102);

make_pair(c_735100,&c_735101,NULL);

make_pair(c_735093,&c_735094,&c_735100);

make_pair(c_735092,quote_equal,&c_735093);

make_pair(c_735112,quote_y,NULL);

make_pair(c_735111,quote_x,&c_735112);

make_pair(c_735110,quote_reverse_91loop,&c_735111);

make_pair(c_735117,quote_x,NULL);

make_pair(c_735116,quote_reverse,&c_735117);

make_pair(c_735118,quote_y,NULL);

make_pair(c_735115,&c_735116,&c_735118);

make_pair(c_735114,quote_append,&c_735115);

make_pair(c_735113,&c_735114,NULL);

make_pair(c_735109,&c_735110,&c_735113);

make_pair(c_735108,quote_equal,&c_735109);

make_pair(c_735125,quote_nil,NULL);

make_pair(c_735124,&c_735125,NULL);

make_pair(c_735123,quote_x,&c_735124);

make_pair(c_735122,quote_reverse_91loop,&c_735123);

make_pair(c_735128,quote_x,NULL);

make_pair(c_735127,quote_reverse,&c_735128);

make_pair(c_735126,&c_735127,NULL);

make_pair(c_735121,&c_735122,&c_735126);

make_pair(c_735120,quote_equal,&c_735121);

make_pair(c_735137,quote_y,NULL);

make_pair(c_735136,quote_x,&c_735137);

make_pair(c_735135,quote_sort_91lp,&c_735136);

make_pair(c_735134,&c_735135,NULL);

make_pair(c_735133,quote_z,&c_735134);

make_pair(c_735132,quote_count_91list,&c_735133);

make_pair(c_735143,quote_x,NULL);

make_pair(c_735142,quote_z,&c_735143);

make_pair(c_735141,quote_count_91list,&c_735142);

make_pair(c_735147,quote_y,NULL);

make_pair(c_735146,quote_z,&c_735147);

make_pair(c_735145,quote_count_91list,&c_735146);

make_pair(c_735144,&c_735145,NULL);

make_pair(c_735140,&c_735141,&c_735144);

make_pair(c_735139,quote_plus,&c_735140);

make_pair(c_735138,&c_735139,NULL);

make_pair(c_735131,&c_735132,&c_735138);

make_pair(c_735130,quote_equal,&c_735131);

make_pair(c_735155,quote_b,NULL);

make_pair(c_735154,quote_a,&c_735155);

make_pair(c_735153,quote_append,&c_735154);

make_pair(c_735159,quote_c,NULL);

make_pair(c_735158,quote_a,&c_735159);

make_pair(c_735157,quote_append,&c_735158);

make_pair(c_735156,&c_735157,NULL);

make_pair(c_735152,&c_735153,&c_735156);

make_pair(c_735151,quote_equal,&c_735152);

make_pair(c_735163,quote_c,NULL);

make_pair(c_735162,quote_b,&c_735163);

make_pair(c_735161,quote_equal,&c_735162);

make_pair(c_735160,&c_735161,NULL);

make_pair(c_735150,&c_735151,&c_735160);

make_pair(c_735149,quote_equal,&c_735150);

make_pair(c_735171,quote_y,NULL);

make_pair(c_735170,quote_x,&c_735171);

make_pair(c_735169,quote_remainder,&c_735170);

make_pair(c_735178,quote_y,NULL);

make_pair(c_735177,quote_x,&c_735178);

make_pair(c_735176,quote_quotient,&c_735177);

make_pair(c_735175,&c_735176,NULL);

make_pair(c_735174,quote_y,&c_735175);

make_pair(c_735173,quote_times,&c_735174);

make_pair(c_735172,&c_735173,NULL);

make_pair(c_735168,&c_735169,&c_735172);

make_pair(c_735167,quote_plus,&c_735168);

make_pair(c_735181,quote_x,NULL);

make_pair(c_735180,quote_fix,&c_735181);

make_pair(c_735179,&c_735180,NULL);

make_pair(c_735166,&c_735167,&c_735179);

make_pair(c_735165,quote_equal,&c_735166);

make_pair(c_735190,quote_base,NULL);

make_pair(c_735189,quote_i,&c_735190);

make_pair(c_735188,quote_l,&c_735189);

make_pair(c_735187,quote_big_91plus1,&c_735188);

make_pair(c_735191,quote_base,NULL);

make_pair(c_735186,&c_735187,&c_735191);

make_pair(c_735185,quote_power_91eval,&c_735186);

make_pair(c_735197,quote_base,NULL);

make_pair(c_735196,quote_l,&c_735197);

make_pair(c_735195,quote_power_91eval,&c_735196);

make_pair(c_735198,quote_i,NULL);

make_pair(c_735194,&c_735195,&c_735198);

make_pair(c_735193,quote_plus,&c_735194);

make_pair(c_735192,&c_735193,NULL);

make_pair(c_735184,&c_735185,&c_735192);

make_pair(c_735183,quote_equal,&c_735184);

make_pair(c_735208,quote_base,NULL);

make_pair(c_735207,quote_i,&c_735208);

make_pair(c_735206,quote_y,&c_735207);

make_pair(c_735205,quote_x,&c_735206);

make_pair(c_735204,quote_big_91plus,&c_735205);

make_pair(c_735209,quote_base,NULL);

make_pair(c_735203,&c_735204,&c_735209);

make_pair(c_735202,quote_power_91eval,&c_735203);

make_pair(c_735218,quote_base,NULL);

make_pair(c_735217,quote_x,&c_735218);

make_pair(c_735216,quote_power_91eval,&c_735217);

make_pair(c_735222,quote_base,NULL);

make_pair(c_735221,quote_y,&c_735222);

make_pair(c_735220,quote_power_91eval,&c_735221);

make_pair(c_735219,&c_735220,NULL);

make_pair(c_735215,&c_735216,&c_735219);

make_pair(c_735214,quote_plus,&c_735215);

make_pair(c_735213,&c_735214,NULL);

make_pair(c_735212,quote_i,&c_735213);

make_pair(c_735211,quote_plus,&c_735212);

make_pair(c_735210,&c_735211,NULL);

make_pair(c_735201,&c_735202,&c_735210);

make_pair(c_735200,quote_equal,&c_735201);

make_pair(c_735228,obj_int2obj(1),NULL);

make_pair(c_735227,quote_y,&c_735228);

make_pair(c_735226,quote_remainder,&c_735227);

make_pair(c_735230,quote_zero,NULL);

make_pair(c_735229,&c_735230,NULL);

make_pair(c_735225,&c_735226,&c_735229);

make_pair(c_735224,quote_equal,&c_735225);

make_pair(c_735238,quote_y,NULL);

make_pair(c_735237,quote_x,&c_735238);

make_pair(c_735236,quote_remainder,&c_735237);

make_pair(c_735239,quote_y,NULL);

make_pair(c_735235,&c_735236,&c_735239);

make_pair(c_735234,quote_lessp,&c_735235);

make_pair(c_735244,quote_y,NULL);

make_pair(c_735243,quote_zerop,&c_735244);

make_pair(c_735242,&c_735243,NULL);

make_pair(c_735241,quote_not,&c_735242);

make_pair(c_735240,&c_735241,NULL);

make_pair(c_735233,&c_735234,&c_735240);

make_pair(c_735232,quote_equal,&c_735233);

make_pair(c_735250,quote_x,NULL);

make_pair(c_735249,quote_x,&c_735250);

make_pair(c_735248,quote_remainder,&c_735249);

make_pair(c_735252,quote_zero,NULL);

make_pair(c_735251,&c_735252,NULL);

make_pair(c_735247,&c_735248,&c_735251);

make_pair(c_735246,quote_equal,&c_735247);

make_pair(c_735260,quote_j,NULL);

make_pair(c_735259,quote_i,&c_735260);

make_pair(c_735258,quote_quotient,&c_735259);

make_pair(c_735261,quote_i,NULL);

make_pair(c_735257,&c_735258,&c_735261);

make_pair(c_735256,quote_lessp,&c_735257);

make_pair(c_735268,quote_i,NULL);

make_pair(c_735267,quote_zerop,&c_735268);

make_pair(c_735266,&c_735267,NULL);

make_pair(c_735265,quote_not,&c_735266);

make_pair(c_735273,quote_j,NULL);

make_pair(c_735272,quote_zerop,&c_735273);

make_pair(c_735279,obj_int2obj(1),NULL);

make_pair(c_735278,quote_j,&c_735279);

make_pair(c_735277,quote_equal,&c_735278);

make_pair(c_735276,&c_735277,NULL);

make_pair(c_735275,quote_not,&c_735276);

make_pair(c_735274,&c_735275,NULL);

make_pair(c_735271,&c_735272,&c_735274);

make_pair(c_735270,quote_or,&c_735271);

make_pair(c_735269,&c_735270,NULL);

make_pair(c_735264,&c_735265,&c_735269);

make_pair(c_735263,quote_and,&c_735264);

make_pair(c_735262,&c_735263,NULL);

make_pair(c_735255,&c_735256,&c_735262);

make_pair(c_735254,quote_equal,&c_735255);

make_pair(c_735287,quote_y,NULL);

make_pair(c_735286,quote_x,&c_735287);

make_pair(c_735285,quote_remainder,&c_735286);

make_pair(c_735288,quote_x,NULL);

make_pair(c_735284,&c_735285,&c_735288);

make_pair(c_735283,quote_lessp,&c_735284);

make_pair(c_735295,quote_y,NULL);

make_pair(c_735294,quote_zerop,&c_735295);

make_pair(c_735293,&c_735294,NULL);

make_pair(c_735292,quote_not,&c_735293);

make_pair(c_735300,quote_x,NULL);

make_pair(c_735299,quote_zerop,&c_735300);

make_pair(c_735298,&c_735299,NULL);

make_pair(c_735297,quote_not,&c_735298);

make_pair(c_735306,quote_y,NULL);

make_pair(c_735305,quote_x,&c_735306);

make_pair(c_735304,quote_lessp,&c_735305);

make_pair(c_735303,&c_735304,NULL);

make_pair(c_735302,quote_not,&c_735303);

make_pair(c_735301,&c_735302,NULL);

make_pair(c_735296,&c_735297,&c_735301);

make_pair(c_735291,&c_735292,&c_735296);

make_pair(c_735290,quote_and,&c_735291);

make_pair(c_735289,&c_735290,NULL);

make_pair(c_735282,&c_735283,&c_735289);

make_pair(c_735281,quote_equal,&c_735282);

make_pair(c_735314,quote_base,NULL);

make_pair(c_735313,quote_i,&c_735314);

make_pair(c_735312,quote_power_91rep,&c_735313);

make_pair(c_735315,quote_base,NULL);

make_pair(c_735311,&c_735312,&c_735315);

make_pair(c_735310,quote_power_91eval,&c_735311);

make_pair(c_735318,quote_i,NULL);

make_pair(c_735317,quote_fix,&c_735318);

make_pair(c_735316,&c_735317,NULL);

make_pair(c_735309,&c_735310,&c_735316);

make_pair(c_735308,quote_equal,&c_735309);

make_pair(c_735328,quote_base,NULL);

make_pair(c_735327,quote_i,&c_735328);

make_pair(c_735326,quote_power_91rep,&c_735327);

make_pair(c_735332,quote_base,NULL);

make_pair(c_735331,quote_j,&c_735332);

make_pair(c_735330,quote_power_91rep,&c_735331);

make_pair(c_735334,quote_zero,NULL);

make_pair(c_735335,quote_base,NULL);

make_pair(c_735333,&c_735334,&c_735335);

make_pair(c_735329,&c_735330,&c_735333);

make_pair(c_735325,&c_735326,&c_735329);

make_pair(c_735324,quote_big_91plus,&c_735325);

make_pair(c_735336,quote_base,NULL);

make_pair(c_735323,&c_735324,&c_735336);

make_pair(c_735322,quote_power_91eval,&c_735323);

make_pair(c_735340,quote_j,NULL);

make_pair(c_735339,quote_i,&c_735340);

make_pair(c_735338,quote_plus,&c_735339);

make_pair(c_735337,&c_735338,NULL);

make_pair(c_735321,&c_735322,&c_735337);

make_pair(c_735320,quote_equal,&c_735321);

make_pair(c_735346,quote_y,NULL);

make_pair(c_735345,quote_x,&c_735346);

make_pair(c_735344,quote_gcd,&c_735345);

make_pair(c_735350,quote_x,NULL);

make_pair(c_735349,quote_y,&c_735350);

make_pair(c_735348,quote_gcd,&c_735349);

make_pair(c_735347,&c_735348,NULL);

make_pair(c_735343,&c_735344,&c_735347);

make_pair(c_735342,quote_equal,&c_735343);

make_pair(c_735358,quote_b,NULL);

make_pair(c_735357,quote_a,&c_735358);

make_pair(c_735356,quote_append,&c_735357);

make_pair(c_735359,quote_i,NULL);

make_pair(c_735355,&c_735356,&c_735359);

make_pair(c_735354,quote_nth,&c_735355);

make_pair(c_735365,quote_i,NULL);

make_pair(c_735364,quote_a,&c_735365);

make_pair(c_735363,quote_nth,&c_735364);

make_pair(c_735374,quote_a,NULL);

make_pair(c_735373,quote_length,&c_735374);

make_pair(c_735372,&c_735373,NULL);

make_pair(c_735371,quote_i,&c_735372);

make_pair(c_735370,quote_difference,&c_735371);

make_pair(c_735369,&c_735370,NULL);

make_pair(c_735368,quote_b,&c_735369);

make_pair(c_735367,quote_nth,&c_735368);

make_pair(c_735366,&c_735367,NULL);

make_pair(c_735362,&c_735363,&c_735366);

make_pair(c_735361,quote_append,&c_735362);

make_pair(c_735360,&c_735361,NULL);

make_pair(c_735353,&c_735354,&c_735360);

make_pair(c_735352,quote_equal,&c_735353);

make_pair(c_735382,quote_y,NULL);

make_pair(c_735381,quote_x,&c_735382);

make_pair(c_735380,quote_plus,&c_735381);

make_pair(c_735383,quote_x,NULL);

make_pair(c_735379,&c_735380,&c_735383);

make_pair(c_735378,quote_difference,&c_735379);

make_pair(c_735386,quote_y,NULL);

make_pair(c_735385,quote_fix,&c_735386);

make_pair(c_735384,&c_735385,NULL);

make_pair(c_735377,&c_735378,&c_735384);

make_pair(c_735376,quote_equal,&c_735377);

make_pair(c_735394,quote_x,NULL);

make_pair(c_735393,quote_y,&c_735394);

make_pair(c_735392,quote_plus,&c_735393);

make_pair(c_735395,quote_x,NULL);

make_pair(c_735391,&c_735392,&c_735395);

make_pair(c_735390,quote_difference,&c_735391);

make_pair(c_735398,quote_y,NULL);

make_pair(c_735397,quote_fix,&c_735398);

make_pair(c_735396,&c_735397,NULL);

make_pair(c_735389,&c_735390,&c_735396);

make_pair(c_735388,quote_equal,&c_735389);

make_pair(c_735406,quote_y,NULL);

make_pair(c_735405,quote_x,&c_735406);

make_pair(c_735404,quote_plus,&c_735405);

make_pair(c_735410,quote_z,NULL);

make_pair(c_735409,quote_x,&c_735410);

make_pair(c_735408,quote_plus,&c_735409);

make_pair(c_735407,&c_735408,NULL);

make_pair(c_735403,&c_735404,&c_735407);

make_pair(c_735402,quote_difference,&c_735403);

make_pair(c_735414,quote_z,NULL);

make_pair(c_735413,quote_y,&c_735414);

make_pair(c_735412,quote_difference,&c_735413);

make_pair(c_735411,&c_735412,NULL);

make_pair(c_735401,&c_735402,&c_735411);

make_pair(c_735400,quote_equal,&c_735401);

make_pair(c_735423,quote_w,NULL);

make_pair(c_735422,quote_c,&c_735423);

make_pair(c_735421,quote_difference,&c_735422);

make_pair(c_735420,&c_735421,NULL);

make_pair(c_735419,quote_x,&c_735420);

make_pair(c_735418,quote_times,&c_735419);

make_pair(c_735429,quote_x,NULL);

make_pair(c_735428,quote_c,&c_735429);

make_pair(c_735427,quote_times,&c_735428);

make_pair(c_735433,quote_x,NULL);

make_pair(c_735432,quote_w,&c_735433);

make_pair(c_735431,quote_times,&c_735432);

make_pair(c_735430,&c_735431,NULL);

make_pair(c_735426,&c_735427,&c_735430);

make_pair(c_735425,quote_difference,&c_735426);

make_pair(c_735424,&c_735425,NULL);

make_pair(c_735417,&c_735418,&c_735424);

make_pair(c_735416,quote_equal,&c_735417);

make_pair(c_735441,quote_z,NULL);

make_pair(c_735440,quote_x,&c_735441);

make_pair(c_735439,quote_times,&c_735440);

make_pair(c_735442,quote_z,NULL);

make_pair(c_735438,&c_735439,&c_735442);

make_pair(c_735437,quote_remainder,&c_735438);

make_pair(c_735444,quote_zero,NULL);

make_pair(c_735443,&c_735444,NULL);

make_pair(c_735436,&c_735437,&c_735443);

make_pair(c_735435,quote_equal,&c_735436);

make_pair(c_735455,quote_c,NULL);

make_pair(c_735454,quote_a,&c_735455);

make_pair(c_735453,quote_plus,&c_735454);

make_pair(c_735452,&c_735453,NULL);

make_pair(c_735451,quote_b,&c_735452);

make_pair(c_735450,quote_plus,&c_735451);

make_pair(c_735456,quote_a,NULL);

make_pair(c_735449,&c_735450,&c_735456);

make_pair(c_735448,quote_difference,&c_735449);

make_pair(c_735460,quote_c,NULL);

make_pair(c_735459,quote_b,&c_735460);

make_pair(c_735458,quote_plus,&c_735459);

make_pair(c_735457,&c_735458,NULL);

make_pair(c_735447,&c_735448,&c_735457);

make_pair(c_735446,quote_equal,&c_735447);

make_pair(c_735470,quote_z,NULL);

make_pair(c_735469,quote_y,&c_735470);

make_pair(c_735468,quote_plus,&c_735469);

make_pair(c_735467,&c_735468,NULL);

make_pair(c_735466,quote_add1,&c_735467);

make_pair(c_735471,quote_z,NULL);

make_pair(c_735465,&c_735466,&c_735471);

make_pair(c_735464,quote_difference,&c_735465);

make_pair(c_735474,quote_y,NULL);

make_pair(c_735473,quote_add1,&c_735474);

make_pair(c_735472,&c_735473,NULL);

make_pair(c_735463,&c_735464,&c_735472);

make_pair(c_735462,quote_equal,&c_735463);

make_pair(c_735482,quote_y,NULL);

make_pair(c_735481,quote_x,&c_735482);

make_pair(c_735480,quote_plus,&c_735481);

make_pair(c_735486,quote_z,NULL);

make_pair(c_735485,quote_x,&c_735486);

make_pair(c_735484,quote_plus,&c_735485);

make_pair(c_735483,&c_735484,NULL);

make_pair(c_735479,&c_735480,&c_735483);

make_pair(c_735478,quote_lessp,&c_735479);

make_pair(c_735490,quote_z,NULL);

make_pair(c_735489,quote_y,&c_735490);

make_pair(c_735488,quote_lessp,&c_735489);

make_pair(c_735487,&c_735488,NULL);

make_pair(c_735477,&c_735478,&c_735487);

make_pair(c_735476,quote_equal,&c_735477);

make_pair(c_735498,quote_z,NULL);

make_pair(c_735497,quote_x,&c_735498);

make_pair(c_735496,quote_times,&c_735497);

make_pair(c_735502,quote_z,NULL);

make_pair(c_735501,quote_y,&c_735502);

make_pair(c_735500,quote_times,&c_735501);

make_pair(c_735499,&c_735500,NULL);

make_pair(c_735495,&c_735496,&c_735499);

make_pair(c_735494,quote_lessp,&c_735495);

make_pair(c_735509,quote_z,NULL);

make_pair(c_735508,quote_zerop,&c_735509);

make_pair(c_735507,&c_735508,NULL);

make_pair(c_735506,quote_not,&c_735507);

make_pair(c_735513,quote_y,NULL);

make_pair(c_735512,quote_x,&c_735513);

make_pair(c_735511,quote_lessp,&c_735512);

make_pair(c_735510,&c_735511,NULL);

make_pair(c_735505,&c_735506,&c_735510);

make_pair(c_735504,quote_and,&c_735505);

make_pair(c_735503,&c_735504,NULL);

make_pair(c_735493,&c_735494,&c_735503);

make_pair(c_735492,quote_equal,&c_735493);

make_pair(c_735522,quote_y,NULL);

make_pair(c_735521,quote_x,&c_735522);

make_pair(c_735520,quote_plus,&c_735521);

make_pair(c_735519,&c_735520,NULL);

make_pair(c_735518,quote_y,&c_735519);

make_pair(c_735517,quote_lessp,&c_735518);

make_pair(c_735527,quote_x,NULL);

make_pair(c_735526,quote_zerop,&c_735527);

make_pair(c_735525,&c_735526,NULL);

make_pair(c_735524,quote_not,&c_735525);

make_pair(c_735523,&c_735524,NULL);

make_pair(c_735516,&c_735517,&c_735523);

make_pair(c_735515,quote_equal,&c_735516);

make_pair(c_735535,quote_z,NULL);

make_pair(c_735534,quote_x,&c_735535);

make_pair(c_735533,quote_times,&c_735534);

make_pair(c_735539,quote_z,NULL);

make_pair(c_735538,quote_y,&c_735539);

make_pair(c_735537,quote_times,&c_735538);

make_pair(c_735536,&c_735537,NULL);

make_pair(c_735532,&c_735533,&c_735536);

make_pair(c_735531,quote_gcd,&c_735532);

make_pair(c_735546,quote_y,NULL);

make_pair(c_735545,quote_x,&c_735546);

make_pair(c_735544,quote_gcd,&c_735545);

make_pair(c_735543,&c_735544,NULL);

make_pair(c_735542,quote_z,&c_735543);

make_pair(c_735541,quote_times,&c_735542);

make_pair(c_735540,&c_735541,NULL);

make_pair(c_735530,&c_735531,&c_735540);

make_pair(c_735529,quote_equal,&c_735530);

make_pair(c_735553,quote_x,NULL);

make_pair(c_735552,quote_normalize,&c_735553);

make_pair(c_735554,quote_a,NULL);

make_pair(c_735551,&c_735552,&c_735554);

make_pair(c_735550,quote_value,&c_735551);

make_pair(c_735558,quote_a,NULL);

make_pair(c_735557,quote_x,&c_735558);

make_pair(c_735556,quote_value,&c_735557);

make_pair(c_735555,&c_735556,NULL);

make_pair(c_735549,&c_735550,&c_735555);

make_pair(c_735548,quote_equal,&c_735549);

make_pair(c_735565,quote_x,NULL);

make_pair(c_735564,quote_flatten,&c_735565);

make_pair(c_735570,quote_nil,NULL);

make_pair(c_735569,&c_735570,NULL);

make_pair(c_735568,quote_y,&c_735569);

make_pair(c_735567,quote_cons,&c_735568);

make_pair(c_735566,&c_735567,NULL);

make_pair(c_735563,&c_735564,&c_735566);

make_pair(c_735562,quote_equal,&c_735563);

make_pair(c_735575,quote_x,NULL);

make_pair(c_735574,quote_nlistp,&c_735575);

make_pair(c_735579,quote_y,NULL);

make_pair(c_735578,quote_x,&c_735579);

make_pair(c_735577,quote_equal,&c_735578);

make_pair(c_735576,&c_735577,NULL);

make_pair(c_735573,&c_735574,&c_735576);

make_pair(c_735572,quote_and,&c_735573);

make_pair(c_735571,&c_735572,NULL);

make_pair(c_735561,&c_735562,&c_735571);

make_pair(c_735560,quote_equal,&c_735561);

make_pair(c_735586,quote_x,NULL);

make_pair(c_735585,quote_gopher,&c_735586);

make_pair(c_735584,&c_735585,NULL);

make_pair(c_735583,quote_listp,&c_735584);

make_pair(c_735589,quote_x,NULL);

make_pair(c_735588,quote_listp,&c_735589);

make_pair(c_735587,&c_735588,NULL);

make_pair(c_735582,&c_735583,&c_735587);

make_pair(c_735581,quote_equal,&c_735582);

make_pair(c_735595,quote_y,NULL);

make_pair(c_735594,quote_x,&c_735595);

make_pair(c_735593,quote_samefringe,&c_735594);

make_pair(c_735600,quote_x,NULL);

make_pair(c_735599,quote_flatten,&c_735600);

make_pair(c_735603,quote_y,NULL);

make_pair(c_735602,quote_flatten,&c_735603);

make_pair(c_735601,&c_735602,NULL);

make_pair(c_735598,&c_735599,&c_735601);

make_pair(c_735597,quote_equal,&c_735598);

make_pair(c_735596,&c_735597,NULL);

make_pair(c_735592,&c_735593,&c_735596);

make_pair(c_735591,quote_equal,&c_735592);

make_pair(c_735611,quote_y,NULL);

make_pair(c_735610,quote_x,&c_735611);

make_pair(c_735609,quote_greatest_91factor,&c_735610);

make_pair(c_735613,quote_zero,NULL);

make_pair(c_735612,&c_735613,NULL);

make_pair(c_735608,&c_735609,&c_735612);

make_pair(c_735607,quote_equal,&c_735608);

make_pair(c_735620,quote_y,NULL);

make_pair(c_735619,quote_zerop,&c_735620);

make_pair(c_735624,obj_int2obj(1),NULL);

make_pair(c_735623,quote_y,&c_735624);

make_pair(c_735622,quote_equal,&c_735623);

make_pair(c_735621,&c_735622,NULL);

make_pair(c_735618,&c_735619,&c_735621);

make_pair(c_735617,quote_or,&c_735618);

make_pair(c_735629,quote_zero,NULL);

make_pair(c_735628,&c_735629,NULL);

make_pair(c_735627,quote_x,&c_735628);

make_pair(c_735626,quote_equal,&c_735627);

make_pair(c_735625,&c_735626,NULL);

make_pair(c_735616,&c_735617,&c_735625);

make_pair(c_735615,quote_and,&c_735616);

make_pair(c_735614,&c_735615,NULL);

make_pair(c_735606,&c_735607,&c_735614);

make_pair(c_735605,quote_equal,&c_735606);

make_pair(c_735637,quote_y,NULL);

make_pair(c_735636,quote_x,&c_735637);

make_pair(c_735635,quote_greatest_91factor,&c_735636);

make_pair(c_735638,obj_int2obj(1),NULL);

make_pair(c_735634,&c_735635,&c_735638);

make_pair(c_735633,quote_equal,&c_735634);

make_pair(c_735642,obj_int2obj(1),NULL);

make_pair(c_735641,quote_x,&c_735642);

make_pair(c_735640,quote_equal,&c_735641);

make_pair(c_735639,&c_735640,NULL);

make_pair(c_735632,&c_735633,&c_735639);

make_pair(c_735631,quote_equal,&c_735632);

make_pair(c_735650,quote_y,NULL);

make_pair(c_735649,quote_x,&c_735650);

make_pair(c_735648,quote_greatest_91factor,&c_735649);

make_pair(c_735647,&c_735648,NULL);

make_pair(c_735646,quote_numberp,&c_735647);

make_pair(c_735659,quote_y,NULL);

make_pair(c_735658,quote_zerop,&c_735659);

make_pair(c_735663,obj_int2obj(1),NULL);

make_pair(c_735662,quote_y,&c_735663);

make_pair(c_735661,quote_equal,&c_735662);

make_pair(c_735660,&c_735661,NULL);

make_pair(c_735657,&c_735658,&c_735660);

make_pair(c_735656,quote_or,&c_735657);

make_pair(c_735668,quote_x,NULL);

make_pair(c_735667,quote_numberp,&c_735668);

make_pair(c_735666,&c_735667,NULL);

make_pair(c_735665,quote_not,&c_735666);

make_pair(c_735664,&c_735665,NULL);

make_pair(c_735655,&c_735656,&c_735664);

make_pair(c_735654,quote_and,&c_735655);

make_pair(c_735653,&c_735654,NULL);

make_pair(c_735652,quote_not,&c_735653);

make_pair(c_735651,&c_735652,NULL);

make_pair(c_735645,&c_735646,&c_735651);

make_pair(c_735644,quote_equal,&c_735645);

make_pair(c_735676,quote_y,NULL);

make_pair(c_735675,quote_x,&c_735676);

make_pair(c_735674,quote_append,&c_735675);

make_pair(c_735673,&c_735674,NULL);

make_pair(c_735672,quote_times_91list,&c_735673);

make_pair(c_735681,quote_x,NULL);

make_pair(c_735680,quote_times_91list,&c_735681);

make_pair(c_735684,quote_y,NULL);

make_pair(c_735683,quote_times_91list,&c_735684);

make_pair(c_735682,&c_735683,NULL);

make_pair(c_735679,&c_735680,&c_735682);

make_pair(c_735678,quote_times,&c_735679);

make_pair(c_735677,&c_735678,NULL);

make_pair(c_735671,&c_735672,&c_735677);

make_pair(c_735670,quote_equal,&c_735671);

make_pair(c_735692,quote_y,NULL);

make_pair(c_735691,quote_x,&c_735692);

make_pair(c_735690,quote_append,&c_735691);

make_pair(c_735689,&c_735690,NULL);

make_pair(c_735688,quote_prime_91list,&c_735689);

make_pair(c_735697,quote_x,NULL);

make_pair(c_735696,quote_prime_91list,&c_735697);

make_pair(c_735700,quote_y,NULL);

make_pair(c_735699,quote_prime_91list,&c_735700);

make_pair(c_735698,&c_735699,NULL);

make_pair(c_735695,&c_735696,&c_735698);

make_pair(c_735694,quote_and,&c_735695);

make_pair(c_735693,&c_735694,NULL);

make_pair(c_735687,&c_735688,&c_735693);

make_pair(c_735686,quote_equal,&c_735687);

make_pair(c_735709,quote_z,NULL);

make_pair(c_735708,quote_w,&c_735709);

make_pair(c_735707,quote_times,&c_735708);

make_pair(c_735706,&c_735707,NULL);

make_pair(c_735705,quote_z,&c_735706);

make_pair(c_735704,quote_equal,&c_735705);

make_pair(c_735714,quote_z,NULL);

make_pair(c_735713,quote_numberp,&c_735714);

make_pair(c_735721,quote_zero,NULL);

make_pair(c_735720,&c_735721,NULL);

make_pair(c_735719,quote_z,&c_735720);

make_pair(c_735718,quote_equal,&c_735719);

make_pair(c_735725,obj_int2obj(1),NULL);

make_pair(c_735724,quote_w,&c_735725);

make_pair(c_735723,quote_equal,&c_735724);

make_pair(c_735722,&c_735723,NULL);

make_pair(c_735717,&c_735718,&c_735722);

make_pair(c_735716,quote_or,&c_735717);

make_pair(c_735715,&c_735716,NULL);

make_pair(c_735712,&c_735713,&c_735715);

make_pair(c_735711,quote_and,&c_735712);

make_pair(c_735710,&c_735711,NULL);

make_pair(c_735703,&c_735704,&c_735710);

make_pair(c_735702,quote_equal,&c_735703);

make_pair(c_735731,quote_y,NULL);

make_pair(c_735730,quote_x,&c_735731);

make_pair(c_735729,quote_greatereqp,&c_735730);

make_pair(c_735737,quote_y,NULL);

make_pair(c_735736,quote_x,&c_735737);

make_pair(c_735735,quote_lessp,&c_735736);

make_pair(c_735734,&c_735735,NULL);

make_pair(c_735733,quote_not,&c_735734);

make_pair(c_735732,&c_735733,NULL);

make_pair(c_735728,&c_735729,&c_735732);

make_pair(c_735727,quote_equal,&c_735728);

make_pair(c_735746,quote_y,NULL);

make_pair(c_735745,quote_x,&c_735746);

make_pair(c_735744,quote_times,&c_735745);

make_pair(c_735743,&c_735744,NULL);

make_pair(c_735742,quote_x,&c_735743);

make_pair(c_735741,quote_equal,&c_735742);

make_pair(c_735753,quote_zero,NULL);

make_pair(c_735752,&c_735753,NULL);

make_pair(c_735751,quote_x,&c_735752);

make_pair(c_735750,quote_equal,&c_735751);

make_pair(c_735758,quote_x,NULL);

make_pair(c_735757,quote_numberp,&c_735758);

make_pair(c_735762,obj_int2obj(1),NULL);

make_pair(c_735761,quote_y,&c_735762);

make_pair(c_735760,quote_equal,&c_735761);

make_pair(c_735759,&c_735760,NULL);

make_pair(c_735756,&c_735757,&c_735759);

make_pair(c_735755,quote_and,&c_735756);

make_pair(c_735754,&c_735755,NULL);

make_pair(c_735749,&c_735750,&c_735754);

make_pair(c_735748,quote_or,&c_735749);

make_pair(c_735747,&c_735748,NULL);

make_pair(c_735740,&c_735741,&c_735747);

make_pair(c_735739,quote_equal,&c_735740);

make_pair(c_735770,quote_x,NULL);

make_pair(c_735769,quote_y,&c_735770);

make_pair(c_735768,quote_times,&c_735769);

make_pair(c_735771,quote_y,NULL);

make_pair(c_735767,&c_735768,&c_735771);

make_pair(c_735766,quote_remainder,&c_735767);

make_pair(c_735773,quote_zero,NULL);

make_pair(c_735772,&c_735773,NULL);

make_pair(c_735765,&c_735766,&c_735772);

make_pair(c_735764,quote_equal,&c_735765);

make_pair(c_735781,quote_b,NULL);

make_pair(c_735780,quote_a,&c_735781);

make_pair(c_735779,quote_times,&c_735780);

make_pair(c_735782,obj_int2obj(1),NULL);

make_pair(c_735778,&c_735779,&c_735782);

make_pair(c_735777,quote_equal,&c_735778);

make_pair(c_735791,quote_zero,NULL);

make_pair(c_735790,&c_735791,NULL);

make_pair(c_735789,quote_a,&c_735790);

make_pair(c_735788,quote_equal,&c_735789);

make_pair(c_735787,&c_735788,NULL);

make_pair(c_735786,quote_not,&c_735787);

make_pair(c_735798,quote_zero,NULL);

make_pair(c_735797,&c_735798,NULL);

make_pair(c_735796,quote_b,&c_735797);

make_pair(c_735795,quote_equal,&c_735796);

make_pair(c_735794,&c_735795,NULL);

make_pair(c_735793,quote_not,&c_735794);

make_pair(c_735801,quote_a,NULL);

make_pair(c_735800,quote_numberp,&c_735801);

make_pair(c_735804,quote_b,NULL);

make_pair(c_735803,quote_numberp,&c_735804);

make_pair(c_735809,quote_a,NULL);

make_pair(c_735808,quote__1911_91,&c_735809);

make_pair(c_735811,quote_zero,NULL);

make_pair(c_735810,&c_735811,NULL);

make_pair(c_735807,&c_735808,&c_735810);

make_pair(c_735806,quote_equal,&c_735807);

make_pair(c_735816,quote_b,NULL);

make_pair(c_735815,quote__1911_91,&c_735816);

make_pair(c_735818,quote_zero,NULL);

make_pair(c_735817,&c_735818,NULL);

make_pair(c_735814,&c_735815,&c_735817);

make_pair(c_735813,quote_equal,&c_735814);

make_pair(c_735812,&c_735813,NULL);

make_pair(c_735805,&c_735806,&c_735812);

make_pair(c_735802,&c_735803,&c_735805);

make_pair(c_735799,&c_735800,&c_735802);

make_pair(c_735792,&c_735793,&c_735799);

make_pair(c_735785,&c_735786,&c_735792);

make_pair(c_735784,quote_and,&c_735785);

make_pair(c_735783,&c_735784,NULL);

make_pair(c_735776,&c_735777,&c_735783);

make_pair(c_735775,quote_equal,&c_735776);

make_pair(c_735828,quote_l,NULL);

make_pair(c_735827,quote_x,&c_735828);

make_pair(c_735826,quote_delete,&c_735827);

make_pair(c_735825,&c_735826,NULL);

make_pair(c_735824,quote_length,&c_735825);

make_pair(c_735831,quote_l,NULL);

make_pair(c_735830,quote_length,&c_735831);

make_pair(c_735829,&c_735830,NULL);

make_pair(c_735823,&c_735824,&c_735829);

make_pair(c_735822,quote_lessp,&c_735823);

make_pair(c_735835,quote_l,NULL);

make_pair(c_735834,quote_x,&c_735835);

make_pair(c_735833,quote_member,&c_735834);

make_pair(c_735832,&c_735833,NULL);

make_pair(c_735821,&c_735822,&c_735832);

make_pair(c_735820,quote_equal,&c_735821);

make_pair(c_735843,quote_l,NULL);

make_pair(c_735842,quote_x,&c_735843);

make_pair(c_735841,quote_delete,&c_735842);

make_pair(c_735840,&c_735841,NULL);

make_pair(c_735839,quote_sort2,&c_735840);

make_pair(c_735849,quote_l,NULL);

make_pair(c_735848,quote_sort2,&c_735849);

make_pair(c_735847,&c_735848,NULL);

make_pair(c_735846,quote_x,&c_735847);

make_pair(c_735845,quote_delete,&c_735846);

make_pair(c_735844,&c_735845,NULL);

make_pair(c_735838,&c_735839,&c_735844);

make_pair(c_735837,quote_equal,&c_735838);

make_pair(c_735854,quote_x,NULL);

make_pair(c_735853,quote_dsort,&c_735854);

make_pair(c_735857,quote_x,NULL);

make_pair(c_735856,quote_sort2,&c_735857);

make_pair(c_735855,&c_735856,NULL);

make_pair(c_735852,&c_735853,&c_735855);

make_pair(c_735851,quote_equal,&c_735852);

make_pair(c_735880,quote_x7,NULL);

make_pair(c_735879,quote_x6,&c_735880);

make_pair(c_735878,quote_cons,&c_735879);

make_pair(c_735877,&c_735878,NULL);

make_pair(c_735876,quote_x5,&c_735877);

make_pair(c_735875,quote_cons,&c_735876);

make_pair(c_735874,&c_735875,NULL);

make_pair(c_735873,quote_x4,&c_735874);

make_pair(c_735872,quote_cons,&c_735873);

make_pair(c_735871,&c_735872,NULL);

make_pair(c_735870,quote_x3,&c_735871);

make_pair(c_735869,quote_cons,&c_735870);

make_pair(c_735868,&c_735869,NULL);

make_pair(c_735867,quote_x2,&c_735868);

make_pair(c_735866,quote_cons,&c_735867);

make_pair(c_735865,&c_735866,NULL);

make_pair(c_735864,quote_x1,&c_735865);

make_pair(c_735863,quote_cons,&c_735864);

make_pair(c_735862,&c_735863,NULL);

make_pair(c_735861,quote_length,&c_735862);

make_pair(c_735886,quote_x7,NULL);

make_pair(c_735885,quote_length,&c_735886);

make_pair(c_735884,&c_735885,NULL);

make_pair(c_735883,obj_int2obj(6),&c_735884);

make_pair(c_735882,quote_plus,&c_735883);

make_pair(c_735881,&c_735882,NULL);

make_pair(c_735860,&c_735861,&c_735881);

make_pair(c_735859,quote_equal,&c_735860);

make_pair(c_735895,quote_x,NULL);

make_pair(c_735894,quote_add1,&c_735895);

make_pair(c_735893,&c_735894,NULL);

make_pair(c_735892,quote_add1,&c_735893);

make_pair(c_735896,obj_int2obj(2),NULL);

make_pair(c_735891,&c_735892,&c_735896);

make_pair(c_735890,quote_difference,&c_735891);

make_pair(c_735899,quote_x,NULL);

make_pair(c_735898,quote_fix,&c_735899);

make_pair(c_735897,&c_735898,NULL);

make_pair(c_735889,&c_735890,&c_735897);

make_pair(c_735888,quote_equal,&c_735889);

make_pair(c_735910,quote_y,NULL);

make_pair(c_735909,quote_x,&c_735910);

make_pair(c_735908,quote_plus,&c_735909);

make_pair(c_735907,&c_735908,NULL);

make_pair(c_735906,quote_x,&c_735907);

make_pair(c_735905,quote_plus,&c_735906);

make_pair(c_735911,obj_int2obj(2),NULL);

make_pair(c_735904,&c_735905,&c_735911);

make_pair(c_735903,quote_quotient,&c_735904);

make_pair(c_735918,obj_int2obj(2),NULL);

make_pair(c_735917,quote_y,&c_735918);

make_pair(c_735916,quote_quotient,&c_735917);

make_pair(c_735915,&c_735916,NULL);

make_pair(c_735914,quote_x,&c_735915);

make_pair(c_735913,quote_plus,&c_735914);

make_pair(c_735912,&c_735913,NULL);

make_pair(c_735902,&c_735903,&c_735912);

make_pair(c_735901,quote_equal,&c_735902);

make_pair(c_735924,quote_zero,NULL);

make_pair(c_735925,quote_i,NULL);

make_pair(c_735923,&c_735924,&c_735925);

make_pair(c_735922,quote_sigma,&c_735923);

make_pair(c_735933,quote_i,NULL);

make_pair(c_735932,quote_add1,&c_735933);

make_pair(c_735931,&c_735932,NULL);

make_pair(c_735930,quote_i,&c_735931);

make_pair(c_735929,quote_times,&c_735930);

make_pair(c_735934,obj_int2obj(2),NULL);

make_pair(c_735928,&c_735929,&c_735934);

make_pair(c_735927,quote_quotient,&c_735928);

make_pair(c_735926,&c_735927,NULL);

make_pair(c_735921,&c_735922,&c_735926);

make_pair(c_735920,quote_equal,&c_735921);

make_pair(c_735942,quote_y,NULL);

make_pair(c_735941,quote_add1,&c_735942);

make_pair(c_735940,&c_735941,NULL);

make_pair(c_735939,quote_x,&c_735940);

make_pair(c_735938,quote_plus,&c_735939);

make_pair(c_735947,quote_y,NULL);

make_pair(c_735946,quote_numberp,&c_735947);

make_pair(c_735953,quote_y,NULL);

make_pair(c_735952,quote_x,&c_735953);

make_pair(c_735951,quote_plus,&c_735952);

make_pair(c_735950,&c_735951,NULL);

make_pair(c_735949,quote_add1,&c_735950);

make_pair(c_735956,quote_x,NULL);

make_pair(c_735955,quote_add1,&c_735956);

make_pair(c_735954,&c_735955,NULL);

make_pair(c_735948,&c_735949,&c_735954);

make_pair(c_735945,&c_735946,&c_735948);

make_pair(c_735944,quote__if,&c_735945);

make_pair(c_735943,&c_735944,NULL);

make_pair(c_735937,&c_735938,&c_735943);

make_pair(c_735936,quote_equal,&c_735937);

make_pair(c_735964,quote_y,NULL);

make_pair(c_735963,quote_x,&c_735964);

make_pair(c_735962,quote_difference,&c_735963);

make_pair(c_735968,quote_y,NULL);

make_pair(c_735967,quote_z,&c_735968);

make_pair(c_735966,quote_difference,&c_735967);

make_pair(c_735965,&c_735966,NULL);

make_pair(c_735961,&c_735962,&c_735965);

make_pair(c_735960,quote_equal,&c_735961);

make_pair(c_735974,quote_y,NULL);

make_pair(c_735973,quote_x,&c_735974);

make_pair(c_735972,quote_lessp,&c_735973);

make_pair(c_735980,quote_z,NULL);

make_pair(c_735979,quote_y,&c_735980);

make_pair(c_735978,quote_lessp,&c_735979);

make_pair(c_735977,&c_735978,NULL);

make_pair(c_735976,quote_not,&c_735977);

make_pair(c_735986,quote_y,NULL);

make_pair(c_735985,quote_z,&c_735986);

make_pair(c_735984,quote_lessp,&c_735985);

make_pair(c_735992,quote_x,NULL);

make_pair(c_735991,quote_y,&c_735992);

make_pair(c_735990,quote_lessp,&c_735991);

make_pair(c_735989,&c_735990,NULL);

make_pair(c_735988,quote_not,&c_735989);

make_pair(c_735997,quote_x,NULL);

make_pair(c_735996,quote_fix,&c_735997);

make_pair(c_736000,quote_z,NULL);

make_pair(c_735999,quote_fix,&c_736000);

make_pair(c_735998,&c_735999,NULL);

make_pair(c_735995,&c_735996,&c_735998);

make_pair(c_735994,quote_equal,&c_735995);

make_pair(c_735993,&c_735994,NULL);

make_pair(c_735987,&c_735988,&c_735993);

make_pair(c_735983,&c_735984,&c_735987);

make_pair(c_735982,quote__if,&c_735983);

make_pair(c_735981,&c_735982,NULL);

make_pair(c_735975,&c_735976,&c_735981);

make_pair(c_735971,&c_735972,&c_735975);

make_pair(c_735970,quote__if,&c_735971);

make_pair(c_735969,&c_735970,NULL);

make_pair(c_735959,&c_735960,&c_735969);

make_pair(c_735958,quote_equal,&c_735959);

make_pair(c_736010,quote_y,NULL);

make_pair(c_736009,quote_x,&c_736010);

make_pair(c_736008,quote_delete,&c_736009);

make_pair(c_736007,&c_736008,NULL);

make_pair(c_736006,quote_plus_91tree,&c_736007);

make_pair(c_736011,quote_a,NULL);

make_pair(c_736005,&c_736006,&c_736011);

make_pair(c_736004,quote_meaning,&c_736005);

make_pair(c_736017,quote_y,NULL);

make_pair(c_736016,quote_x,&c_736017);

make_pair(c_736015,quote_member,&c_736016);

make_pair(c_736024,quote_y,NULL);

make_pair(c_736023,quote_plus_91tree,&c_736024);

make_pair(c_736025,quote_a,NULL);

make_pair(c_736022,&c_736023,&c_736025);

make_pair(c_736021,quote_meaning,&c_736022);

make_pair(c_736029,quote_a,NULL);

make_pair(c_736028,quote_x,&c_736029);

make_pair(c_736027,quote_meaning,&c_736028);

make_pair(c_736026,&c_736027,NULL);

make_pair(c_736020,&c_736021,&c_736026);

make_pair(c_736019,quote_difference,&c_736020);

make_pair(c_736034,quote_y,NULL);

make_pair(c_736033,quote_plus_91tree,&c_736034);

make_pair(c_736035,quote_a,NULL);

make_pair(c_736032,&c_736033,&c_736035);

make_pair(c_736031,quote_meaning,&c_736032);

make_pair(c_736030,&c_736031,NULL);

make_pair(c_736018,&c_736019,&c_736030);

make_pair(c_736014,&c_736015,&c_736018);

make_pair(c_736013,quote__if,&c_736014);

make_pair(c_736012,&c_736013,NULL);

make_pair(c_736003,&c_736004,&c_736012);

make_pair(c_736002,quote_equal,&c_736003);

make_pair(c_736043,quote_y,NULL);

make_pair(c_736042,quote_add1,&c_736043);

make_pair(c_736041,&c_736042,NULL);

make_pair(c_736040,quote_x,&c_736041);

make_pair(c_736039,quote_times,&c_736040);

make_pair(c_736048,quote_y,NULL);

make_pair(c_736047,quote_numberp,&c_736048);

make_pair(c_736055,quote_y,NULL);

make_pair(c_736054,quote_x,&c_736055);

make_pair(c_736053,quote_times,&c_736054);

make_pair(c_736052,&c_736053,NULL);

make_pair(c_736051,quote_x,&c_736052);

make_pair(c_736050,quote_plus,&c_736051);

make_pair(c_736058,quote_x,NULL);

make_pair(c_736057,quote_fix,&c_736058);

make_pair(c_736056,&c_736057,NULL);

make_pair(c_736049,&c_736050,&c_736056);

make_pair(c_736046,&c_736047,&c_736049);

make_pair(c_736045,quote__if,&c_736046);

make_pair(c_736044,&c_736045,NULL);

make_pair(c_736038,&c_736039,&c_736044);

make_pair(c_736037,quote_equal,&c_736038);

make_pair(c_736064,quote_nil,NULL);

make_pair(c_736065,quote_i,NULL);

make_pair(c_736063,&c_736064,&c_736065);

make_pair(c_736062,quote_nth,&c_736063);

make_pair(c_736070,quote_i,NULL);

make_pair(c_736069,quote_zerop,&c_736070);

make_pair(c_736072,quote_nil,NULL);

make_pair(c_736074,quote_zero,NULL);

make_pair(c_736073,&c_736074,NULL);

make_pair(c_736071,&c_736072,&c_736073);

make_pair(c_736068,&c_736069,&c_736071);

make_pair(c_736067,quote__if,&c_736068);

make_pair(c_736066,&c_736067,NULL);

make_pair(c_736061,&c_736062,&c_736066);

make_pair(c_736060,quote_equal,&c_736061);

make_pair(c_736082,quote_b,NULL);

make_pair(c_736081,quote_a,&c_736082);

make_pair(c_736080,quote_append,&c_736081);

make_pair(c_736079,&c_736080,NULL);

make_pair(c_736078,quote_last,&c_736079);

make_pair(c_736087,quote_b,NULL);

make_pair(c_736086,quote_listp,&c_736087);

make_pair(c_736090,quote_b,NULL);

make_pair(c_736089,quote_last,&c_736090);

make_pair(c_736095,quote_a,NULL);

make_pair(c_736094,quote_listp,&c_736095);

make_pair(c_736102,quote_a,NULL);

make_pair(c_736101,quote_last,&c_736102);

make_pair(c_736100,&c_736101,NULL);

make_pair(c_736099,quote_car,&c_736100);

make_pair(c_736103,quote_b,NULL);

make_pair(c_736098,&c_736099,&c_736103);

make_pair(c_736097,quote_cons,&c_736098);

make_pair(c_736104,quote_b,NULL);

make_pair(c_736096,&c_736097,&c_736104);

make_pair(c_736093,&c_736094,&c_736096);

make_pair(c_736092,quote__if,&c_736093);

make_pair(c_736091,&c_736092,NULL);

make_pair(c_736088,&c_736089,&c_736091);

make_pair(c_736085,&c_736086,&c_736088);

make_pair(c_736084,quote__if,&c_736085);

make_pair(c_736083,&c_736084,NULL);

make_pair(c_736077,&c_736078,&c_736083);

make_pair(c_736076,quote_equal,&c_736077);

make_pair(c_736112,quote_y,NULL);

make_pair(c_736111,quote_x,&c_736112);

make_pair(c_736110,quote_lessp,&c_736111);

make_pair(c_736113,quote_z,NULL);

make_pair(c_736109,&c_736110,&c_736113);

make_pair(c_736108,quote_equal,&c_736109);

make_pair(c_736119,quote_y,NULL);

make_pair(c_736118,quote_x,&c_736119);

make_pair(c_736117,quote_lessp,&c_736118);

make_pair(c_736123,quote_t,NULL);

make_pair(c_736124,quote_z,NULL);

make_pair(c_736122,&c_736123,&c_736124);

make_pair(c_736121,quote_equal,&c_736122);

make_pair(c_736128,quote_f,NULL);

make_pair(c_736129,quote_z,NULL);

make_pair(c_736127,&c_736128,&c_736129);

make_pair(c_736126,quote_equal,&c_736127);

make_pair(c_736125,&c_736126,NULL);

make_pair(c_736120,&c_736121,&c_736125);

make_pair(c_736116,&c_736117,&c_736120);

make_pair(c_736115,quote__if,&c_736116);

make_pair(c_736114,&c_736115,NULL);

make_pair(c_736107,&c_736108,&c_736114);

make_pair(c_736106,quote_equal,&c_736107);

make_pair(c_736138,quote_b,NULL);

make_pair(c_736137,quote_a,&c_736138);

make_pair(c_736136,quote_append,&c_736137);

make_pair(c_736135,&c_736136,NULL);

make_pair(c_736134,quote_x,&c_736135);

make_pair(c_736133,quote_assignment,&c_736134);

make_pair(c_736144,quote_a,NULL);

make_pair(c_736143,quote_x,&c_736144);

make_pair(c_736142,quote_assignedp,&c_736143);

make_pair(c_736148,quote_a,NULL);

make_pair(c_736147,quote_x,&c_736148);

make_pair(c_736146,quote_assignment,&c_736147);

make_pair(c_736152,quote_b,NULL);

make_pair(c_736151,quote_x,&c_736152);

make_pair(c_736150,quote_assignment,&c_736151);

make_pair(c_736149,&c_736150,NULL);

make_pair(c_736145,&c_736146,&c_736149);

make_pair(c_736141,&c_736142,&c_736145);

make_pair(c_736140,quote__if,&c_736141);

make_pair(c_736139,&c_736140,NULL);

make_pair(c_736132,&c_736133,&c_736139);

make_pair(c_736131,quote_equal,&c_736132);

make_pair(c_736159,quote_x,NULL);

make_pair(c_736158,quote_gopher,&c_736159);

make_pair(c_736157,&c_736158,NULL);

make_pair(c_736156,quote_car,&c_736157);

make_pair(c_736164,quote_x,NULL);

make_pair(c_736163,quote_listp,&c_736164);

make_pair(c_736169,quote_x,NULL);

make_pair(c_736168,quote_flatten,&c_736169);

make_pair(c_736167,&c_736168,NULL);

make_pair(c_736166,quote_car,&c_736167);

make_pair(c_736171,quote_zero,NULL);

make_pair(c_736170,&c_736171,NULL);

make_pair(c_736165,&c_736166,&c_736170);

make_pair(c_736162,&c_736163,&c_736165);

make_pair(c_736161,quote__if,&c_736162);

make_pair(c_736160,&c_736161,NULL);

make_pair(c_736155,&c_736156,&c_736160);

make_pair(c_736154,quote_equal,&c_736155);

make_pair(c_736180,quote_x,NULL);

make_pair(c_736179,quote_gopher,&c_736180);

make_pair(c_736178,&c_736179,NULL);

make_pair(c_736177,quote_cdr,&c_736178);

make_pair(c_736176,&c_736177,NULL);

make_pair(c_736175,quote_flatten,&c_736176);

make_pair(c_736185,quote_x,NULL);

make_pair(c_736184,quote_listp,&c_736185);

make_pair(c_736190,quote_x,NULL);

make_pair(c_736189,quote_flatten,&c_736190);

make_pair(c_736188,&c_736189,NULL);

make_pair(c_736187,quote_cdr,&c_736188);

make_pair(c_736194,quote_zero,NULL);

make_pair(c_736196,quote_nil,NULL);

make_pair(c_736195,&c_736196,NULL);

make_pair(c_736193,&c_736194,&c_736195);

make_pair(c_736192,quote_cons,&c_736193);

make_pair(c_736191,&c_736192,NULL);

make_pair(c_736186,&c_736187,&c_736191);

make_pair(c_736183,&c_736184,&c_736186);

make_pair(c_736182,quote__if,&c_736183);

make_pair(c_736181,&c_736182,NULL);

make_pair(c_736174,&c_736175,&c_736181);

make_pair(c_736173,quote_equal,&c_736174);

make_pair(c_736204,quote_x,NULL);

make_pair(c_736203,quote_y,&c_736204);

make_pair(c_736202,quote_times,&c_736203);

make_pair(c_736205,quote_y,NULL);

make_pair(c_736201,&c_736202,&c_736205);

make_pair(c_736200,quote_quotient,&c_736201);

make_pair(c_736210,quote_y,NULL);

make_pair(c_736209,quote_zerop,&c_736210);

make_pair(c_736212,quote_zero,NULL);

make_pair(c_736215,quote_x,NULL);

make_pair(c_736214,quote_fix,&c_736215);

make_pair(c_736213,&c_736214,NULL);

make_pair(c_736211,&c_736212,&c_736213);

make_pair(c_736208,&c_736209,&c_736211);

make_pair(c_736207,quote__if,&c_736208);

make_pair(c_736206,&c_736207,NULL);

make_pair(c_736199,&c_736200,&c_736206);

make_pair(c_736198,quote_equal,&c_736199);

make_pair(c_736225,quote_mem,NULL);

make_pair(c_736224,quote_val,&c_736225);

make_pair(c_736223,quote_i,&c_736224);

make_pair(c_736222,quote_set,&c_736223);

make_pair(c_736221,&c_736222,NULL);

make_pair(c_736220,quote_j,&c_736221);

make_pair(c_736219,quote_get,&c_736220);

make_pair(c_736231,quote_i,NULL);

make_pair(c_736230,quote_j,&c_736231);

make_pair(c_736229,quote_eqp,&c_736230);

make_pair(c_736236,quote_mem,NULL);

make_pair(c_736235,quote_j,&c_736236);

make_pair(c_736234,quote_get,&c_736235);

make_pair(c_736233,&c_736234,NULL);

make_pair(c_736232,quote_val,&c_736233);

make_pair(c_736228,&c_736229,&c_736232);

make_pair(c_736227,quote__if,&c_736228);

make_pair(c_736226,&c_736227,NULL);

make_pair(c_736218,&c_736219,&c_736226);

make_pair(c_736217,quote_equal,&c_736218);

make_pair(c_736216,&c_736217,NULL);

make_pair(c_736197,&c_736198,&c_736216);

make_pair(c_736172,&c_736173,&c_736197);

make_pair(c_736153,&c_736154,&c_736172);

make_pair(c_736130,&c_736131,&c_736153);

make_pair(c_736105,&c_736106,&c_736130);

make_pair(c_736075,&c_736076,&c_736105);

make_pair(c_736059,&c_736060,&c_736075);

make_pair(c_736036,&c_736037,&c_736059);

make_pair(c_736001,&c_736002,&c_736036);

make_pair(c_735957,&c_735958,&c_736001);

make_pair(c_735935,&c_735936,&c_735957);

make_pair(c_735919,&c_735920,&c_735935);

make_pair(c_735900,&c_735901,&c_735919);

make_pair(c_735887,&c_735888,&c_735900);

make_pair(c_735858,&c_735859,&c_735887);

make_pair(c_735850,&c_735851,&c_735858);

make_pair(c_735836,&c_735837,&c_735850);

make_pair(c_735819,&c_735820,&c_735836);

make_pair(c_735774,&c_735775,&c_735819);

make_pair(c_735763,&c_735764,&c_735774);

make_pair(c_735738,&c_735739,&c_735763);

make_pair(c_735726,&c_735727,&c_735738);

make_pair(c_735701,&c_735702,&c_735726);

make_pair(c_735685,&c_735686,&c_735701);

make_pair(c_735669,&c_735670,&c_735685);

make_pair(c_735643,&c_735644,&c_735669);

make_pair(c_735630,&c_735631,&c_735643);

make_pair(c_735604,&c_735605,&c_735630);

make_pair(c_735590,&c_735591,&c_735604);

make_pair(c_735580,&c_735581,&c_735590);

make_pair(c_735559,&c_735560,&c_735580);

make_pair(c_735547,&c_735548,&c_735559);

make_pair(c_735528,&c_735529,&c_735547);

make_pair(c_735514,&c_735515,&c_735528);

make_pair(c_735491,&c_735492,&c_735514);

make_pair(c_735475,&c_735476,&c_735491);

make_pair(c_735461,&c_735462,&c_735475);

make_pair(c_735445,&c_735446,&c_735461);

make_pair(c_735434,&c_735435,&c_735445);

make_pair(c_735415,&c_735416,&c_735434);

make_pair(c_735399,&c_735400,&c_735415);

make_pair(c_735387,&c_735388,&c_735399);

make_pair(c_735375,&c_735376,&c_735387);

make_pair(c_735351,&c_735352,&c_735375);

make_pair(c_735341,&c_735342,&c_735351);

make_pair(c_735319,&c_735320,&c_735341);

make_pair(c_735307,&c_735308,&c_735319);

make_pair(c_735280,&c_735281,&c_735307);

make_pair(c_735253,&c_735254,&c_735280);

make_pair(c_735245,&c_735246,&c_735253);

make_pair(c_735231,&c_735232,&c_735245);

make_pair(c_735223,&c_735224,&c_735231);

make_pair(c_735199,&c_735200,&c_735223);

make_pair(c_735182,&c_735183,&c_735199);

make_pair(c_735164,&c_735165,&c_735182);

make_pair(c_735148,&c_735149,&c_735164);

make_pair(c_735129,&c_735130,&c_735148);

make_pair(c_735119,&c_735120,&c_735129);

make_pair(c_735107,&c_735108,&c_735119);

make_pair(c_735091,&c_735092,&c_735107);

make_pair(c_735072,&c_735073,&c_735091);

make_pair(c_735063,&c_735064,&c_735072);

make_pair(c_735044,&c_735045,&c_735063);

make_pair(c_735034,&c_735035,&c_735044);

make_pair(c_735022,&c_735023,&c_735034);

make_pair(c_735003,&c_735004,&c_735022);

make_pair(c_734991,&c_734992,&c_735003);

make_pair(c_734972,&c_734973,&c_734991);

make_pair(c_734954,&c_734955,&c_734972);

make_pair(c_734938,&c_734939,&c_734954);

make_pair(c_734919,&c_734920,&c_734938);

make_pair(c_734903,&c_734904,&c_734919);

make_pair(c_734887,&c_734888,&c_734903);

make_pair(c_734871,&c_734872,&c_734887);

make_pair(c_734846,&c_734847,&c_734871);

make_pair(c_734822,&c_734823,&c_734846);

make_pair(c_734806,&c_734807,&c_734822);

make_pair(c_734786,&c_734787,&c_734806);

make_pair(c_734778,&c_734779,&c_734786);

make_pair(c_734760,&c_734761,&c_734778);

make_pair(c_734744,&c_734745,&c_734760);

make_pair(c_734727,&c_734728,&c_734744);

make_pair(c_734703,&c_734704,&c_734727);

make_pair(c_734690,&c_734691,&c_734703);

make_pair(c_734672,&c_734673,&c_734690);

make_pair(c_734660,&c_734661,&c_734672);

make_pair(c_734642,&c_734643,&c_734660);

make_pair(c_734624,&c_734625,&c_734642);

make_pair(c_734597,&c_734598,&c_734624);

make_pair(c_734585,&c_734586,&c_734597);

make_pair(c_734573,&c_734574,&c_734585);

make_pair(c_734559,&c_734560,&c_734573);

make_pair(c_734545,&c_734546,&c_734559);

make_pair(c_734533,&c_734534,&c_734545);

make_pair(c_734523,&c_734524,&c_734533);

make_pair(c_734514,&c_734515,&c_734523);

make_pair(c_734502,&c_734503,&c_734514);

make_pair(c_734485,&c_734486,&c_734502);

make_pair(c_734469,&c_734470,&c_734485);

make_pair(c_734452,&c_734453,&c_734469);

make_pair(c_734440,&c_734441,&c_734452);

make_pair(c_734428,&c_734429,&c_734440);

make_pair(c_734418,&c_734419,&c_734428);

make_pair(c_734404,&c_734405,&c_734418);

make_pair(c_734390,&c_734391,&c_734404);
return_closcall2(data,  car(((closureN)self_73808)->elements[0]),  k_73668, &c_734390);; 
}

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


closureN_type c_734363;
c_734363.hdr.mark = gc_color_red;
 c_734363.hdr.grayed = 0;
c_734363.tag = closureN_tag;
 c_734363.fn = (function_type)__lambda_214;
c_734363.num_args = 1;
c_734363.num_elements = 2;
c_734363.elements = (object *)alloca(sizeof(object) * 2);
c_734363.elements[0] = ((closureN)self_73809)->elements[1];
c_734363.elements[1] = ((closureN)self_73809)->elements[2];

return_closcall1(data,(closure)&c_731376,  Cyc_set_cell(data, ((closureN)self_73809)->elements[2], &c_734363));; 
}

static void __lambda_214(void *data, int argc, object self_73810, object k_73662, object lst_73325) {
  if( (boolean_f != Cyc_is_null(lst_73325)) ){ 
  return_closcall1(data,  k_73662,  boolean_t);
} else { 
  
closureN_type c_734371;
c_734371.hdr.mark = gc_color_red;
 c_734371.hdr.grayed = 0;
c_734371.tag = closureN_tag;
 c_734371.fn = (function_type)__lambda_213;
c_734371.num_args = 1;
c_734371.num_elements = 3;
c_734371.elements = (object *)alloca(sizeof(object) * 3);
c_734371.elements[0] = ((closureN)self_73810)->elements[1];
c_734371.elements[1] = k_73662;
c_734371.elements[2] = lst_73325;

return_closcall2(data,  car(((closureN)self_73810)->elements[0]),  &c_734371, Cyc_car(data, lst_73325));}
; 
}

static void __lambda_213(void *data, int argc, object self_73811, object r_73664) {
  return_closcall2(data,  car(((closureN)self_73811)->elements[0]),  ((closureN)self_73811)->elements[1], Cyc_cdr(data, ((closureN)self_73811)->elements[2]));; 
}

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


closureN_type c_734303;
c_734303.hdr.mark = gc_color_red;
 c_734303.hdr.grayed = 0;
c_734303.tag = closureN_tag;
 c_734303.fn = (function_type)__lambda_211;
c_734303.num_args = 1;
c_734303.num_elements = 3;
c_734303.elements = (object *)alloca(sizeof(object) * 3);
c_734303.elements[0] = ((closureN)self_73812)->elements[7];
c_734303.elements[1] = ((closureN)self_73812)->elements[15];
c_734303.elements[2] = ((closureN)self_73812)->elements[34];

return_closcall1(data,(closure)&c_731378,  Cyc_set_cell(data, ((closureN)self_73812)->elements[1], &c_734303));; 
}

static void __lambda_211(void *data, int argc, object self_73813, object k_73644, object term_73324) {
  
closureN_type c_734305;
c_734305.hdr.mark = gc_color_red;
 c_734305.hdr.grayed = 0;
c_734305.tag = closureN_tag;
 c_734305.fn = (function_type)__lambda_206;
c_734305.num_args = 0;
c_734305.num_elements = 1;
c_734305.elements = (object *)alloca(sizeof(object) * 1);
c_734305.elements[0] = term_73324;


closureN_type c_734322;
c_734322.hdr.mark = gc_color_red;
 c_734322.hdr.grayed = 0;
c_734322.tag = closureN_tag;
 c_734322.fn = (function_type)__lambda_210;
c_734322.num_args = 1;
c_734322.num_elements = 5;
c_734322.elements = (object *)alloca(sizeof(object) * 5);
c_734322.elements[0] = ((closureN)self_73813)->elements[0];
c_734322.elements[1] = k_73644;
c_734322.elements[2] = ((closureN)self_73813)->elements[1];
c_734322.elements[3] = term_73324;
c_734322.elements[4] = ((closureN)self_73813)->elements[2];

return_closcall1(data,(closure)&c_734305,  &c_734322);; 
}

static void __lambda_210(void *data, int argc, object self_73814, object r_73645) {
  if( (boolean_f != r_73645) ){ 
  
closureN_type c_734324;
c_734324.hdr.mark = gc_color_red;
 c_734324.hdr.grayed = 0;
c_734324.tag = closureN_tag;
 c_734324.fn = (function_type)__lambda_209;
c_734324.num_args = 1;
c_734324.num_elements = 5;
c_734324.elements = (object *)alloca(sizeof(object) * 5);
c_734324.elements[0] = ((closureN)self_73814)->elements[0];
c_734324.elements[1] = ((closureN)self_73814)->elements[1];
c_734324.elements[2] = ((closureN)self_73814)->elements[2];
c_734324.elements[3] = ((closureN)self_73814)->elements[3];
c_734324.elements[4] = ((closureN)self_73814)->elements[4];

return_closcall1(data,(closure)&c_734324,  Cyc_cadr(data, ((closureN)self_73814)->elements[3]));
} else { 
  
make_string(c_734358, "ADD-LEMMA did not like term:  ");
return_closcall4(data,  __glo_error_scheme_base,  ((closureN)self_73814)->elements[1], boolean_f, &c_734358, ((closureN)self_73814)->elements[3]);}
; 
}

static void __lambda_209(void *data, int argc, object self_73815, object r_73654) {
  
closureN_type c_734329;
c_734329.hdr.mark = gc_color_red;
 c_734329.hdr.grayed = 0;
c_734329.tag = closureN_tag;
 c_734329.fn = (function_type)__lambda_208;
c_734329.num_args = 1;
c_734329.num_elements = 5;
c_734329.elements = (object *)alloca(sizeof(object) * 5);
c_734329.elements[0] = ((closureN)self_73815)->elements[0];
c_734329.elements[1] = ((closureN)self_73815)->elements[1];
c_734329.elements[2] = ((closureN)self_73815)->elements[2];
c_734329.elements[3] = r_73654;
c_734329.elements[4] = ((closureN)self_73815)->elements[3];

return_closcall2(data,  car(((closureN)self_73815)->elements[4]),  &c_734329, ((closureN)self_73815)->elements[3]);; 
}

static void __lambda_208(void *data, int argc, object self_73816, object r_73649) {
  
closureN_type c_734334;
c_734334.hdr.mark = gc_color_red;
 c_734334.hdr.grayed = 0;
c_734334.tag = closureN_tag;
 c_734334.fn = (function_type)__lambda_207;
c_734334.num_args = 1;
c_734334.num_elements = 4;
c_734334.elements = (object *)alloca(sizeof(object) * 4);
c_734334.elements[0] = ((closureN)self_73816)->elements[1];
c_734334.elements[1] = ((closureN)self_73816)->elements[2];
c_734334.elements[2] = r_73649;
c_734334.elements[3] = ((closureN)self_73816)->elements[3];

return_closcall3(data,  car(((closureN)self_73816)->elements[0]),  &c_734334, Cyc_car(data, Cyc_cadr(data, ((closureN)self_73816)->elements[4])), quote_lemmas);; 
}

static void __lambda_207(void *data, int argc, object self_73817, object r_73650) {
  
make_pair(c_734345,((closureN)self_73817)->elements[2], r_73650);
return_closcall4(data,  car(((closureN)self_73817)->elements[1]),  ((closureN)self_73817)->elements[0], Cyc_car(data, ((closureN)self_73817)->elements[3]), quote_lemmas, &c_734345);; 
}

static void __lambda_206(void *data, int argc, object self_73818, object k_73655) {
  if( (boolean_f != Cyc_is_pair(((closureN)self_73818)->elements[0])) ){ 
  if( (boolean_f != Cyc_eq(Cyc_car(data, ((closureN)self_73818)->elements[0]), quote_equal)) ){ 
  return_closcall1(data,  k_73655,  Cyc_is_pair(Cyc_cadr(data, ((closureN)self_73818)->elements[0])));
} else { 
  return_closcall1(data,  k_73655,  boolean_f);}

} else { 
  return_closcall1(data,  k_73655,  boolean_f);}
; 
}

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


closureN_type c_734275;
c_734275.hdr.mark = gc_color_red;
 c_734275.hdr.grayed = 0;
c_734275.tag = closureN_tag;
 c_734275.fn = (function_type)__lambda_204;
c_734275.num_args = 1;
c_734275.num_elements = 2;
c_734275.elements = (object *)alloca(sizeof(object) * 2);
c_734275.elements[0] = ((closureN)self_73819)->elements[21];
c_734275.elements[1] = ((closureN)self_73819)->elements[32];

return_closcall1(data,(closure)&c_731380,  Cyc_set_cell(data, ((closureN)self_73819)->elements[33], &c_734275));; 
}

static void __lambda_204(void *data, int argc, object self_73820, object k_73637, object term_73323) {
  if( (boolean_f != Cyc_is_pair(term_73323)) ){ 
  
closureN_type c_734282;
c_734282.hdr.mark = gc_color_red;
 c_734282.hdr.grayed = 0;
c_734282.tag = closureN_tag;
 c_734282.fn = (function_type)__lambda_203;
c_734282.num_args = 1;
c_734282.num_elements = 3;
c_734282.elements = (object *)alloca(sizeof(object) * 3);
c_734282.elements[0] = k_73637;
c_734282.elements[1] = term_73323;
c_734282.elements[2] = ((closureN)self_73820)->elements[1];

return_closcall2(data,  car(((closureN)self_73820)->elements[0]),  &c_734282, Cyc_car(data, term_73323));
} else { 
  return_closcall1(data,  k_73637,  term_73323);}
; 
}

static void __lambda_203(void *data, int argc, object self_73821, object r_73639) {
  
closureN_type c_734287;
c_734287.hdr.mark = gc_color_red;
 c_734287.hdr.grayed = 0;
c_734287.tag = closureN_tag;
 c_734287.fn = (function_type)__lambda_202;
c_734287.num_args = 1;
c_734287.num_elements = 2;
c_734287.elements = (object *)alloca(sizeof(object) * 2);
c_734287.elements[0] = ((closureN)self_73821)->elements[0];
c_734287.elements[1] = r_73639;

return_closcall2(data,  car(((closureN)self_73821)->elements[2]),  &c_734287, Cyc_cdr(data, ((closureN)self_73821)->elements[1]));; 
}

static void __lambda_202(void *data, int argc, object self_73822, object r_73640) {
  
make_pair(c_734292,((closureN)self_73822)->elements[1], r_73640);
return_closcall1(data,  ((closureN)self_73822)->elements[0],  &c_734292);; 
}

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


closureN_type c_734247;
c_734247.hdr.mark = gc_color_red;
 c_734247.hdr.grayed = 0;
c_734247.tag = closureN_tag;
 c_734247.fn = (function_type)__lambda_200;
c_734247.num_args = 1;
c_734247.num_elements = 2;
c_734247.elements = (object *)alloca(sizeof(object) * 2);
c_734247.elements[0] = ((closureN)self_73823)->elements[32];
c_734247.elements[1] = ((closureN)self_73823)->elements[33];

return_closcall1(data,(closure)&c_731382,  Cyc_set_cell(data, ((closureN)self_73823)->elements[32], &c_734247));; 
}

static void __lambda_200(void *data, int argc, object self_73824, object k_73630, object lst_73322) {
  if( (boolean_f != Cyc_is_null(lst_73322)) ){ 
  return_closcall1(data,  k_73630,  NULL);
} else { 
  
closureN_type c_734255;
c_734255.hdr.mark = gc_color_red;
 c_734255.hdr.grayed = 0;
c_734255.tag = closureN_tag;
 c_734255.fn = (function_type)__lambda_199;
c_734255.num_args = 1;
c_734255.num_elements = 3;
c_734255.elements = (object *)alloca(sizeof(object) * 3);
c_734255.elements[0] = k_73630;
c_734255.elements[1] = lst_73322;
c_734255.elements[2] = ((closureN)self_73824)->elements[0];

return_closcall2(data,  car(((closureN)self_73824)->elements[1]),  &c_734255, Cyc_car(data, lst_73322));}
; 
}

static void __lambda_199(void *data, int argc, object self_73825, object r_73632) {
  
closureN_type c_734260;
c_734260.hdr.mark = gc_color_red;
 c_734260.hdr.grayed = 0;
c_734260.tag = closureN_tag;
 c_734260.fn = (function_type)__lambda_198;
c_734260.num_args = 1;
c_734260.num_elements = 2;
c_734260.elements = (object *)alloca(sizeof(object) * 2);
c_734260.elements[0] = ((closureN)self_73825)->elements[0];
c_734260.elements[1] = r_73632;

return_closcall2(data,  car(((closureN)self_73825)->elements[2]),  &c_734260, Cyc_cdr(data, ((closureN)self_73825)->elements[1]));; 
}

static void __lambda_198(void *data, int argc, object self_73826, object r_73633) {
  
make_pair(c_734265,((closureN)self_73826)->elements[1], r_73633);
return_closcall1(data,  ((closureN)self_73826)->elements[0],  &c_734265);; 
}

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


closureN_type c_734223;
c_734223.hdr.mark = gc_color_red;
 c_734223.hdr.grayed = 0;
c_734223.tag = closureN_tag;
 c_734223.fn = (function_type)__lambda_196;
c_734223.num_args = 1;
c_734223.num_elements = 1;
c_734223.elements = (object *)alloca(sizeof(object) * 1);
c_734223.elements[0] = ((closureN)self_73827)->elements[36];

return_closcall1(data,(closure)&c_731384,  Cyc_set_cell(data, ((closureN)self_73827)->elements[36], &c_734223));; 
}

static void __lambda_196(void *data, int argc, object self_73828, object k_73623, object term_73321) {
  if( (boolean_f != Cyc_is_pair(term_73321)) ){ 
  
closureN_type c_734227;
c_734227.hdr.mark = gc_color_red;
 c_734227.hdr.grayed = 0;
c_734227.tag = closureN_tag;
 c_734227.fn = (function_type)__lambda_195;
c_734227.num_args = 1;
c_734227.num_elements = 2;
c_734227.elements = (object *)alloca(sizeof(object) * 2);
c_734227.elements[0] = k_73623;
c_734227.elements[1] = term_73321;

return_closcall3(data,  __glo_map_scheme_base,  &c_734227, car(((closureN)self_73828)->elements[0]), Cyc_cdr(data, term_73321));
} else { 
  return_closcall1(data,  k_73623,  term_73321);}
; 
}

static void __lambda_195(void *data, int argc, object self_73829, object r_73626) {
  
make_pair(c_734232,Cyc_vector_ref(data, Cyc_car(data, ((closureN)self_73829)->elements[1]), obj_int2obj(0)), r_73626);
return_closcall1(data,  ((closureN)self_73829)->elements[0],  &c_734232);; 
}

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


closureN_type c_734209;
c_734209.hdr.mark = gc_color_red;
 c_734209.hdr.grayed = 0;
c_734209.tag = closureN_tag;
 c_734209.fn = (function_type)__lambda_193;
c_734209.num_args = 3;
c_734209.num_elements = 1;
c_734209.elements = (object *)alloca(sizeof(object) * 1);
c_734209.elements[0] = ((closureN)self_73830)->elements[21];

return_closcall1(data,(closure)&c_731386,  Cyc_set_cell(data, ((closureN)self_73830)->elements[14], &c_734209));; 
}

static void __lambda_193(void *data, int argc, object self_73831, object k_73620, object sym_73320, object property_73319, object value_73318) {
  
closureN_type c_734214;
c_734214.hdr.mark = gc_color_red;
 c_734214.hdr.grayed = 0;
c_734214.tag = closureN_tag;
 c_734214.fn = (function_type)__lambda_192;
c_734214.num_args = 1;
c_734214.num_elements = 2;
c_734214.elements = (object *)alloca(sizeof(object) * 2);
c_734214.elements[0] = k_73620;
c_734214.elements[1] = value_73318;

return_closcall2(data,  car(((closureN)self_73831)->elements[0]),  &c_734214, sym_73320);; 
}

static void __lambda_192(void *data, int argc, object self_73832, object r_73621) {
  return_closcall1(data,  ((closureN)self_73832)->elements[0],  Cyc_vector_set(data, r_73621, obj_int2obj(1), ((closureN)self_73832)->elements[1]));; 
}

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


closureN_type c_734196;
c_734196.hdr.mark = gc_color_red;
 c_734196.hdr.grayed = 0;
c_734196.tag = closureN_tag;
 c_734196.fn = (function_type)__lambda_190;
c_734196.num_args = 2;
c_734196.num_elements = 1;
c_734196.elements = (object *)alloca(sizeof(object) * 1);
c_734196.elements[0] = ((closureN)self_73833)->elements[20];

return_closcall1(data,(closure)&c_731388,  Cyc_set_cell(data, ((closureN)self_73833)->elements[6], &c_734196));; 
}

static void __lambda_190(void *data, int argc, object self_73834, object k_73617, object sym_73317, object property_73316) {
  
closureN_type c_734201;
c_734201.hdr.mark = gc_color_red;
 c_734201.hdr.grayed = 0;
c_734201.tag = closureN_tag;
 c_734201.fn = (function_type)__lambda_189;
c_734201.num_args = 1;
c_734201.num_elements = 1;
c_734201.elements = (object *)alloca(sizeof(object) * 1);
c_734201.elements[0] = k_73617;

return_closcall2(data,  car(((closureN)self_73834)->elements[0]),  &c_734201, sym_73317);; 
}

static void __lambda_189(void *data, int argc, object self_73835, object r_73618) {
  return_closcall1(data,  ((closureN)self_73835)->elements[0],  Cyc_vector_ref(data, r_73618, obj_int2obj(1)));; 
}

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


closureN_type c_734158;
c_734158.hdr.mark = gc_color_red;
 c_734158.hdr.grayed = 0;
c_734158.tag = closureN_tag;
 c_734158.fn = (function_type)__lambda_187;
c_734158.num_args = 1;
c_734158.num_elements = 1;
c_734158.elements = (object *)alloca(sizeof(object) * 1);
c_734158.elements[0] = ((closureN)self_73836)->elements[0];

return_closcall1(data,(closure)&c_731390,  Cyc_set_cell(data, ((closureN)self_73836)->elements[19], &c_734158));; 
}

static void __lambda_187(void *data, int argc, object self_73837, object k_73610, object sym_73313) {
  
closureN_type c_734160;
c_734160.hdr.mark = gc_color_red;
 c_734160.hdr.grayed = 0;
c_734160.tag = closureN_tag;
 c_734160.fn = (function_type)__lambda_186;
c_734160.num_args = 1;
c_734160.num_elements = 3;
c_734160.elements = (object *)alloca(sizeof(object) * 3);
c_734160.elements[0] = ((closureN)self_73837)->elements[0];
c_734160.elements[1] = k_73610;
c_734160.elements[2] = sym_73313;

return_closcall1(data,(closure)&c_734160,  assq(data, sym_73313, car(((closureN)self_73837)->elements[0])));; 
}

static void __lambda_186(void *data, int argc, object self_73838, object x_73314) {
  if( (boolean_f != x_73314) ){ 
  return_closcall1(data,  ((closureN)self_73838)->elements[1],  Cyc_cdr(data, x_73314));
} else { 
  
closureN_type c_734166;
c_734166.hdr.mark = gc_color_red;
 c_734166.hdr.grayed = 0;
c_734166.tag = closureN_tag;
 c_734166.fn = (function_type)__lambda_185;
c_734166.num_args = 1;
c_734166.num_elements = 3;
c_734166.elements = (object *)alloca(sizeof(object) * 3);
c_734166.elements[0] = ((closureN)self_73838)->elements[0];
c_734166.elements[1] = ((closureN)self_73838)->elements[1];
c_734166.elements[2] = ((closureN)self_73838)->elements[2];

return_closcall3(data,  __glo_vector_scheme_base,  &c_734166, ((closureN)self_73838)->elements[2], NULL);}
; 
}

static void __lambda_185(void *data, int argc, object self_73839, object r_73315) {
  
closureN_type c_734168;
c_734168.hdr.mark = gc_color_red;
 c_734168.hdr.grayed = 0;
c_734168.tag = closureN_tag;
 c_734168.fn = (function_type)__lambda_184;
c_734168.num_args = 1;
c_734168.num_elements = 3;
c_734168.elements = (object *)alloca(sizeof(object) * 3);
c_734168.elements[0] = ((closureN)self_73839)->elements[0];
c_734168.elements[1] = ((closureN)self_73839)->elements[1];
c_734168.elements[2] = r_73315;


make_pair(c_734182,((closureN)self_73839)->elements[2], r_73315);

make_pair(c_734179,&c_734182, car(((closureN)self_73839)->elements[0]));
return_closcall1(data,(closure)&c_734168,  &c_734179);; 
}

static void __lambda_184(void *data, int argc, object self_73840, object r_73614) {
  
closureN_type c_734170;
c_734170.hdr.mark = gc_color_red;
 c_734170.hdr.grayed = 0;
c_734170.tag = closureN_tag;
 c_734170.fn = (function_type)__lambda_183;
c_734170.num_args = 1;
c_734170.num_elements = 2;
c_734170.elements = (object *)alloca(sizeof(object) * 2);
c_734170.elements[0] = ((closureN)self_73840)->elements[1];
c_734170.elements[1] = ((closureN)self_73840)->elements[2];

return_closcall1(data,(closure)&c_734170,  Cyc_set_cell(data, ((closureN)self_73840)->elements[0], r_73614));; 
}

static void __lambda_183(void *data, int argc, object self_73841, object r_73613) {
  return_closcall1(data,  ((closureN)self_73841)->elements[0],  ((closureN)self_73841)->elements[1]);; 
}

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

return_closcall1(data,(closure)&c_731392,  Cyc_set_cell(data, ((closureN)self_73842)->elements[0], NULL));; 
}

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


mclosure0(c_734150, (function_type)__lambda_180);c_734150.num_args = 1;
return_closcall1(data,(closure)&c_731394,  Cyc_set_cell(data, ((closureN)self_73843)->elements[9], &c_734150));; 
}

static void __lambda_180(void *data, int argc, object self_73844, object k_73606, object sym_73312) {
  return_closcall3(data,  __glo_vector_scheme_base,  k_73606, sym_73312, NULL);; 
}

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


mclosure0(c_734143, (function_type)__lambda_178);c_734143.num_args = 2;
return_closcall1(data,(closure)&c_731396,  Cyc_set_cell(data, ((closureN)self_73845)->elements[12], &c_734143));; 
}

static void __lambda_178(void *data, int argc, object self_73846, object k_73604, object symbol_91record_73311, object lemmas_73310) {
  return_closcall1(data,  k_73604,  Cyc_vector_set(data, symbol_91record_73311, obj_int2obj(1), lemmas_73310));; 
}

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


mclosure0(c_734136, (function_type)__lambda_176);c_734136.num_args = 1;
return_closcall1(data,(closure)&c_731398,  Cyc_set_cell(data, ((closureN)self_73847)->elements[6], &c_734136));; 
}

static void __lambda_176(void *data, int argc, object self_73848, object k_73602, object symbol_91record_73309) {
  return_closcall1(data,  k_73602,  Cyc_vector_ref(data, symbol_91record_73309, obj_int2obj(1)));; 
}

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


mclosure0(c_734129, (function_type)__lambda_174);c_734129.num_args = 1;
return_closcall1(data,(closure)&c_731400,  Cyc_set_cell(data, ((closureN)self_73849)->elements[6], &c_734129));; 
}

static void __lambda_174(void *data, int argc, object self_73850, object k_73600, object symbol_91record_73308) {
  return_closcall1(data,  k_73600,  Cyc_vector_ref(data, symbol_91record_73308, obj_int2obj(0)));; 
}

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


mclosure0(c_734122, (function_type)__lambda_172);c_734122.num_args = 2;
return_closcall1(data,(closure)&c_731402,  Cyc_set_cell(data, ((closureN)self_73851)->elements[16], &c_734122));; 
}

static void __lambda_172(void *data, int argc, object self_73852, object k_73598, object r1_73307, object r2_73306) {
  return_closcall1(data,  k_73598,  Cyc_eq(r1_73307, r2_73306));; 
}

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


closureN_type c_734056;
c_734056.hdr.mark = gc_color_red;
 c_734056.hdr.grayed = 0;
c_734056.tag = closureN_tag;
 c_734056.fn = (function_type)__lambda_170;
c_734056.num_args = 3;
c_734056.num_elements = 4;
c_734056.elements = (object *)alloca(sizeof(object) * 4);
c_734056.elements[0] = ((closureN)self_73853)->elements[2];
c_734056.elements[1] = ((closureN)self_73853)->elements[17];
c_734056.elements[2] = ((closureN)self_73853)->elements[24];
c_734056.elements[3] = ((closureN)self_73853)->elements[25];

return_closcall1(data,(closure)&c_731404,  Cyc_set_cell(data, ((closureN)self_73853)->elements[21], &c_734056));; 
}

static void __lambda_170(void *data, int argc, object self_73854, object k_73584, object alist_73299, object term_73298, object n_73297) {
  
closureN_type c_734061;
c_734061.hdr.mark = gc_color_red;
 c_734061.hdr.grayed = 0;
c_734061.tag = closureN_tag;
 c_734061.fn = (function_type)__lambda_169;
c_734061.num_args = 1;
c_734061.num_elements = 6;
c_734061.elements = (object *)alloca(sizeof(object) * 6);
c_734061.elements[0] = ((closureN)self_73854)->elements[0];
c_734061.elements[1] = k_73584;
c_734061.elements[2] = n_73297;
c_734061.elements[3] = ((closureN)self_73854)->elements[1];
c_734061.elements[4] = term_73298;
c_734061.elements[5] = ((closureN)self_73854)->elements[3];

return_closcall2(data,  car(((closureN)self_73854)->elements[2]),  &c_734061, alist_73299);; 
}

static void __lambda_169(void *data, int argc, object self_73855, object r_73586) {
  
closureN_type c_734063;
c_734063.hdr.mark = gc_color_red;
 c_734063.hdr.grayed = 0;
c_734063.tag = closureN_tag;
 c_734063.fn = (function_type)__lambda_168;
c_734063.num_args = 2;
c_734063.num_elements = 5;
c_734063.elements = (object *)alloca(sizeof(object) * 5);
c_734063.elements[0] = ((closureN)self_73855)->elements[0];
c_734063.elements[1] = ((closureN)self_73855)->elements[1];
c_734063.elements[2] = r_73586;
c_734063.elements[3] = ((closureN)self_73855)->elements[3];
c_734063.elements[4] = ((closureN)self_73855)->elements[5];

return_closcall2(data,(closure)&c_734063,  ((closureN)self_73855)->elements[4], ((closureN)self_73855)->elements[2]);; 
}

static void __lambda_168(void *data, int argc, object self_73856, object term_73301, object n_73300) {
  
closureN_type c_734065;
c_734065.hdr.mark = gc_color_red;
 c_734065.hdr.grayed = 0;
c_734065.tag = closureN_tag;
 c_734065.fn = (function_type)__lambda_167;
c_734065.num_args = 1;
c_734065.num_elements = 7;
c_734065.elements = (object *)alloca(sizeof(object) * 7);
c_734065.elements[0] = ((closureN)self_73856)->elements[0];
c_734065.elements[1] = ((closureN)self_73856)->elements[1];
c_734065.elements[2] = n_73300;
c_734065.elements[3] = ((closureN)self_73856)->elements[2];
c_734065.elements[4] = ((closureN)self_73856)->elements[3];
c_734065.elements[5] = term_73301;
c_734065.elements[6] = ((closureN)self_73856)->elements[4];

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

static void __lambda_167(void *data, int argc, object self_73857, object lp_7337_73302) {
  
closureN_type c_734067;
c_734067.hdr.mark = gc_color_red;
 c_734067.hdr.grayed = 0;
c_734067.tag = closureN_tag;
 c_734067.fn = (function_type)__lambda_166;
c_734067.num_args = 1;
c_734067.num_elements = 7;
c_734067.elements = (object *)alloca(sizeof(object) * 7);
c_734067.elements[0] = ((closureN)self_73857)->elements[0];
c_734067.elements[1] = ((closureN)self_73857)->elements[1];
c_734067.elements[2] = ((closureN)self_73857)->elements[2];
c_734067.elements[3] = ((closureN)self_73857)->elements[3];
c_734067.elements[4] = ((closureN)self_73857)->elements[4];
c_734067.elements[5] = ((closureN)self_73857)->elements[5];
c_734067.elements[6] = ((closureN)self_73857)->elements[6];


make_cell(c_734116,lp_7337_73302);
return_closcall1(data,(closure)&c_734067,  &c_734116);; 
}

static void __lambda_166(void *data, int argc, object self_73858, object lp_7337_73302) {
  
closureN_type c_734069;
c_734069.hdr.mark = gc_color_red;
 c_734069.hdr.grayed = 0;
c_734069.tag = closureN_tag;
 c_734069.fn = (function_type)__lambda_163;
c_734069.num_args = 1;
c_734069.num_elements = 8;
c_734069.elements = (object *)alloca(sizeof(object) * 8);
c_734069.elements[0] = ((closureN)self_73858)->elements[0];
c_734069.elements[1] = ((closureN)self_73858)->elements[1];
c_734069.elements[2] = lp_7337_73302;
c_734069.elements[3] = ((closureN)self_73858)->elements[2];
c_734069.elements[4] = ((closureN)self_73858)->elements[3];
c_734069.elements[5] = ((closureN)self_73858)->elements[4];
c_734069.elements[6] = ((closureN)self_73858)->elements[5];
c_734069.elements[7] = ((closureN)self_73858)->elements[6];


closureN_type c_734095;
c_734095.hdr.mark = gc_color_red;
 c_734095.hdr.grayed = 0;
c_734095.tag = closureN_tag;
 c_734095.fn = (function_type)__lambda_165;
c_734095.num_args = 2;
c_734095.num_elements = 1;
c_734095.elements = (object *)alloca(sizeof(object) * 1);
c_734095.elements[0] = lp_7337_73302;

return_closcall1(data,(closure)&c_734069,  Cyc_set_cell(data, lp_7337_73302, &c_734095));; 
}

static void __lambda_165(void *data, int argc, object self_73859, object k_73591, object term_73304, object n_73303) {
    double_type local_734098; object c_734099 = ((inline_function_type)
                   ((closure)__glo_zero_127_191_191inline_191_191_scheme_base)->fn)(data,&local_734098,n_73303);
if( (boolean_f != c_734099) ){ 
  return_closcall1(data,  k_73591,  term_73304);
} else { 
  
closureN_type c_734102;
c_734102.hdr.mark = gc_color_red;
 c_734102.hdr.grayed = 0;
c_734102.tag = closureN_tag;
 c_734102.fn = (function_type)__lambda_164;
c_734102.num_args = 1;
c_734102.num_elements = 3;
c_734102.elements = (object *)alloca(sizeof(object) * 3);
c_734102.elements[0] = k_73591;
c_734102.elements[1] = ((closureN)self_73859)->elements[0];
c_734102.elements[2] = n_73303;


make_pair(c_734113,quote_f,NULL);
return_closcall4(data,  __glo__list_scheme_base,  &c_734102, quote_or, term_73304, &c_734113);}
; 
}

static void __lambda_164(void *data, int argc, object self_73860, object r_73593) {
  
double_type local_734110; object c_734111 = Cyc_fast_sub(data,&local_734110,((closureN)self_73860)->elements[2], obj_int2obj(1));
return_closcall3(data,  car(((closureN)self_73860)->elements[1]),  ((closureN)self_73860)->elements[0], r_73593, c_734111);; 
}

static void __lambda_163(void *data, int argc, object self_73861, object r_73589) {
  
closureN_type c_734074;
c_734074.hdr.mark = gc_color_red;
 c_734074.hdr.grayed = 0;
c_734074.tag = closureN_tag;
 c_734074.fn = (function_type)__lambda_162;
c_734074.num_args = 1;
c_734074.num_elements = 5;
c_734074.elements = (object *)alloca(sizeof(object) * 5);
c_734074.elements[0] = ((closureN)self_73861)->elements[0];
c_734074.elements[1] = ((closureN)self_73861)->elements[1];
c_734074.elements[2] = ((closureN)self_73861)->elements[4];
c_734074.elements[3] = ((closureN)self_73861)->elements[5];
c_734074.elements[4] = ((closureN)self_73861)->elements[7];

return_closcall3(data,  car(((closureN)self_73861)->elements[2]),  &c_734074, ((closureN)self_73861)->elements[6], ((closureN)self_73861)->elements[3]);; 
}

static void __lambda_162(void *data, int argc, object self_73862, object r_73588) {
  
closureN_type c_734079;
c_734079.hdr.mark = gc_color_red;
 c_734079.hdr.grayed = 0;
c_734079.tag = closureN_tag;
 c_734079.fn = (function_type)__lambda_161;
c_734079.num_args = 1;
c_734079.num_elements = 4;
c_734079.elements = (object *)alloca(sizeof(object) * 4);
c_734079.elements[0] = ((closureN)self_73862)->elements[0];
c_734079.elements[1] = ((closureN)self_73862)->elements[1];
c_734079.elements[2] = ((closureN)self_73862)->elements[2];
c_734079.elements[3] = ((closureN)self_73862)->elements[3];

return_closcall2(data,  car(((closureN)self_73862)->elements[4]),  &c_734079, r_73588);; 
}

static void __lambda_161(void *data, int argc, object self_73863, object r_73587) {
  
closureN_type c_734084;
c_734084.hdr.mark = gc_color_red;
 c_734084.hdr.grayed = 0;
c_734084.tag = closureN_tag;
 c_734084.fn = (function_type)__lambda_160;
c_734084.num_args = 1;
c_734084.num_elements = 2;
c_734084.elements = (object *)alloca(sizeof(object) * 2);
c_734084.elements[0] = ((closureN)self_73863)->elements[1];
c_734084.elements[1] = ((closureN)self_73863)->elements[3];

return_closcall3(data,  car(((closureN)self_73863)->elements[0]),  &c_734084, ((closureN)self_73863)->elements[2], r_73587);; 
}

static void __lambda_160(void *data, int argc, object self_73864, object term_73305) {
  return_closcall2(data,  car(((closureN)self_73864)->elements[1]),  ((closureN)self_73864)->elements[0], term_73305);; 
}

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


closureN_type c_734022;
c_734022.hdr.mark = gc_color_red;
 c_734022.hdr.grayed = 0;
c_734022.tag = closureN_tag;
 c_734022.fn = (function_type)__lambda_158;
c_734022.num_args = 1;
c_734022.num_elements = 2;
c_734022.elements = (object *)alloca(sizeof(object) * 2);
c_734022.elements[0] = ((closureN)self_73865)->elements[24];
c_734022.elements[1] = ((closureN)self_73865)->elements[25];

return_closcall1(data,(closure)&c_731406,  Cyc_set_cell(data, ((closureN)self_73865)->elements[24], &c_734022));; 
}

static void __lambda_158(void *data, int argc, object self_73866, object k_73575, object alist_73296) {
  if( (boolean_f != Cyc_is_null(alist_73296)) ){ 
  return_closcall1(data,  k_73575,  NULL);
} else { 
  
closureN_type c_734030;
c_734030.hdr.mark = gc_color_red;
 c_734030.hdr.grayed = 0;
c_734030.tag = closureN_tag;
 c_734030.fn = (function_type)__lambda_157;
c_734030.num_args = 1;
c_734030.num_elements = 3;
c_734030.elements = (object *)alloca(sizeof(object) * 3);
c_734030.elements[0] = alist_73296;
c_734030.elements[1] = k_73575;
c_734030.elements[2] = ((closureN)self_73866)->elements[0];

return_closcall2(data,  car(((closureN)self_73866)->elements[1]),  &c_734030, Cyc_cdar(data, alist_73296));}
; 
}

static void __lambda_157(void *data, int argc, object self_73867, object r_73581) {
  
closureN_type c_734035;
c_734035.hdr.mark = gc_color_red;
 c_734035.hdr.grayed = 0;
c_734035.tag = closureN_tag;
 c_734035.fn = (function_type)__lambda_156;
c_734035.num_args = 1;
c_734035.num_elements = 3;
c_734035.elements = (object *)alloca(sizeof(object) * 3);
c_734035.elements[0] = ((closureN)self_73867)->elements[0];
c_734035.elements[1] = ((closureN)self_73867)->elements[1];
c_734035.elements[2] = r_73581;

return_closcall2(data,  car(((closureN)self_73867)->elements[2]),  &c_734035, Cyc_cdr(data, ((closureN)self_73867)->elements[0]));; 
}

static void __lambda_156(void *data, int argc, object self_73868, object r_73578) {
  
make_pair(c_734043,Cyc_caar(data, ((closureN)self_73868)->elements[0]), ((closureN)self_73868)->elements[2]);

make_pair(c_734040,&c_734043, r_73578);
return_closcall1(data,  ((closureN)self_73868)->elements[1],  &c_734040);; 
}

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


closureN_type c_733993;
c_733993.hdr.mark = gc_color_red;
 c_733993.hdr.grayed = 0;
c_733993.tag = closureN_tag;
 c_733993.fn = (function_type)__lambda_154;
c_733993.num_args = 2;
c_733993.num_elements = 1;
c_733993.elements = (object *)alloca(sizeof(object) * 1);
c_733993.elements[0] = ((closureN)self_73869)->elements[3];

return_closcall1(data,(closure)&c_731408,  Cyc_set_cell(data, ((closureN)self_73869)->elements[2], &c_733993));; 
}

static void __lambda_154(void *data, int argc, object self_73870, object k_73568, object alist_73294, object term_73293) {
  if( (boolean_f != Cyc_is_pair(term_73293)) ){ 
  
closureN_type c_734000;
c_734000.hdr.mark = gc_color_red;
 c_734000.hdr.grayed = 0;
c_734000.tag = closureN_tag;
 c_734000.fn = (function_type)__lambda_153;
c_734000.num_args = 1;
c_734000.num_elements = 2;
c_734000.elements = (object *)alloca(sizeof(object) * 2);
c_734000.elements[0] = k_73568;
c_734000.elements[1] = term_73293;

return_closcall3(data,  car(((closureN)self_73870)->elements[0]),  &c_734000, alist_73294, Cyc_cdr(data, term_73293));
} else { 
  if( (boolean_f != assq(data, term_73293, alist_73294)) ){ 
  return_closcall1(data,  k_73568,  Cyc_cdr(data, assq(data, term_73293, alist_73294)));
} else { 
  return_closcall1(data,  k_73568,  term_73293);}
}
; 
}

static void __lambda_153(void *data, int argc, object self_73871, object r_73571) {
  
make_pair(c_734005,Cyc_car(data, ((closureN)self_73871)->elements[1]), r_73571);
return_closcall1(data,  ((closureN)self_73871)->elements[0],  &c_734005);; 
}

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


closureN_type c_733964;
c_733964.hdr.mark = gc_color_red;
 c_733964.hdr.grayed = 0;
c_733964.tag = closureN_tag;
 c_733964.fn = (function_type)__lambda_151;
c_733964.num_args = 2;
c_733964.num_elements = 2;
c_733964.elements = (object *)alloca(sizeof(object) * 2);
c_733964.elements[0] = ((closureN)self_73872)->elements[2];
c_733964.elements[1] = ((closureN)self_73872)->elements[3];

return_closcall1(data,(closure)&c_731410,  Cyc_set_cell(data, ((closureN)self_73872)->elements[3], &c_733964));; 
}

static void __lambda_151(void *data, int argc, object self_73873, object k_73561, object alist_73292, object lst_73291) {
  if( (boolean_f != Cyc_is_null(lst_73291)) ){ 
  return_closcall1(data,  k_73561,  NULL);
} else { 
  
closureN_type c_733972;
c_733972.hdr.mark = gc_color_red;
 c_733972.hdr.grayed = 0;
c_733972.tag = closureN_tag;
 c_733972.fn = (function_type)__lambda_150;
c_733972.num_args = 1;
c_733972.num_elements = 4;
c_733972.elements = (object *)alloca(sizeof(object) * 4);
c_733972.elements[0] = alist_73292;
c_733972.elements[1] = ((closureN)self_73873)->elements[1];
c_733972.elements[2] = k_73561;
c_733972.elements[3] = lst_73291;

return_closcall3(data,  car(((closureN)self_73873)->elements[0]),  &c_733972, alist_73292, Cyc_car(data, lst_73291));}
; 
}

static void __lambda_150(void *data, int argc, object self_73874, object r_73563) {
  
closureN_type c_733977;
c_733977.hdr.mark = gc_color_red;
 c_733977.hdr.grayed = 0;
c_733977.tag = closureN_tag;
 c_733977.fn = (function_type)__lambda_149;
c_733977.num_args = 1;
c_733977.num_elements = 2;
c_733977.elements = (object *)alloca(sizeof(object) * 2);
c_733977.elements[0] = ((closureN)self_73874)->elements[2];
c_733977.elements[1] = r_73563;

return_closcall3(data,  car(((closureN)self_73874)->elements[1]),  &c_733977, ((closureN)self_73874)->elements[0], Cyc_cdr(data, ((closureN)self_73874)->elements[3]));; 
}

static void __lambda_149(void *data, int argc, object self_73875, object r_73564) {
  
make_pair(c_733982,((closureN)self_73875)->elements[1], r_73564);
return_closcall1(data,  ((closureN)self_73875)->elements[0],  &c_733982);; 
}

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


closureN_type c_733950;
c_733950.hdr.mark = gc_color_red;
 c_733950.hdr.grayed = 0;
c_733950.tag = closureN_tag;
 c_733950.fn = (function_type)__lambda_147;
c_733950.num_args = 1;
c_733950.num_elements = 2;
c_733950.elements = (object *)alloca(sizeof(object) * 2);
c_733950.elements[0] = ((closureN)self_73876)->elements[9];
c_733950.elements[1] = ((closureN)self_73876)->elements[15];

return_closcall1(data,(closure)&c_731412,  Cyc_set_cell(data, ((closureN)self_73876)->elements[16], &c_733950));; 
}

static void __lambda_147(void *data, int argc, object self_73877, object k_73556, object x_73290) {
  
closureN_type c_733955;
c_733955.hdr.mark = gc_color_red;
 c_733955.hdr.grayed = 0;
c_733955.tag = closureN_tag;
 c_733955.fn = (function_type)__lambda_146;
c_733955.num_args = 1;
c_733955.num_elements = 2;
c_733955.elements = (object *)alloca(sizeof(object) * 2);
c_733955.elements[0] = k_73556;
c_733955.elements[1] = ((closureN)self_73877)->elements[1];

return_closcall2(data,  car(((closureN)self_73877)->elements[0]),  &c_733955, x_73290);; 
}

static void __lambda_146(void *data, int argc, object self_73878, object r_73557) {
  return_closcall4(data,  car(((closureN)self_73878)->elements[1]),  ((closureN)self_73878)->elements[0], r_73557, NULL, NULL);; 
}

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


closureN_type c_733843;
c_733843.hdr.mark = gc_color_red;
 c_733843.hdr.grayed = 0;
c_733843.tag = closureN_tag;
 c_733843.fn = (function_type)__lambda_144;
c_733843.num_args = 3;
c_733843.num_elements = 4;
c_733843.elements = (object *)alloca(sizeof(object) * 4);
c_733843.elements[0] = ((closureN)self_73879)->elements[4];
c_733843.elements[1] = ((closureN)self_73879)->elements[5];
c_733843.elements[2] = ((closureN)self_73879)->elements[15];
c_733843.elements[3] = ((closureN)self_73879)->elements[24];

return_closcall1(data,(closure)&c_731414,  Cyc_set_cell(data, ((closureN)self_73879)->elements[15], &c_733843));; 
}

static void __lambda_144(void *data, int argc, object self_73880, object k_73536, object x_73289, object true_91lst_73288, object false_91lst_73287) {
  
closureN_type c_733848;
c_733848.hdr.mark = gc_color_red;
 c_733848.hdr.grayed = 0;
c_733848.tag = closureN_tag;
 c_733848.fn = (function_type)__lambda_143;
c_733848.num_args = 1;
c_733848.num_elements = 8;
c_733848.elements = (object *)alloca(sizeof(object) * 8);
c_733848.elements[0] = false_91lst_73287;
c_733848.elements[1] = ((closureN)self_73880)->elements[0];
c_733848.elements[2] = ((closureN)self_73880)->elements[1];
c_733848.elements[3] = k_73536;
c_733848.elements[4] = ((closureN)self_73880)->elements[2];
c_733848.elements[5] = true_91lst_73288;
c_733848.elements[6] = ((closureN)self_73880)->elements[3];
c_733848.elements[7] = x_73289;

return_closcall3(data,  car(((closureN)self_73880)->elements[3]),  &c_733848, x_73289, true_91lst_73288);; 
}

static void __lambda_143(void *data, int argc, object self_73881, object r_73537) {
  if( (boolean_f != r_73537) ){ 
  return_closcall1(data,  ((closureN)self_73881)->elements[3],  boolean_t);
} else { 
  
closureN_type c_733855;
c_733855.hdr.mark = gc_color_red;
 c_733855.hdr.grayed = 0;
c_733855.tag = closureN_tag;
 c_733855.fn = (function_type)__lambda_142;
c_733855.num_args = 1;
c_733855.num_elements = 8;
c_733855.elements = (object *)alloca(sizeof(object) * 8);
c_733855.elements[0] = ((closureN)self_73881)->elements[0];
c_733855.elements[1] = ((closureN)self_73881)->elements[1];
c_733855.elements[2] = ((closureN)self_73881)->elements[2];
c_733855.elements[3] = ((closureN)self_73881)->elements[3];
c_733855.elements[4] = ((closureN)self_73881)->elements[4];
c_733855.elements[5] = ((closureN)self_73881)->elements[5];
c_733855.elements[6] = ((closureN)self_73881)->elements[6];
c_733855.elements[7] = ((closureN)self_73881)->elements[7];

return_closcall3(data,  car(((closureN)self_73881)->elements[1]),  &c_733855, ((closureN)self_73881)->elements[7], ((closureN)self_73881)->elements[0]);}
; 
}

static void __lambda_142(void *data, int argc, object self_73882, object r_73538) {
  if( (boolean_f != r_73538) ){ 
  return_closcall1(data,  ((closureN)self_73882)->elements[3],  boolean_f);
} else { 
  if( (boolean_f != Cyc_is_pair(((closureN)self_73882)->elements[7])) ){ 
  if( (boolean_f != Cyc_eq(Cyc_car(data, ((closureN)self_73882)->elements[7]), car(((closureN)self_73882)->elements[2]))) ){ 
  
closureN_type c_733873;
c_733873.hdr.mark = gc_color_red;
 c_733873.hdr.grayed = 0;
c_733873.tag = closureN_tag;
 c_733873.fn = (function_type)__lambda_141;
c_733873.num_args = 1;
c_733873.num_elements = 6;
c_733873.elements = (object *)alloca(sizeof(object) * 6);
c_733873.elements[0] = ((closureN)self_73882)->elements[0];
c_733873.elements[1] = ((closureN)self_73882)->elements[1];
c_733873.elements[2] = ((closureN)self_73882)->elements[3];
c_733873.elements[3] = ((closureN)self_73882)->elements[4];
c_733873.elements[4] = ((closureN)self_73882)->elements[5];
c_733873.elements[5] = ((closureN)self_73882)->elements[7];

return_closcall3(data,  car(((closureN)self_73882)->elements[6]),  &c_733873, Cyc_cadr(data, ((closureN)self_73882)->elements[7]), ((closureN)self_73882)->elements[5]);
} else { 
  return_closcall1(data,  ((closureN)self_73882)->elements[3],  boolean_f);}

} else { 
  return_closcall1(data,  ((closureN)self_73882)->elements[3],  boolean_f);}
}
; 
}

static void __lambda_141(void *data, int argc, object self_73883, object r_73541) {
  if( (boolean_f != r_73541) ){ 
  return_closcall4(data,  car(((closureN)self_73883)->elements[3]),  ((closureN)self_73883)->elements[2], Cyc_caddr(data, ((closureN)self_73883)->elements[5]), ((closureN)self_73883)->elements[4], ((closureN)self_73883)->elements[0]);
} else { 
  
closureN_type c_733888;
c_733888.hdr.mark = gc_color_red;
 c_733888.hdr.grayed = 0;
c_733888.tag = closureN_tag;
 c_733888.fn = (function_type)__lambda_140;
c_733888.num_args = 1;
c_733888.num_elements = 5;
c_733888.elements = (object *)alloca(sizeof(object) * 5);
c_733888.elements[0] = ((closureN)self_73883)->elements[0];
c_733888.elements[1] = ((closureN)self_73883)->elements[2];
c_733888.elements[2] = ((closureN)self_73883)->elements[3];
c_733888.elements[3] = ((closureN)self_73883)->elements[4];
c_733888.elements[4] = ((closureN)self_73883)->elements[5];

return_closcall3(data,  car(((closureN)self_73883)->elements[1]),  &c_733888, Cyc_cadr(data, ((closureN)self_73883)->elements[5]), ((closureN)self_73883)->elements[0]);}
; 
}

static void __lambda_140(void *data, int argc, object self_73884, object r_73543) {
  if( (boolean_f != r_73543) ){ 
  return_closcall4(data,  car(((closureN)self_73884)->elements[2]),  ((closureN)self_73884)->elements[1], Cyc_cadddr(data, ((closureN)self_73884)->elements[4]), ((closureN)self_73884)->elements[3], ((closureN)self_73884)->elements[0]);
} else { 
  
closureN_type c_733903;
c_733903.hdr.mark = gc_color_red;
 c_733903.hdr.grayed = 0;
c_733903.tag = closureN_tag;
 c_733903.fn = (function_type)__lambda_139;
c_733903.num_args = 1;
c_733903.num_elements = 5;
c_733903.elements = (object *)alloca(sizeof(object) * 5);
c_733903.elements[0] = ((closureN)self_73884)->elements[0];
c_733903.elements[1] = ((closureN)self_73884)->elements[1];
c_733903.elements[2] = ((closureN)self_73884)->elements[2];
c_733903.elements[3] = ((closureN)self_73884)->elements[3];
c_733903.elements[4] = ((closureN)self_73884)->elements[4];


make_pair(c_733927,Cyc_cadr(data, ((closureN)self_73884)->elements[4]), ((closureN)self_73884)->elements[3]);
return_closcall4(data,  car(((closureN)self_73884)->elements[2]),  &c_733903, Cyc_caddr(data, ((closureN)self_73884)->elements[4]), &c_733927, ((closureN)self_73884)->elements[0]);}
; 
}

static void __lambda_139(void *data, int argc, object self_73885, object r_73545) {
  if( (boolean_f != r_73545) ){ 
  
make_pair(c_733915,Cyc_cadr(data, ((closureN)self_73885)->elements[4]), ((closureN)self_73885)->elements[0]);
return_closcall4(data,  car(((closureN)self_73885)->elements[2]),  ((closureN)self_73885)->elements[1], Cyc_cadddr(data, ((closureN)self_73885)->elements[4]), ((closureN)self_73885)->elements[3], &c_733915);
} else { 
  return_closcall1(data,  ((closureN)self_73885)->elements[1],  boolean_f);}
; 
}

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

return_closcall1(data,(closure)&c_731416,  Cyc_set_cell(data, ((closureN)self_73886)->elements[5], quote__85));; 
}

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

return_closcall1(data,(closure)&c_731418,  Cyc_set_cell(data, ((closureN)self_73887)->elements[11], obj_int2obj(0)));; 
}

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


mclosure0(c_733806, (function_type)__lambda_135);c_733806.num_args = 3;
return_closcall1(data,(closure)&c_731420,  Cyc_set_cell(data, ((closureN)self_73888)->elements[13], &c_733806));; 
}

static void __lambda_135(void *data, int argc, object self_73889, object k_73528, object x_73286, object y_73285, object original_73284) {
  
closureN_type c_733808;
c_733808.hdr.mark = gc_color_red;
 c_733808.hdr.grayed = 0;
c_733808.tag = closureN_tag;
 c_733808.fn = (function_type)__lambda_133;
c_733808.num_args = 0;
c_733808.num_elements = 3;
c_733808.elements = (object *)alloca(sizeof(object) * 3);
c_733808.elements[0] = original_73284;
c_733808.elements[1] = x_73286;
c_733808.elements[2] = y_73285;


closureN_type c_733823;
c_733823.hdr.mark = gc_color_red;
 c_733823.hdr.grayed = 0;
c_733823.tag = closureN_tag;
 c_733823.fn = (function_type)__lambda_134;
c_733823.num_args = 1;
c_733823.num_elements = 4;
c_733823.elements = (object *)alloca(sizeof(object) * 4);
c_733823.elements[0] = k_73528;
c_733823.elements[1] = original_73284;
c_733823.elements[2] = x_73286;
c_733823.elements[3] = y_73285;

return_closcall1(data,(closure)&c_733808,  &c_733823);; 
}

static void __lambda_134(void *data, int argc, object self_73890, object r_73529) {
  if( (boolean_f != r_73529) ){ 
  return_closcall1(data,  ((closureN)self_73890)->elements[0],  ((closureN)self_73890)->elements[1]);
} else { 
  
make_pair(c_733831,((closureN)self_73890)->elements[2], ((closureN)self_73890)->elements[3]);
return_closcall1(data,  ((closureN)self_73890)->elements[0],  &c_733831);}
; 
}

static void __lambda_133(void *data, int argc, object self_73891, object k_73530) {
  if( (boolean_f != Cyc_eq(((closureN)self_73891)->elements[1], Cyc_car(data, ((closureN)self_73891)->elements[0]))) ){ 
  return_closcall1(data,  k_73530,  Cyc_eq(((closureN)self_73891)->elements[2], Cyc_cdr(data, ((closureN)self_73891)->elements[0])));
} else { 
  return_closcall1(data,  k_73530,  boolean_f);}
; 
}

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


closureN_type c_733755;
c_733755.hdr.mark = gc_color_red;
 c_733755.hdr.grayed = 0;
c_733755.tag = closureN_tag;
 c_733755.fn = (function_type)__lambda_131;
c_733755.num_args = 1;
c_733755.num_elements = 4;
c_733755.elements = (object *)alloca(sizeof(object) * 4);
c_733755.elements[0] = ((closureN)self_73892)->elements[10];
c_733755.elements[1] = ((closureN)self_73892)->elements[11];
c_733755.elements[2] = ((closureN)self_73892)->elements[12];
c_733755.elements[3] = ((closureN)self_73892)->elements[13];

return_closcall1(data,(closure)&c_731422,  Cyc_set_cell(data, ((closureN)self_73892)->elements[9], &c_733755));; 
}

static void __lambda_131(void *data, int argc, object self_73893, object k_73517, object term_73283) {
  
closureN_type c_733757;
c_733757.hdr.mark = gc_color_red;
 c_733757.hdr.grayed = 0;
c_733757.tag = closureN_tag;
 c_733757.fn = (function_type)__lambda_130;
c_733757.num_args = 1;
c_733757.num_elements = 6;
c_733757.elements = (object *)alloca(sizeof(object) * 6);
c_733757.elements[0] = k_73517;
c_733757.elements[1] = ((closureN)self_73893)->elements[0];
c_733757.elements[2] = ((closureN)self_73893)->elements[1];
c_733757.elements[3] = ((closureN)self_73893)->elements[2];
c_733757.elements[4] = ((closureN)self_73893)->elements[3];
c_733757.elements[5] = term_73283;


double_type local_733798; object c_733799 = Cyc_fast_sum(data,&local_733798,car(((closureN)self_73893)->elements[1]), obj_int2obj(1));
return_closcall1(data,(closure)&c_733757,  c_733799);; 
}

static void __lambda_130(void *data, int argc, object self_73894, object r_73526) {
  
closureN_type c_733759;
c_733759.hdr.mark = gc_color_red;
 c_733759.hdr.grayed = 0;
c_733759.tag = closureN_tag;
 c_733759.fn = (function_type)__lambda_129;
c_733759.num_args = 1;
c_733759.num_elements = 5;
c_733759.elements = (object *)alloca(sizeof(object) * 5);
c_733759.elements[0] = ((closureN)self_73894)->elements[0];
c_733759.elements[1] = ((closureN)self_73894)->elements[1];
c_733759.elements[2] = ((closureN)self_73894)->elements[3];
c_733759.elements[3] = ((closureN)self_73894)->elements[4];
c_733759.elements[4] = ((closureN)self_73894)->elements[5];

return_closcall1(data,(closure)&c_733759,  Cyc_set_cell(data, ((closureN)self_73894)->elements[2], r_73526));; 
}

static void __lambda_129(void *data, int argc, object self_73895, object r_73518) {
  if( (boolean_f != Cyc_is_pair(((closureN)self_73895)->elements[4])) ){ 
  
closureN_type c_733767;
c_733767.hdr.mark = gc_color_red;
 c_733767.hdr.grayed = 0;
c_733767.tag = closureN_tag;
 c_733767.fn = (function_type)__lambda_128;
c_733767.num_args = 1;
c_733767.num_elements = 4;
c_733767.elements = (object *)alloca(sizeof(object) * 4);
c_733767.elements[0] = ((closureN)self_73895)->elements[0];
c_733767.elements[1] = ((closureN)self_73895)->elements[2];
c_733767.elements[2] = ((closureN)self_73895)->elements[3];
c_733767.elements[3] = ((closureN)self_73895)->elements[4];

return_closcall2(data,  car(((closureN)self_73895)->elements[1]),  &c_733767, Cyc_cdr(data, ((closureN)self_73895)->elements[4]));
} else { 
  return_closcall1(data,  ((closureN)self_73895)->elements[0],  ((closureN)self_73895)->elements[4]);}
; 
}

static void __lambda_128(void *data, int argc, object self_73896, object r_73524) {
  
closureN_type c_733772;
c_733772.hdr.mark = gc_color_red;
 c_733772.hdr.grayed = 0;
c_733772.tag = closureN_tag;
 c_733772.fn = (function_type)__lambda_127;
c_733772.num_args = 1;
c_733772.num_elements = 3;
c_733772.elements = (object *)alloca(sizeof(object) * 3);
c_733772.elements[0] = ((closureN)self_73896)->elements[0];
c_733772.elements[1] = ((closureN)self_73896)->elements[1];
c_733772.elements[2] = ((closureN)self_73896)->elements[3];

return_closcall4(data,  car(((closureN)self_73896)->elements[2]),  &c_733772, Cyc_car(data, ((closureN)self_73896)->elements[3]), r_73524, ((closureN)self_73896)->elements[3]);; 
}

static void __lambda_127(void *data, int argc, object self_73897, object r_73520) {
  return_closcall3(data,  car(((closureN)self_73897)->elements[1]),  ((closureN)self_73897)->elements[0], r_73520, Cyc_vector_ref(data, Cyc_car(data, ((closureN)self_73897)->elements[2]), obj_int2obj(1)));; 
}

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


closureN_type c_733726;
c_733726.hdr.mark = gc_color_red;
 c_733726.hdr.grayed = 0;
c_733726.tag = closureN_tag;
 c_733726.fn = (function_type)__lambda_125;
c_733726.num_args = 1;
c_733726.num_elements = 3;
c_733726.elements = (object *)alloca(sizeof(object) * 3);
c_733726.elements[0] = ((closureN)self_73898)->elements[9];
c_733726.elements[1] = ((closureN)self_73898)->elements[10];
c_733726.elements[2] = ((closureN)self_73898)->elements[13];

return_closcall1(data,(closure)&c_731424,  Cyc_set_cell(data, ((closureN)self_73898)->elements[10], &c_733726));; 
}

static void __lambda_125(void *data, int argc, object self_73899, object k_73510, object lst_73282) {
  if( (boolean_f != Cyc_is_null(lst_73282)) ){ 
  return_closcall1(data,  k_73510,  NULL);
} else { 
  
closureN_type c_733734;
c_733734.hdr.mark = gc_color_red;
 c_733734.hdr.grayed = 0;
c_733734.tag = closureN_tag;
 c_733734.fn = (function_type)__lambda_124;
c_733734.num_args = 1;
c_733734.num_elements = 4;
c_733734.elements = (object *)alloca(sizeof(object) * 4);
c_733734.elements[0] = k_73510;
c_733734.elements[1] = lst_73282;
c_733734.elements[2] = ((closureN)self_73899)->elements[1];
c_733734.elements[3] = ((closureN)self_73899)->elements[2];

return_closcall2(data,  car(((closureN)self_73899)->elements[0]),  &c_733734, Cyc_car(data, lst_73282));}
; 
}

static void __lambda_124(void *data, int argc, object self_73900, object r_73512) {
  
closureN_type c_733739;
c_733739.hdr.mark = gc_color_red;
 c_733739.hdr.grayed = 0;
c_733739.tag = closureN_tag;
 c_733739.fn = (function_type)__lambda_123;
c_733739.num_args = 1;
c_733739.num_elements = 4;
c_733739.elements = (object *)alloca(sizeof(object) * 4);
c_733739.elements[0] = ((closureN)self_73900)->elements[0];
c_733739.elements[1] = ((closureN)self_73900)->elements[1];
c_733739.elements[2] = r_73512;
c_733739.elements[3] = ((closureN)self_73900)->elements[3];

return_closcall2(data,  car(((closureN)self_73900)->elements[2]),  &c_733739, Cyc_cdr(data, ((closureN)self_73900)->elements[1]));; 
}

static void __lambda_123(void *data, int argc, object self_73901, object r_73513) {
  return_closcall4(data,  car(((closureN)self_73901)->elements[3]),  ((closureN)self_73901)->elements[0], ((closureN)self_73901)->elements[2], r_73513, ((closureN)self_73901)->elements[1]);; 
}

static void __lambda_122(void *data, int argc, object self_73902, object r_73388) {
  
closureN_type c_731426;
c_731426.hdr.mark = gc_color_red;
 c_731426.hdr.grayed = 0;
c_731426.tag = closureN_tag;
 c_731426.fn = (function_type)__lambda_118;
c_731426.num_args = 1;
c_731426.num_elements = 20;
c_731426.elements = (object *)alloca(sizeof(object) * 20);
c_731426.elements[0] = ((closureN)self_73902)->elements[0];
c_731426.elements[1] = ((closureN)self_73902)->elements[1];
c_731426.elements[2] = ((closureN)self_73902)->elements[3];
c_731426.elements[3] = ((closureN)self_73902)->elements[4];
c_731426.elements[4] = ((closureN)self_73902)->elements[5];
c_731426.elements[5] = ((closureN)self_73902)->elements[6];
c_731426.elements[6] = ((closureN)self_73902)->elements[7];
c_731426.elements[7] = ((closureN)self_73902)->elements[8];
c_731426.elements[8] = ((closureN)self_73902)->elements[10];
c_731426.elements[9] = ((closureN)self_73902)->elements[12];
c_731426.elements[10] = ((closureN)self_73902)->elements[13];
c_731426.elements[11] = ((closureN)self_73902)->elements[14];
c_731426.elements[12] = ((closureN)self_73902)->elements[15];
c_731426.elements[13] = ((closureN)self_73902)->elements[16];
c_731426.elements[14] = ((closureN)self_73902)->elements[17];
c_731426.elements[15] = ((closureN)self_73902)->elements[18];
c_731426.elements[16] = ((closureN)self_73902)->elements[19];
c_731426.elements[17] = ((closureN)self_73902)->elements[20];
c_731426.elements[18] = ((closureN)self_73902)->elements[21];
c_731426.elements[19] = ((closureN)self_73902)->elements[22];


closureN_type c_733683;
c_733683.hdr.mark = gc_color_red;
 c_733683.hdr.grayed = 0;
c_733683.tag = closureN_tag;
 c_733683.fn = (function_type)__lambda_121;
c_733683.num_args = 2;
c_733683.num_elements = 5;
c_733683.elements = (object *)alloca(sizeof(object) * 5);
c_733683.elements[0] = ((closureN)self_73902)->elements[2];
c_733683.elements[1] = ((closureN)self_73902)->elements[6];
c_733683.elements[2] = ((closureN)self_73902)->elements[9];
c_733683.elements[3] = ((closureN)self_73902)->elements[11];
c_733683.elements[4] = ((closureN)self_73902)->elements[22];

return_closcall1(data,(closure)&c_731426,  Cyc_set_cell(data, ((closureN)self_73902)->elements[11], &c_733683));; 
}

static void __lambda_121(void *data, int argc, object self_73903, object k_73500, object term_73281, object lst_73280) {
  if( (boolean_f != Cyc_is_null(lst_73280)) ){ 
  return_closcall1(data,  k_73500,  term_73281);
} else { 
  
closureN_type c_733691;
c_733691.hdr.mark = gc_color_red;
 c_733691.hdr.grayed = 0;
c_733691.tag = closureN_tag;
 c_733691.fn = (function_type)__lambda_120;
c_733691.num_args = 1;
c_733691.num_elements = 7;
c_733691.elements = (object *)alloca(sizeof(object) * 7);
c_733691.elements[0] = ((closureN)self_73903)->elements[0];
c_733691.elements[1] = k_73500;
c_733691.elements[2] = lst_73280;
c_733691.elements[3] = ((closureN)self_73903)->elements[2];
c_733691.elements[4] = ((closureN)self_73903)->elements[3];
c_733691.elements[5] = term_73281;
c_733691.elements[6] = ((closureN)self_73903)->elements[4];

return_closcall3(data,  car(((closureN)self_73903)->elements[1]),  &c_733691, term_73281, Cyc_cadr(data, Cyc_car(data, lst_73280)));}
; 
}

static void __lambda_120(void *data, int argc, object self_73904, object r_73502) {
  if( (boolean_f != r_73502) ){ 
  
closureN_type c_733696;
c_733696.hdr.mark = gc_color_red;
 c_733696.hdr.grayed = 0;
c_733696.tag = closureN_tag;
 c_733696.fn = (function_type)__lambda_119;
c_733696.num_args = 1;
c_733696.num_elements = 2;
c_733696.elements = (object *)alloca(sizeof(object) * 2);
c_733696.elements[0] = ((closureN)self_73904)->elements[1];
c_733696.elements[1] = ((closureN)self_73904)->elements[3];

return_closcall3(data,  car(((closureN)self_73904)->elements[0]),  &c_733696, car(((closureN)self_73904)->elements[6]), Cyc_caddr(data, Cyc_car(data, ((closureN)self_73904)->elements[2])));
} else { 
  return_closcall3(data,  car(((closureN)self_73904)->elements[4]),  ((closureN)self_73904)->elements[1], ((closureN)self_73904)->elements[5], Cyc_cdr(data, ((closureN)self_73904)->elements[2]));}
; 
}

static void __lambda_119(void *data, int argc, object self_73905, object r_73503) {
  return_closcall2(data,  car(((closureN)self_73905)->elements[1]),  ((closureN)self_73905)->elements[0], r_73503);; 
}

static void __lambda_118(void *data, int argc, object self_73906, object r_73389) {
  
closureN_type c_731428;
c_731428.hdr.mark = gc_color_red;
 c_731428.hdr.grayed = 0;
c_731428.tag = closureN_tag;
 c_731428.fn = (function_type)__lambda_117;
c_731428.num_args = 1;
c_731428.num_elements = 20;
c_731428.elements = (object *)alloca(sizeof(object) * 20);
c_731428.elements[0] = ((closureN)self_73906)->elements[0];
c_731428.elements[1] = ((closureN)self_73906)->elements[1];
c_731428.elements[2] = ((closureN)self_73906)->elements[2];
c_731428.elements[3] = ((closureN)self_73906)->elements[3];
c_731428.elements[4] = ((closureN)self_73906)->elements[4];
c_731428.elements[5] = ((closureN)self_73906)->elements[5];
c_731428.elements[6] = ((closureN)self_73906)->elements[6];
c_731428.elements[7] = ((closureN)self_73906)->elements[7];
c_731428.elements[8] = ((closureN)self_73906)->elements[8];
c_731428.elements[9] = ((closureN)self_73906)->elements[9];
c_731428.elements[10] = ((closureN)self_73906)->elements[10];
c_731428.elements[11] = ((closureN)self_73906)->elements[11];
c_731428.elements[12] = ((closureN)self_73906)->elements[12];
c_731428.elements[13] = ((closureN)self_73906)->elements[13];
c_731428.elements[14] = ((closureN)self_73906)->elements[14];
c_731428.elements[15] = ((closureN)self_73906)->elements[15];
c_731428.elements[16] = ((closureN)self_73906)->elements[16];
c_731428.elements[17] = ((closureN)self_73906)->elements[17];
c_731428.elements[18] = ((closureN)self_73906)->elements[18];
c_731428.elements[19] = ((closureN)self_73906)->elements[19];

return_closcall1(data,(closure)&c_731428,  Cyc_set_cell(data, ((closureN)self_73906)->elements[19], quote__85));; 
}

static void __lambda_117(void *data, int argc, object self_73907, object r_73390) {
  
closureN_type c_731430;
c_731430.hdr.mark = gc_color_red;
 c_731430.hdr.grayed = 0;
c_731430.tag = closureN_tag;
 c_731430.fn = (function_type)__lambda_114;
c_731430.num_args = 1;
c_731430.num_elements = 19;
c_731430.elements = (object *)alloca(sizeof(object) * 19);
c_731430.elements[0] = ((closureN)self_73907)->elements[0];
c_731430.elements[1] = ((closureN)self_73907)->elements[1];
c_731430.elements[2] = ((closureN)self_73907)->elements[2];
c_731430.elements[3] = ((closureN)self_73907)->elements[3];
c_731430.elements[4] = ((closureN)self_73907)->elements[4];
c_731430.elements[5] = ((closureN)self_73907)->elements[6];
c_731430.elements[6] = ((closureN)self_73907)->elements[7];
c_731430.elements[7] = ((closureN)self_73907)->elements[8];
c_731430.elements[8] = ((closureN)self_73907)->elements[9];
c_731430.elements[9] = ((closureN)self_73907)->elements[10];
c_731430.elements[10] = ((closureN)self_73907)->elements[11];
c_731430.elements[11] = ((closureN)self_73907)->elements[12];
c_731430.elements[12] = ((closureN)self_73907)->elements[13];
c_731430.elements[13] = ((closureN)self_73907)->elements[14];
c_731430.elements[14] = ((closureN)self_73907)->elements[15];
c_731430.elements[15] = ((closureN)self_73907)->elements[16];
c_731430.elements[16] = ((closureN)self_73907)->elements[17];
c_731430.elements[17] = ((closureN)self_73907)->elements[18];
c_731430.elements[18] = ((closureN)self_73907)->elements[19];


closureN_type c_733664;
c_733664.hdr.mark = gc_color_red;
 c_733664.hdr.grayed = 0;
c_733664.tag = closureN_tag;
 c_733664.fn = (function_type)__lambda_116;
c_733664.num_args = 2;
c_733664.num_elements = 2;
c_733664.elements = (object *)alloca(sizeof(object) * 2);
c_733664.elements[0] = ((closureN)self_73907)->elements[6];
c_733664.elements[1] = ((closureN)self_73907)->elements[19];

return_closcall1(data,(closure)&c_731430,  Cyc_set_cell(data, ((closureN)self_73907)->elements[5], &c_733664));; 
}

static void __lambda_116(void *data, int argc, object self_73908, object k_73495, object term1_73279, object term2_73278) {
  
closureN_type c_733666;
c_733666.hdr.mark = gc_color_red;
 c_733666.hdr.grayed = 0;
c_733666.tag = closureN_tag;
 c_733666.fn = (function_type)__lambda_115;
c_733666.num_args = 1;
c_733666.num_elements = 4;
c_733666.elements = (object *)alloca(sizeof(object) * 4);
c_733666.elements[0] = k_73495;
c_733666.elements[1] = ((closureN)self_73908)->elements[0];
c_733666.elements[2] = term1_73279;
c_733666.elements[3] = term2_73278;

return_closcall1(data,(closure)&c_733666,  Cyc_set_cell(data, ((closureN)self_73908)->elements[1], NULL));; 
}

static void __lambda_115(void *data, int argc, object self_73909, object r_73496) {
  return_closcall3(data,  car(((closureN)self_73909)->elements[1]),  ((closureN)self_73909)->elements[0], ((closureN)self_73909)->elements[2], ((closureN)self_73909)->elements[3]);; 
}

static void __lambda_114(void *data, int argc, object self_73910, object r_73391) {
  
closureN_type c_731432;
c_731432.hdr.mark = gc_color_red;
 c_731432.hdr.grayed = 0;
c_731432.tag = closureN_tag;
 c_731432.fn = (function_type)__lambda_109;
c_731432.num_args = 1;
c_731432.num_elements = 18;
c_731432.elements = (object *)alloca(sizeof(object) * 18);
c_731432.elements[0] = ((closureN)self_73910)->elements[0];
c_731432.elements[1] = ((closureN)self_73910)->elements[1];
c_731432.elements[2] = ((closureN)self_73910)->elements[2];
c_731432.elements[3] = ((closureN)self_73910)->elements[3];
c_731432.elements[4] = ((closureN)self_73910)->elements[4];
c_731432.elements[5] = ((closureN)self_73910)->elements[5];
c_731432.elements[6] = ((closureN)self_73910)->elements[6];
c_731432.elements[7] = ((closureN)self_73910)->elements[7];
c_731432.elements[8] = ((closureN)self_73910)->elements[8];
c_731432.elements[9] = ((closureN)self_73910)->elements[9];
c_731432.elements[10] = ((closureN)self_73910)->elements[10];
c_731432.elements[11] = ((closureN)self_73910)->elements[11];
c_731432.elements[12] = ((closureN)self_73910)->elements[12];
c_731432.elements[13] = ((closureN)self_73910)->elements[13];
c_731432.elements[14] = ((closureN)self_73910)->elements[14];
c_731432.elements[15] = ((closureN)self_73910)->elements[15];
c_731432.elements[16] = ((closureN)self_73910)->elements[16];
c_731432.elements[17] = ((closureN)self_73910)->elements[17];


closureN_type c_733596;
c_733596.hdr.mark = gc_color_red;
 c_733596.hdr.grayed = 0;
c_733596.tag = closureN_tag;
 c_733596.fn = (function_type)__lambda_113;
c_733596.num_args = 2;
c_733596.num_elements = 3;
c_733596.elements = (object *)alloca(sizeof(object) * 3);
c_733596.elements[0] = ((closureN)self_73910)->elements[6];
c_733596.elements[1] = ((closureN)self_73910)->elements[10];
c_733596.elements[2] = ((closureN)self_73910)->elements[18];

return_closcall1(data,(closure)&c_731432,  Cyc_set_cell(data, ((closureN)self_73910)->elements[5], &c_733596));; 
}

static void __lambda_113(void *data, int argc, object self_73911, object k_73480, object term1_73276, object term2_73275) {
  if( (boolean_f != Cyc_is_pair(term2_73275)) ){ 
  if( (boolean_f != Cyc_is_pair(term1_73276)) ){ 
  if( (boolean_f != Cyc_eq(Cyc_car(data, term1_73276), Cyc_car(data, term2_73275))) ){ 
  return_closcall3(data,  car(((closureN)self_73911)->elements[0]),  k_73480, Cyc_cdr(data, term1_73276), Cyc_cdr(data, term2_73275));
} else { 
  return_closcall1(data,  k_73480,  boolean_f);}

} else { 
  return_closcall1(data,  k_73480,  boolean_f);}

} else { 
  
closureN_type c_733618;
c_733618.hdr.mark = gc_color_red;
 c_733618.hdr.grayed = 0;
c_733618.tag = closureN_tag;
 c_733618.fn = (function_type)__lambda_112;
c_733618.num_args = 1;
c_733618.num_elements = 5;
c_733618.elements = (object *)alloca(sizeof(object) * 5);
c_733618.elements[0] = k_73480;
c_733618.elements[1] = ((closureN)self_73911)->elements[1];
c_733618.elements[2] = term1_73276;
c_733618.elements[3] = term2_73275;
c_733618.elements[4] = ((closureN)self_73911)->elements[2];

return_closcall1(data,(closure)&c_733618,  assq(data, term2_73275, car(((closureN)self_73911)->elements[2])));}
; 
}

static void __lambda_112(void *data, int argc, object self_73912, object temp_91temp_73277) {
  if( (boolean_f != temp_91temp_73277) ){ 
  return_closcall3(data,  car(((closureN)self_73912)->elements[1]),  ((closureN)self_73912)->elements[0], ((closureN)self_73912)->elements[2], Cyc_cdr(data, temp_91temp_73277));
} else { 
  if( (boolean_f != Cyc_is_number(((closureN)self_73912)->elements[3])) ){ 
  return_closcall1(data,  ((closureN)self_73912)->elements[0],  equalp(((closureN)self_73912)->elements[2], ((closureN)self_73912)->elements[3]));
} else { 
  
closureN_type c_733637;
c_733637.hdr.mark = gc_color_red;
 c_733637.hdr.grayed = 0;
c_733637.tag = closureN_tag;
 c_733637.fn = (function_type)__lambda_111;
c_733637.num_args = 1;
c_733637.num_elements = 2;
c_733637.elements = (object *)alloca(sizeof(object) * 2);
c_733637.elements[0] = ((closureN)self_73912)->elements[0];
c_733637.elements[1] = ((closureN)self_73912)->elements[4];


make_pair(c_733650,((closureN)self_73912)->elements[3], ((closureN)self_73912)->elements[2]);

make_pair(c_733647,&c_733650, car(((closureN)self_73912)->elements[4]));
return_closcall1(data,(closure)&c_733637,  &c_733647);}
}
; 
}

static void __lambda_111(void *data, int argc, object self_73913, object r_73492) {
  
closureN_type c_733639;
c_733639.hdr.mark = gc_color_red;
 c_733639.hdr.grayed = 0;
c_733639.tag = closureN_tag;
 c_733639.fn = (function_type)__lambda_110;
c_733639.num_args = 1;
c_733639.num_elements = 1;
c_733639.elements = (object *)alloca(sizeof(object) * 1);
c_733639.elements[0] = ((closureN)self_73913)->elements[0];

return_closcall1(data,(closure)&c_733639,  Cyc_set_cell(data, ((closureN)self_73913)->elements[1], r_73492));; 
}

static void __lambda_110(void *data, int argc, object self_73914, object r_73491) {
  return_closcall1(data,  ((closureN)self_73914)->elements[0],  boolean_t);; 
}

static void __lambda_109(void *data, int argc, object self_73915, object r_73392) {
  
closureN_type c_731434;
c_731434.hdr.mark = gc_color_red;
 c_731434.hdr.grayed = 0;
c_731434.tag = closureN_tag;
 c_731434.fn = (function_type)__lambda_106;
c_731434.num_args = 1;
c_731434.num_elements = 16;
c_731434.elements = (object *)alloca(sizeof(object) * 16);
c_731434.elements[0] = ((closureN)self_73915)->elements[0];
c_731434.elements[1] = ((closureN)self_73915)->elements[1];
c_731434.elements[2] = ((closureN)self_73915)->elements[2];
c_731434.elements[3] = ((closureN)self_73915)->elements[3];
c_731434.elements[4] = ((closureN)self_73915)->elements[4];
c_731434.elements[5] = ((closureN)self_73915)->elements[7];
c_731434.elements[6] = ((closureN)self_73915)->elements[8];
c_731434.elements[7] = ((closureN)self_73915)->elements[9];
c_731434.elements[8] = ((closureN)self_73915)->elements[10];
c_731434.elements[9] = ((closureN)self_73915)->elements[11];
c_731434.elements[10] = ((closureN)self_73915)->elements[12];
c_731434.elements[11] = ((closureN)self_73915)->elements[13];
c_731434.elements[12] = ((closureN)self_73915)->elements[14];
c_731434.elements[13] = ((closureN)self_73915)->elements[15];
c_731434.elements[14] = ((closureN)self_73915)->elements[16];
c_731434.elements[15] = ((closureN)self_73915)->elements[17];


closureN_type c_733562;
c_733562.hdr.mark = gc_color_red;
 c_733562.hdr.grayed = 0;
c_733562.tag = closureN_tag;
 c_733562.fn = (function_type)__lambda_108;
c_733562.num_args = 2;
c_733562.num_elements = 2;
c_733562.elements = (object *)alloca(sizeof(object) * 2);
c_733562.elements[0] = ((closureN)self_73915)->elements[5];
c_733562.elements[1] = ((closureN)self_73915)->elements[6];

return_closcall1(data,(closure)&c_731434,  Cyc_set_cell(data, ((closureN)self_73915)->elements[6], &c_733562));; 
}

static void __lambda_108(void *data, int argc, object self_73916, object k_73471, object lst1_73274, object lst2_73273) {
  if( (boolean_f != Cyc_is_null(lst1_73274)) ){ 
  return_closcall1(data,  k_73471,  Cyc_is_null(lst2_73273));
} else { 
  if( (boolean_f != Cyc_is_null(lst2_73273)) ){ 
  return_closcall1(data,  k_73471,  boolean_f);
} else { 
  
closureN_type c_733575;
c_733575.hdr.mark = gc_color_red;
 c_733575.hdr.grayed = 0;
c_733575.tag = closureN_tag;
 c_733575.fn = (function_type)__lambda_107;
c_733575.num_args = 1;
c_733575.num_elements = 4;
c_733575.elements = (object *)alloca(sizeof(object) * 4);
c_733575.elements[0] = k_73471;
c_733575.elements[1] = lst1_73274;
c_733575.elements[2] = lst2_73273;
c_733575.elements[3] = ((closureN)self_73916)->elements[1];

return_closcall3(data,  car(((closureN)self_73916)->elements[0]),  &c_733575, Cyc_car(data, lst1_73274), Cyc_car(data, lst2_73273));}
}
; 
}

static void __lambda_107(void *data, int argc, object self_73917, object r_73474) {
  if( (boolean_f != r_73474) ){ 
  return_closcall3(data,  car(((closureN)self_73917)->elements[3]),  ((closureN)self_73917)->elements[0], Cyc_cdr(data, ((closureN)self_73917)->elements[1]), Cyc_cdr(data, ((closureN)self_73917)->elements[2]));
} else { 
  return_closcall1(data,  ((closureN)self_73917)->elements[0],  boolean_f);}
; 
}

static void __lambda_106(void *data, int argc, object self_73918, object r_73393) {
  
closureN_type c_731436;
c_731436.hdr.mark = gc_color_red;
 c_731436.hdr.grayed = 0;
c_731436.tag = closureN_tag;
 c_731436.fn = (function_type)__lambda_103;
c_731436.num_args = 1;
c_731436.num_elements = 15;
c_731436.elements = (object *)alloca(sizeof(object) * 15);
c_731436.elements[0] = ((closureN)self_73918)->elements[0];
c_731436.elements[1] = ((closureN)self_73918)->elements[1];
c_731436.elements[2] = ((closureN)self_73918)->elements[2];
c_731436.elements[3] = ((closureN)self_73918)->elements[4];
c_731436.elements[4] = ((closureN)self_73918)->elements[5];
c_731436.elements[5] = ((closureN)self_73918)->elements[6];
c_731436.elements[6] = ((closureN)self_73918)->elements[7];
c_731436.elements[7] = ((closureN)self_73918)->elements[8];
c_731436.elements[8] = ((closureN)self_73918)->elements[9];
c_731436.elements[9] = ((closureN)self_73918)->elements[10];
c_731436.elements[10] = ((closureN)self_73918)->elements[11];
c_731436.elements[11] = ((closureN)self_73918)->elements[12];
c_731436.elements[12] = ((closureN)self_73918)->elements[13];
c_731436.elements[13] = ((closureN)self_73918)->elements[14];
c_731436.elements[14] = ((closureN)self_73918)->elements[15];


closureN_type c_733541;
c_733541.hdr.mark = gc_color_red;
 c_733541.hdr.grayed = 0;
c_733541.tag = closureN_tag;
 c_733541.fn = (function_type)__lambda_105;
c_733541.num_args = 2;
c_733541.num_elements = 3;
c_733541.elements = (object *)alloca(sizeof(object) * 3);
c_733541.elements[0] = ((closureN)self_73918)->elements[2];
c_733541.elements[1] = ((closureN)self_73918)->elements[8];
c_733541.elements[2] = ((closureN)self_73918)->elements[9];

return_closcall1(data,(closure)&c_731436,  Cyc_set_cell(data, ((closureN)self_73918)->elements[3], &c_733541));; 
}

static void __lambda_105(void *data, int argc, object self_73919, object k_73468, object x_73271, object lst_73270) {
  
closureN_type c_733546;
c_733546.hdr.mark = gc_color_red;
 c_733546.hdr.grayed = 0;
c_733546.tag = closureN_tag;
 c_733546.fn = (function_type)__lambda_104;
c_733546.num_args = 1;
c_733546.num_elements = 4;
c_733546.elements = (object *)alloca(sizeof(object) * 4);
c_733546.elements[0] = k_73468;
c_733546.elements[1] = lst_73270;
c_733546.elements[2] = ((closureN)self_73919)->elements[2];
c_733546.elements[3] = x_73271;

return_closcall3(data,  car(((closureN)self_73919)->elements[1]),  &c_733546, x_73271, car(((closureN)self_73919)->elements[0]));; 
}

static void __lambda_104(void *data, int argc, object self_73920, object tmp_73117_73272) {
  if( (boolean_f != tmp_73117_73272) ){ 
  return_closcall1(data,  ((closureN)self_73920)->elements[0],  tmp_73117_73272);
} else { 
  return_closcall3(data,  car(((closureN)self_73920)->elements[2]),  ((closureN)self_73920)->elements[0], ((closureN)self_73920)->elements[3], ((closureN)self_73920)->elements[1]);}
; 
}

static void __lambda_103(void *data, int argc, object self_73921, object r_73394) {
  
closureN_type c_731438;
c_731438.hdr.mark = gc_color_red;
 c_731438.hdr.grayed = 0;
c_731438.tag = closureN_tag;
 c_731438.fn = (function_type)__lambda_100;
c_731438.num_args = 1;
c_731438.num_elements = 14;
c_731438.elements = (object *)alloca(sizeof(object) * 14);
c_731438.elements[0] = ((closureN)self_73921)->elements[0];
c_731438.elements[1] = ((closureN)self_73921)->elements[1];
c_731438.elements[2] = ((closureN)self_73921)->elements[2];
c_731438.elements[3] = ((closureN)self_73921)->elements[3];
c_731438.elements[4] = ((closureN)self_73921)->elements[4];
c_731438.elements[5] = ((closureN)self_73921)->elements[5];
c_731438.elements[6] = ((closureN)self_73921)->elements[6];
c_731438.elements[7] = ((closureN)self_73921)->elements[7];
c_731438.elements[8] = ((closureN)self_73921)->elements[8];
c_731438.elements[9] = ((closureN)self_73921)->elements[9];
c_731438.elements[10] = ((closureN)self_73921)->elements[10];
c_731438.elements[11] = ((closureN)self_73921)->elements[11];
c_731438.elements[12] = ((closureN)self_73921)->elements[12];
c_731438.elements[13] = ((closureN)self_73921)->elements[13];


closureN_type c_733520;
c_733520.hdr.mark = gc_color_red;
 c_733520.hdr.grayed = 0;
c_733520.tag = closureN_tag;
 c_733520.fn = (function_type)__lambda_102;
c_733520.num_args = 2;
c_733520.num_elements = 3;
c_733520.elements = (object *)alloca(sizeof(object) * 3);
c_733520.elements[0] = ((closureN)self_73921)->elements[7];
c_733520.elements[1] = ((closureN)self_73921)->elements[8];
c_733520.elements[2] = ((closureN)self_73921)->elements[13];

return_closcall1(data,(closure)&c_731438,  Cyc_set_cell(data, ((closureN)self_73921)->elements[14], &c_733520));; 
}

static void __lambda_102(void *data, int argc, object self_73922, object k_73465, object x_73268, object lst_73267) {
  
closureN_type c_733525;
c_733525.hdr.mark = gc_color_red;
 c_733525.hdr.grayed = 0;
c_733525.tag = closureN_tag;
 c_733525.fn = (function_type)__lambda_101;
c_733525.num_args = 1;
c_733525.num_elements = 4;
c_733525.elements = (object *)alloca(sizeof(object) * 4);
c_733525.elements[0] = k_73465;
c_733525.elements[1] = lst_73267;
c_733525.elements[2] = ((closureN)self_73922)->elements[1];
c_733525.elements[3] = x_73268;

return_closcall3(data,  car(((closureN)self_73922)->elements[0]),  &c_733525, x_73268, car(((closureN)self_73922)->elements[2]));; 
}

static void __lambda_101(void *data, int argc, object self_73923, object tmp_73120_73269) {
  if( (boolean_f != tmp_73120_73269) ){ 
  return_closcall1(data,  ((closureN)self_73923)->elements[0],  tmp_73120_73269);
} else { 
  return_closcall3(data,  car(((closureN)self_73923)->elements[2]),  ((closureN)self_73923)->elements[0], ((closureN)self_73923)->elements[3], ((closureN)self_73923)->elements[1]);}
; 
}

static void __lambda_100(void *data, int argc, object self_73924, object r_73395) {
  
closureN_type c_731440;
c_731440.hdr.mark = gc_color_red;
 c_731440.hdr.grayed = 0;
c_731440.tag = closureN_tag;
 c_731440.fn = (function_type)__lambda_99;
c_731440.num_args = 1;
c_731440.num_elements = 14;
c_731440.elements = (object *)alloca(sizeof(object) * 14);
c_731440.elements[0] = ((closureN)self_73924)->elements[0];
c_731440.elements[1] = ((closureN)self_73924)->elements[1];
c_731440.elements[2] = ((closureN)self_73924)->elements[2];
c_731440.elements[3] = ((closureN)self_73924)->elements[3];
c_731440.elements[4] = ((closureN)self_73924)->elements[4];
c_731440.elements[5] = ((closureN)self_73924)->elements[5];
c_731440.elements[6] = ((closureN)self_73924)->elements[6];
c_731440.elements[7] = ((closureN)self_73924)->elements[7];
c_731440.elements[8] = ((closureN)self_73924)->elements[8];
c_731440.elements[9] = ((closureN)self_73924)->elements[9];
c_731440.elements[10] = ((closureN)self_73924)->elements[10];
c_731440.elements[11] = ((closureN)self_73924)->elements[11];
c_731440.elements[12] = ((closureN)self_73924)->elements[12];
c_731440.elements[13] = ((closureN)self_73924)->elements[13];

return_closcall1(data,(closure)&c_731440,  Cyc_set_cell(data, ((closureN)self_73924)->elements[2], quote__85));; 
}

static void __lambda_99(void *data, int argc, object self_73925, object r_73396) {
  
closureN_type c_731442;
c_731442.hdr.mark = gc_color_red;
 c_731442.hdr.grayed = 0;
c_731442.tag = closureN_tag;
 c_731442.fn = (function_type)__lambda_98;
c_731442.num_args = 1;
c_731442.num_elements = 14;
c_731442.elements = (object *)alloca(sizeof(object) * 14);
c_731442.elements[0] = ((closureN)self_73925)->elements[0];
c_731442.elements[1] = ((closureN)self_73925)->elements[1];
c_731442.elements[2] = ((closureN)self_73925)->elements[2];
c_731442.elements[3] = ((closureN)self_73925)->elements[3];
c_731442.elements[4] = ((closureN)self_73925)->elements[4];
c_731442.elements[5] = ((closureN)self_73925)->elements[5];
c_731442.elements[6] = ((closureN)self_73925)->elements[6];
c_731442.elements[7] = ((closureN)self_73925)->elements[7];
c_731442.elements[8] = ((closureN)self_73925)->elements[8];
c_731442.elements[9] = ((closureN)self_73925)->elements[9];
c_731442.elements[10] = ((closureN)self_73925)->elements[10];
c_731442.elements[11] = ((closureN)self_73925)->elements[11];
c_731442.elements[12] = ((closureN)self_73925)->elements[12];
c_731442.elements[13] = ((closureN)self_73925)->elements[13];

return_closcall1(data,(closure)&c_731442,  Cyc_set_cell(data, ((closureN)self_73925)->elements[13], quote__85));; 
}

static void __lambda_98(void *data, int argc, object self_73926, object r_73397) {
  
closureN_type c_731444;
c_731444.hdr.mark = gc_color_red;
 c_731444.hdr.grayed = 0;
c_731444.tag = closureN_tag;
 c_731444.fn = (function_type)__lambda_93;
c_731444.num_args = 1;
c_731444.num_elements = 13;
c_731444.elements = (object *)alloca(sizeof(object) * 13);
c_731444.elements[0] = ((closureN)self_73926)->elements[0];
c_731444.elements[1] = ((closureN)self_73926)->elements[1];
c_731444.elements[2] = ((closureN)self_73926)->elements[2];
c_731444.elements[3] = ((closureN)self_73926)->elements[3];
c_731444.elements[4] = ((closureN)self_73926)->elements[4];
c_731444.elements[5] = ((closureN)self_73926)->elements[5];
c_731444.elements[6] = ((closureN)self_73926)->elements[6];
c_731444.elements[7] = ((closureN)self_73926)->elements[7];
c_731444.elements[8] = ((closureN)self_73926)->elements[8];
c_731444.elements[9] = ((closureN)self_73926)->elements[9];
c_731444.elements[10] = ((closureN)self_73926)->elements[11];
c_731444.elements[11] = ((closureN)self_73926)->elements[12];
c_731444.elements[12] = ((closureN)self_73926)->elements[13];


closureN_type c_733494;
c_733494.hdr.mark = gc_color_red;
 c_733494.hdr.grayed = 0;
c_733494.tag = closureN_tag;
 c_733494.fn = (function_type)__lambda_97;
c_733494.num_args = 1;
c_733494.num_elements = 2;
c_733494.elements = (object *)alloca(sizeof(object) * 2);
c_733494.elements[0] = ((closureN)self_73926)->elements[11];
c_733494.elements[1] = ((closureN)self_73926)->elements[12];

return_closcall1(data,(closure)&c_731444,  Cyc_set_cell(data, ((closureN)self_73926)->elements[10], &c_733494));; 
}

static void __lambda_97(void *data, int argc, object self_73927, object k_73456, object n_73266) {
  
closureN_type c_733499;
c_733499.hdr.mark = gc_color_red;
 c_733499.hdr.grayed = 0;
c_733499.tag = closureN_tag;
 c_733499.fn = (function_type)__lambda_96;
c_733499.num_args = 1;
c_733499.num_elements = 3;
c_733499.elements = (object *)alloca(sizeof(object) * 3);
c_733499.elements[0] = k_73456;
c_733499.elements[1] = n_73266;
c_733499.elements[2] = ((closureN)self_73927)->elements[1];

return_closcall2(data,  car(((closureN)self_73927)->elements[0]),  &c_733499, n_73266);; 
}

static void __lambda_96(void *data, int argc, object self_73928, object r_73459) {
  
closureN_type c_733501;
c_733501.hdr.mark = gc_color_red;
 c_733501.hdr.grayed = 0;
c_733501.tag = closureN_tag;
 c_733501.fn = (function_type)__lambda_95;
c_733501.num_args = 1;
c_733501.num_elements = 3;
c_733501.elements = (object *)alloca(sizeof(object) * 3);
c_733501.elements[0] = ((closureN)self_73928)->elements[0];
c_733501.elements[1] = r_73459;
c_733501.elements[2] = ((closureN)self_73928)->elements[2];

return_closcall4(data,  __glo__list_scheme_base,  &c_733501, quote_implies, obj_int2obj(0), ((closureN)self_73928)->elements[1]);; 
}

static void __lambda_95(void *data, int argc, object self_73929, object r_73460) {
  
closureN_type c_733503;
c_733503.hdr.mark = gc_color_red;
 c_733503.hdr.grayed = 0;
c_733503.tag = closureN_tag;
 c_733503.fn = (function_type)__lambda_94;
c_733503.num_args = 1;
c_733503.num_elements = 2;
c_733503.elements = (object *)alloca(sizeof(object) * 2);
c_733503.elements[0] = ((closureN)self_73929)->elements[0];
c_733503.elements[1] = ((closureN)self_73929)->elements[2];

return_closcall4(data,  __glo__list_scheme_base,  &c_733503, quote_implies, ((closureN)self_73929)->elements[1], r_73460);; 
}

static void __lambda_94(void *data, int argc, object self_73930, object r_73457) {
  return_closcall2(data,  car(((closureN)self_73930)->elements[1]),  ((closureN)self_73930)->elements[0], r_73457);; 
}

static void __lambda_93(void *data, int argc, object self_73931, object r_73398) {
  
closureN_type c_731446;
c_731446.hdr.mark = gc_color_red;
 c_731446.hdr.grayed = 0;
c_731446.tag = closureN_tag;
 c_731446.fn = (function_type)__lambda_87;
c_731446.num_args = 1;
c_731446.num_elements = 12;
c_731446.elements = (object *)alloca(sizeof(object) * 12);
c_731446.elements[0] = ((closureN)self_73931)->elements[0];
c_731446.elements[1] = ((closureN)self_73931)->elements[1];
c_731446.elements[2] = ((closureN)self_73931)->elements[2];
c_731446.elements[3] = ((closureN)self_73931)->elements[3];
c_731446.elements[4] = ((closureN)self_73931)->elements[4];
c_731446.elements[5] = ((closureN)self_73931)->elements[5];
c_731446.elements[6] = ((closureN)self_73931)->elements[6];
c_731446.elements[7] = ((closureN)self_73931)->elements[7];
c_731446.elements[8] = ((closureN)self_73931)->elements[8];
c_731446.elements[9] = ((closureN)self_73931)->elements[9];
c_731446.elements[10] = ((closureN)self_73931)->elements[11];
c_731446.elements[11] = ((closureN)self_73931)->elements[12];


closureN_type c_733461;
c_733461.hdr.mark = gc_color_red;
 c_733461.hdr.grayed = 0;
c_733461.tag = closureN_tag;
 c_733461.fn = (function_type)__lambda_92;
c_733461.num_args = 1;
c_733461.num_elements = 1;
c_733461.elements = (object *)alloca(sizeof(object) * 1);
c_733461.elements[0] = ((closureN)self_73931)->elements[10];

return_closcall1(data,(closure)&c_731446,  Cyc_set_cell(data, ((closureN)self_73931)->elements[10], &c_733461));; 
}

static void __lambda_92(void *data, int argc, object self_73932, object k_73446, object n_73265) {
  
closureN_type c_733463;
c_733463.hdr.mark = gc_color_red;
 c_733463.hdr.grayed = 0;
c_733463.tag = closureN_tag;
 c_733463.fn = (function_type)__lambda_91;
c_733463.num_args = 1;
c_733463.num_elements = 3;
c_733463.elements = (object *)alloca(sizeof(object) * 3);
c_733463.elements[0] = k_73446;
c_733463.elements[1] = n_73265;
c_733463.elements[2] = ((closureN)self_73932)->elements[0];

return_closcall1(data,(closure)&c_733463,  equalp(n_73265, obj_int2obj(1)));; 
}

static void __lambda_91(void *data, int argc, object self_73933, object r_73447) {
  if( (boolean_f != r_73447) ){ 
  return_closcall4(data,  __glo__list_scheme_base,  ((closureN)self_73933)->elements[0], quote_implies, obj_int2obj(0), obj_int2obj(1));
} else { 
  
closureN_type c_733467;
c_733467.hdr.mark = gc_color_red;
 c_733467.hdr.grayed = 0;
c_733467.tag = closureN_tag;
 c_733467.fn = (function_type)__lambda_90;
c_733467.num_args = 1;
c_733467.num_elements = 3;
c_733467.elements = (object *)alloca(sizeof(object) * 3);
c_733467.elements[0] = ((closureN)self_73933)->elements[0];
c_733467.elements[1] = ((closureN)self_73933)->elements[1];
c_733467.elements[2] = ((closureN)self_73933)->elements[2];


double_type local_733486; object c_733487 = Cyc_fast_sub(data,&local_733486,((closureN)self_73933)->elements[1], obj_int2obj(1));
return_closcall1(data,(closure)&c_733467,  c_733487);}
; 
}

static void __lambda_90(void *data, int argc, object self_73934, object r_73454) {
  
closureN_type c_733469;
c_733469.hdr.mark = gc_color_red;
 c_733469.hdr.grayed = 0;
c_733469.tag = closureN_tag;
 c_733469.fn = (function_type)__lambda_89;
c_733469.num_args = 1;
c_733469.num_elements = 3;
c_733469.elements = (object *)alloca(sizeof(object) * 3);
c_733469.elements[0] = ((closureN)self_73934)->elements[0];
c_733469.elements[1] = ((closureN)self_73934)->elements[1];
c_733469.elements[2] = ((closureN)self_73934)->elements[2];

return_closcall4(data,  __glo__list_scheme_base,  &c_733469, quote_implies, r_73454, ((closureN)self_73934)->elements[1]);; 
}

static void __lambda_89(void *data, int argc, object self_73935, object r_73450) {
  
closureN_type c_733474;
c_733474.hdr.mark = gc_color_red;
 c_733474.hdr.grayed = 0;
c_733474.tag = closureN_tag;
 c_733474.fn = (function_type)__lambda_88;
c_733474.num_args = 1;
c_733474.num_elements = 2;
c_733474.elements = (object *)alloca(sizeof(object) * 2);
c_733474.elements[0] = ((closureN)self_73935)->elements[0];
c_733474.elements[1] = r_73450;


double_type local_733480; object c_733481 = Cyc_fast_sub(data,&local_733480,((closureN)self_73935)->elements[1], obj_int2obj(1));
return_closcall2(data,  car(((closureN)self_73935)->elements[2]),  &c_733474, c_733481);; 
}

static void __lambda_88(void *data, int argc, object self_73936, object r_73451) {
  return_closcall4(data,  __glo__list_scheme_base,  ((closureN)self_73936)->elements[0], quote_and, ((closureN)self_73936)->elements[1], r_73451);; 
}

static void __lambda_87(void *data, int argc, object self_73937, object r_73399) {
  
closureN_type c_731448;
c_731448.hdr.mark = gc_color_red;
 c_731448.hdr.grayed = 0;
c_731448.tag = closureN_tag;
 c_731448.fn = (function_type)__lambda_85;
c_731448.num_args = 1;
c_731448.num_elements = 12;
c_731448.elements = (object *)alloca(sizeof(object) * 12);
c_731448.elements[0] = ((closureN)self_73937)->elements[0];
c_731448.elements[1] = ((closureN)self_73937)->elements[1];
c_731448.elements[2] = ((closureN)self_73937)->elements[2];
c_731448.elements[3] = ((closureN)self_73937)->elements[3];
c_731448.elements[4] = ((closureN)self_73937)->elements[4];
c_731448.elements[5] = ((closureN)self_73937)->elements[5];
c_731448.elements[6] = ((closureN)self_73937)->elements[6];
c_731448.elements[7] = ((closureN)self_73937)->elements[7];
c_731448.elements[8] = ((closureN)self_73937)->elements[8];
c_731448.elements[9] = ((closureN)self_73937)->elements[9];
c_731448.elements[10] = ((closureN)self_73937)->elements[10];
c_731448.elements[11] = ((closureN)self_73937)->elements[11];


closureN_type c_733434;
c_733434.hdr.mark = gc_color_red;
 c_733434.hdr.grayed = 0;
c_733434.tag = closureN_tag;
 c_733434.fn = (function_type)__lambda_86;
c_733434.num_args = 2;
c_733434.num_elements = 1;
c_733434.elements = (object *)alloca(sizeof(object) * 1);
c_733434.elements[0] = ((closureN)self_73937)->elements[6];

return_closcall1(data,(closure)&c_731448,  Cyc_set_cell(data, ((closureN)self_73937)->elements[7], &c_733434));; 
}

static void __lambda_86(void *data, int argc, object self_73938, object k_73437, object x_73264, object y_73263) {
  if( (boolean_f != Cyc_is_pair(x_73264)) ){ 
  if( (boolean_f != Cyc_is_pair(y_73263)) ){ 
  if( (boolean_f != Cyc_eq(Cyc_car(data, x_73264), Cyc_car(data, y_73263))) ){ 
  return_closcall3(data,  car(((closureN)self_73938)->elements[0]),  k_73437, Cyc_cdr(data, x_73264), Cyc_cdr(data, y_73263));
} else { 
  return_closcall1(data,  k_73437,  boolean_f);}

} else { 
  return_closcall1(data,  k_73437,  boolean_f);}

} else { 
  return_closcall1(data,  k_73437,  equalp(x_73264, y_73263));}
; 
}

static void __lambda_85(void *data, int argc, object self_73939, object r_73400) {
  
closureN_type c_731450;
c_731450.hdr.mark = gc_color_red;
 c_731450.hdr.grayed = 0;
c_731450.tag = closureN_tag;
 c_731450.fn = (function_type)__lambda_82;
c_731450.num_args = 1;
c_731450.num_elements = 11;
c_731450.elements = (object *)alloca(sizeof(object) * 11);
c_731450.elements[0] = ((closureN)self_73939)->elements[0];
c_731450.elements[1] = ((closureN)self_73939)->elements[1];
c_731450.elements[2] = ((closureN)self_73939)->elements[2];
c_731450.elements[3] = ((closureN)self_73939)->elements[3];
c_731450.elements[4] = ((closureN)self_73939)->elements[4];
c_731450.elements[5] = ((closureN)self_73939)->elements[5];
c_731450.elements[6] = ((closureN)self_73939)->elements[7];
c_731450.elements[7] = ((closureN)self_73939)->elements[8];
c_731450.elements[8] = ((closureN)self_73939)->elements[9];
c_731450.elements[9] = ((closureN)self_73939)->elements[10];
c_731450.elements[10] = ((closureN)self_73939)->elements[11];


closureN_type c_733400;
c_733400.hdr.mark = gc_color_red;
 c_733400.hdr.grayed = 0;
c_733400.tag = closureN_tag;
 c_733400.fn = (function_type)__lambda_84;
c_733400.num_args = 2;
c_733400.num_elements = 2;
c_733400.elements = (object *)alloca(sizeof(object) * 2);
c_733400.elements[0] = ((closureN)self_73939)->elements[6];
c_733400.elements[1] = ((closureN)self_73939)->elements[7];

return_closcall1(data,(closure)&c_731450,  Cyc_set_cell(data, ((closureN)self_73939)->elements[6], &c_733400));; 
}

static void __lambda_84(void *data, int argc, object self_73940, object k_73428, object lst1_73262, object lst2_73261) {
  if( (boolean_f != Cyc_is_null(lst1_73262)) ){ 
  return_closcall1(data,  k_73428,  Cyc_is_null(lst2_73261));
} else { 
  if( (boolean_f != Cyc_is_null(lst2_73261)) ){ 
  return_closcall1(data,  k_73428,  boolean_f);
} else { 
  
closureN_type c_733413;
c_733413.hdr.mark = gc_color_red;
 c_733413.hdr.grayed = 0;
c_733413.tag = closureN_tag;
 c_733413.fn = (function_type)__lambda_83;
c_733413.num_args = 1;
c_733413.num_elements = 4;
c_733413.elements = (object *)alloca(sizeof(object) * 4);
c_733413.elements[0] = k_73428;
c_733413.elements[1] = lst1_73262;
c_733413.elements[2] = lst2_73261;
c_733413.elements[3] = ((closureN)self_73940)->elements[0];

return_closcall3(data,  car(((closureN)self_73940)->elements[1]),  &c_733413, Cyc_car(data, lst1_73262), Cyc_car(data, lst2_73261));}
}
; 
}

static void __lambda_83(void *data, int argc, object self_73941, object r_73431) {
  if( (boolean_f != r_73431) ){ 
  return_closcall3(data,  car(((closureN)self_73941)->elements[3]),  ((closureN)self_73941)->elements[0], Cyc_cdr(data, ((closureN)self_73941)->elements[1]), Cyc_cdr(data, ((closureN)self_73941)->elements[2]));
} else { 
  return_closcall1(data,  ((closureN)self_73941)->elements[0],  boolean_f);}
; 
}

static void __lambda_82(void *data, int argc, object self_73942, object r_73401) {
  
closureN_type c_731452;
c_731452.hdr.mark = gc_color_red;
 c_731452.hdr.grayed = 0;
c_731452.tag = closureN_tag;
 c_731452.fn = (function_type)__lambda_79;
c_731452.num_args = 1;
c_731452.num_elements = 9;
c_731452.elements = (object *)alloca(sizeof(object) * 9);
c_731452.elements[0] = ((closureN)self_73942)->elements[0];
c_731452.elements[1] = ((closureN)self_73942)->elements[1];
c_731452.elements[2] = ((closureN)self_73942)->elements[2];
c_731452.elements[3] = ((closureN)self_73942)->elements[3];
c_731452.elements[4] = ((closureN)self_73942)->elements[4];
c_731452.elements[5] = ((closureN)self_73942)->elements[5];
c_731452.elements[6] = ((closureN)self_73942)->elements[8];
c_731452.elements[7] = ((closureN)self_73942)->elements[9];
c_731452.elements[8] = ((closureN)self_73942)->elements[10];


closureN_type c_733375;
c_733375.hdr.mark = gc_color_red;
 c_733375.hdr.grayed = 0;
c_733375.tag = closureN_tag;
 c_733375.fn = (function_type)__lambda_81;
c_733375.num_args = 2;
c_733375.num_elements = 2;
c_733375.elements = (object *)alloca(sizeof(object) * 2);
c_733375.elements[0] = ((closureN)self_73942)->elements[6];
c_733375.elements[1] = ((closureN)self_73942)->elements[7];

return_closcall1(data,(closure)&c_731452,  Cyc_set_cell(data, ((closureN)self_73942)->elements[7], &c_733375));; 
}

static void __lambda_81(void *data, int argc, object self_73943, object k_73422, object x_73260, object lst_73259) {
  if( (boolean_f != Cyc_is_null(lst_73259)) ){ 
  return_closcall1(data,  k_73422,  boolean_f);
} else { 
  
closureN_type c_733383;
c_733383.hdr.mark = gc_color_red;
 c_733383.hdr.grayed = 0;
c_733383.tag = closureN_tag;
 c_733383.fn = (function_type)__lambda_80;
c_733383.num_args = 1;
c_733383.num_elements = 4;
c_733383.elements = (object *)alloca(sizeof(object) * 4);
c_733383.elements[0] = k_73422;
c_733383.elements[1] = lst_73259;
c_733383.elements[2] = ((closureN)self_73943)->elements[1];
c_733383.elements[3] = x_73260;

return_closcall3(data,  car(((closureN)self_73943)->elements[0]),  &c_733383, x_73260, Cyc_car(data, lst_73259));}
; 
}

static void __lambda_80(void *data, int argc, object self_73944, object r_73424) {
  if( (boolean_f != r_73424) ){ 
  return_closcall1(data,  ((closureN)self_73944)->elements[0],  boolean_t);
} else { 
  return_closcall3(data,  car(((closureN)self_73944)->elements[2]),  ((closureN)self_73944)->elements[0], ((closureN)self_73944)->elements[3], Cyc_cdr(data, ((closureN)self_73944)->elements[1]));}
; 
}

static void __lambda_79(void *data, int argc, object self_73945, object r_73402) {
  
closureN_type c_731454;
c_731454.hdr.mark = gc_color_red;
 c_731454.hdr.grayed = 0;
c_731454.tag = closureN_tag;
 c_731454.fn = (function_type)__lambda_70;
c_731454.num_args = 1;
c_731454.num_elements = 2;
c_731454.elements = (object *)alloca(sizeof(object) * 2);
c_731454.elements[0] = ((closureN)self_73945)->elements[4];
c_731454.elements[1] = ((closureN)self_73945)->elements[6];


closureN_type c_731482;
c_731482.hdr.mark = gc_color_red;
 c_731482.hdr.grayed = 0;
c_731482.tag = closureN_tag;
 c_731482.fn = (function_type)__lambda_78;
c_731482.num_args = 0;
c_731482.num_elements = 7;
c_731482.elements = (object *)alloca(sizeof(object) * 7);
c_731482.elements[0] = ((closureN)self_73945)->elements[0];
c_731482.elements[1] = ((closureN)self_73945)->elements[1];
c_731482.elements[2] = ((closureN)self_73945)->elements[2];
c_731482.elements[3] = ((closureN)self_73945)->elements[3];
c_731482.elements[4] = ((closureN)self_73945)->elements[5];
c_731482.elements[5] = ((closureN)self_73945)->elements[7];
c_731482.elements[6] = ((closureN)self_73945)->elements[8];

return_closcall1(data,(closure)&c_731454,  global_set(__glo_setup_91boyer, &c_731482));; 
}

static void __lambda_78(void *data, int argc, object self_73946, object k_73409) {
  
closureN_type c_731484;
c_731484.hdr.mark = gc_color_red;
 c_731484.hdr.grayed = 0;
c_731484.tag = closureN_tag;
 c_731484.fn = (function_type)__lambda_77;
c_731484.num_args = 1;
c_731484.num_elements = 7;
c_731484.elements = (object *)alloca(sizeof(object) * 7);
c_731484.elements[0] = ((closureN)self_73946)->elements[1];
c_731484.elements[1] = ((closureN)self_73946)->elements[2];
c_731484.elements[2] = ((closureN)self_73946)->elements[3];
c_731484.elements[3] = k_73409;
c_731484.elements[4] = ((closureN)self_73946)->elements[4];
c_731484.elements[5] = ((closureN)self_73946)->elements[5];
c_731484.elements[6] = ((closureN)self_73946)->elements[6];

return_closcall1(data,(closure)&c_731484,  Cyc_set_cell(data, ((closureN)self_73946)->elements[0], NULL));; 
}

static void __lambda_77(void *data, int argc, object self_73947, object r_73410) {
  
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_76;
c_731489.num_args = 1;
c_731489.num_elements = 6;
c_731489.elements = (object *)alloca(sizeof(object) * 6);
c_731489.elements[0] = ((closureN)self_73947)->elements[0];
c_731489.elements[1] = ((closureN)self_73947)->elements[1];
c_731489.elements[2] = ((closureN)self_73947)->elements[2];
c_731489.elements[3] = ((closureN)self_73947)->elements[3];
c_731489.elements[4] = ((closureN)self_73947)->elements[5];
c_731489.elements[5] = ((closureN)self_73947)->elements[6];

return_closcall2(data,  car(((closureN)self_73947)->elements[4]),  &c_731489, quote__if);; 
}

static void __lambda_76(void *data, int argc, object self_73948, object r_73418) {
  
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_75;
c_731491.num_args = 1;
c_731491.num_elements = 5;
c_731491.elements = (object *)alloca(sizeof(object) * 5);
c_731491.elements[0] = ((closureN)self_73948)->elements[0];
c_731491.elements[1] = ((closureN)self_73948)->elements[1];
c_731491.elements[2] = ((closureN)self_73948)->elements[3];
c_731491.elements[3] = ((closureN)self_73948)->elements[4];
c_731491.elements[4] = ((closureN)self_73948)->elements[5];

return_closcall1(data,(closure)&c_731491,  Cyc_set_cell(data, ((closureN)self_73948)->elements[2], r_73418));; 
}

static void __lambda_75(void *data, int argc, object self_73949, object r_73411) {
  
closureN_type c_731496;
c_731496.hdr.mark = gc_color_red;
 c_731496.hdr.grayed = 0;
c_731496.tag = closureN_tag;
 c_731496.fn = (function_type)__lambda_74;
c_731496.num_args = 1;
c_731496.num_elements = 5;
c_731496.elements = (object *)alloca(sizeof(object) * 5);
c_731496.elements[0] = ((closureN)self_73949)->elements[0];
c_731496.elements[1] = ((closureN)self_73949)->elements[1];
c_731496.elements[2] = ((closureN)self_73949)->elements[2];
c_731496.elements[3] = ((closureN)self_73949)->elements[3];
c_731496.elements[4] = ((closureN)self_73949)->elements[4];


make_pair(c_733365,quote_f,NULL);
return_closcall2(data,  car(((closureN)self_73949)->elements[3]),  &c_731496, &c_733365);; 
}

static void __lambda_74(void *data, int argc, object self_73950, object r_73416) {
  
closureN_type c_731498;
c_731498.hdr.mark = gc_color_red;
 c_731498.hdr.grayed = 0;
c_731498.tag = closureN_tag;
 c_731498.fn = (function_type)__lambda_73;
c_731498.num_args = 1;
c_731498.num_elements = 4;
c_731498.elements = (object *)alloca(sizeof(object) * 4);
c_731498.elements[0] = ((closureN)self_73950)->elements[0];
c_731498.elements[1] = ((closureN)self_73950)->elements[2];
c_731498.elements[2] = ((closureN)self_73950)->elements[3];
c_731498.elements[3] = ((closureN)self_73950)->elements[4];

return_closcall1(data,(closure)&c_731498,  Cyc_set_cell(data, ((closureN)self_73950)->elements[1], r_73416));; 
}

static void __lambda_73(void *data, int argc, object self_73951, object r_73412) {
  
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_72;
c_731503.num_args = 1;
c_731503.num_elements = 3;
c_731503.elements = (object *)alloca(sizeof(object) * 3);
c_731503.elements[0] = ((closureN)self_73951)->elements[0];
c_731503.elements[1] = ((closureN)self_73951)->elements[1];
c_731503.elements[2] = ((closureN)self_73951)->elements[3];


make_pair(c_733361,quote_t,NULL);
return_closcall2(data,  car(((closureN)self_73951)->elements[2]),  &c_731503, &c_733361);; 
}

static void __lambda_72(void *data, int argc, object self_73952, object r_73414) {
  
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_71;
c_731505.num_args = 1;
c_731505.num_elements = 2;
c_731505.elements = (object *)alloca(sizeof(object) * 2);
c_731505.elements[0] = ((closureN)self_73952)->elements[0];
c_731505.elements[1] = ((closureN)self_73952)->elements[1];

return_closcall1(data,(closure)&c_731505,  Cyc_set_cell(data, ((closureN)self_73952)->elements[2], r_73414));; 
}

static void __lambda_71(void *data, int argc, object self_73953, object r_73413) {
  
make_pair(c_731515,quote_form,NULL);

make_pair(c_731514,quote_compile,&c_731515);

make_pair(c_731522,quote_form,NULL);

make_pair(c_731521,quote_optimize,&c_731522);

make_pair(c_731524,quote_nil,NULL);

make_pair(c_731523,&c_731524,NULL);

make_pair(c_731520,&c_731521,&c_731523);

make_pair(c_731519,quote_codegen,&c_731520);

make_pair(c_731518,&c_731519,NULL);

make_pair(c_731517,quote_reverse,&c_731518);

make_pair(c_731516,&c_731517,NULL);

make_pair(c_731513,&c_731514,&c_731516);

make_pair(c_731512,quote_equal,&c_731513);

make_pair(c_731530,quote_y,NULL);

make_pair(c_731529,quote_x,&c_731530);

make_pair(c_731528,quote_eqp,&c_731529);

make_pair(c_731535,quote_x,NULL);

make_pair(c_731534,quote_fix,&c_731535);

make_pair(c_731538,quote_y,NULL);

make_pair(c_731537,quote_fix,&c_731538);

make_pair(c_731536,&c_731537,NULL);

make_pair(c_731533,&c_731534,&c_731536);

make_pair(c_731532,quote_equal,&c_731533);

make_pair(c_731531,&c_731532,NULL);

make_pair(c_731527,&c_731528,&c_731531);

make_pair(c_731526,quote_equal,&c_731527);

make_pair(c_731544,quote_y,NULL);

make_pair(c_731543,quote_x,&c_731544);

make_pair(c_731542,quote_greaterp,&c_731543);

make_pair(c_731548,quote_x,NULL);

make_pair(c_731547,quote_y,&c_731548);

make_pair(c_731546,quote_lessp,&c_731547);

make_pair(c_731545,&c_731546,NULL);

make_pair(c_731541,&c_731542,&c_731545);

make_pair(c_731540,quote_equal,&c_731541);

make_pair(c_731554,quote_y,NULL);

make_pair(c_731553,quote_x,&c_731554);

make_pair(c_731552,quote_lesseqp,&c_731553);

make_pair(c_731560,quote_x,NULL);

make_pair(c_731559,quote_y,&c_731560);

make_pair(c_731558,quote_lessp,&c_731559);

make_pair(c_731557,&c_731558,NULL);

make_pair(c_731556,quote_not,&c_731557);

make_pair(c_731555,&c_731556,NULL);

make_pair(c_731551,&c_731552,&c_731555);

make_pair(c_731550,quote_equal,&c_731551);

make_pair(c_731566,quote_y,NULL);

make_pair(c_731565,quote_x,&c_731566);

make_pair(c_731564,quote_greatereqp,&c_731565);

make_pair(c_731572,quote_y,NULL);

make_pair(c_731571,quote_x,&c_731572);

make_pair(c_731570,quote_lessp,&c_731571);

make_pair(c_731569,&c_731570,NULL);

make_pair(c_731568,quote_not,&c_731569);

make_pair(c_731567,&c_731568,NULL);

make_pair(c_731563,&c_731564,&c_731567);

make_pair(c_731562,quote_equal,&c_731563);

make_pair(c_731577,quote_x,NULL);

make_pair(c_731576,quote_boolean,&c_731577);

make_pair(c_731584,quote_t,NULL);

make_pair(c_731583,&c_731584,NULL);

make_pair(c_731582,quote_x,&c_731583);

make_pair(c_731581,quote_equal,&c_731582);

make_pair(c_731589,quote_f,NULL);

make_pair(c_731588,&c_731589,NULL);

make_pair(c_731587,quote_x,&c_731588);

make_pair(c_731586,quote_equal,&c_731587);

make_pair(c_731585,&c_731586,NULL);

make_pair(c_731580,&c_731581,&c_731585);

make_pair(c_731579,quote_or,&c_731580);

make_pair(c_731578,&c_731579,NULL);

make_pair(c_731575,&c_731576,&c_731578);

make_pair(c_731574,quote_equal,&c_731575);

make_pair(c_731595,quote_y,NULL);

make_pair(c_731594,quote_x,&c_731595);

make_pair(c_731593,quote_iff,&c_731594);

make_pair(c_731601,quote_y,NULL);

make_pair(c_731600,quote_x,&c_731601);

make_pair(c_731599,quote_implies,&c_731600);

make_pair(c_731605,quote_x,NULL);

make_pair(c_731604,quote_y,&c_731605);

make_pair(c_731603,quote_implies,&c_731604);

make_pair(c_731602,&c_731603,NULL);

make_pair(c_731598,&c_731599,&c_731602);

make_pair(c_731597,quote_and,&c_731598);

make_pair(c_731596,&c_731597,NULL);

make_pair(c_731592,&c_731593,&c_731596);

make_pair(c_731591,quote_equal,&c_731592);

make_pair(c_731610,quote_x,NULL);

make_pair(c_731609,quote_even1,&c_731610);

make_pair(c_731615,quote_x,NULL);

make_pair(c_731614,quote_zerop,&c_731615);

make_pair(c_731617,quote_t,NULL);

make_pair(c_731622,quote_x,NULL);

make_pair(c_731621,quote__1911_91,&c_731622);

make_pair(c_731620,&c_731621,NULL);

make_pair(c_731619,quote_odd,&c_731620);

make_pair(c_731618,&c_731619,NULL);

make_pair(c_731616,&c_731617,&c_731618);

make_pair(c_731613,&c_731614,&c_731616);

make_pair(c_731612,quote__if,&c_731613);

make_pair(c_731611,&c_731612,NULL);

make_pair(c_731608,&c_731609,&c_731611);

make_pair(c_731607,quote_equal,&c_731608);

make_pair(c_731628,quote_pred,NULL);

make_pair(c_731627,quote_l,&c_731628);

make_pair(c_731626,quote_countps_91,&c_731627);

make_pair(c_731634,quote_zero,NULL);

make_pair(c_731633,&c_731634,NULL);

make_pair(c_731632,quote_pred,&c_731633);

make_pair(c_731631,quote_l,&c_731632);

make_pair(c_731630,quote_countps_91loop,&c_731631);

make_pair(c_731629,&c_731630,NULL);

make_pair(c_731625,&c_731626,&c_731629);

make_pair(c_731624,quote_equal,&c_731625);

make_pair(c_731639,quote_i,NULL);

make_pair(c_731638,quote_fact_91,&c_731639);

make_pair(c_731643,obj_int2obj(1),NULL);

make_pair(c_731642,quote_i,&c_731643);

make_pair(c_731641,quote_fact_91loop,&c_731642);

make_pair(c_731640,&c_731641,NULL);

make_pair(c_731637,&c_731638,&c_731640);

make_pair(c_731636,quote_equal,&c_731637);

make_pair(c_731648,quote_x,NULL);

make_pair(c_731647,quote_reverse_91,&c_731648);

make_pair(c_731653,quote_nil,NULL);

make_pair(c_731652,&c_731653,NULL);

make_pair(c_731651,quote_x,&c_731652);

make_pair(c_731650,quote_reverse_91loop,&c_731651);

make_pair(c_731649,&c_731650,NULL);

make_pair(c_731646,&c_731647,&c_731649);

make_pair(c_731645,quote_equal,&c_731646);

make_pair(c_731659,quote_y,NULL);

make_pair(c_731658,quote_x,&c_731659);

make_pair(c_731657,quote_divides,&c_731658);

make_pair(c_731665,quote_x,NULL);

make_pair(c_731664,quote_y,&c_731665);

make_pair(c_731663,quote_remainder,&c_731664);

make_pair(c_731662,&c_731663,NULL);

make_pair(c_731661,quote_zerop,&c_731662);

make_pair(c_731660,&c_731661,NULL);

make_pair(c_731656,&c_731657,&c_731660);

make_pair(c_731655,quote_equal,&c_731656);

make_pair(c_731671,quote_alist,NULL);

make_pair(c_731670,quote_var,&c_731671);

make_pair(c_731669,quote_assume_91true,&c_731670);

make_pair(c_731678,quote_t,NULL);

make_pair(c_731677,&c_731678,NULL);

make_pair(c_731676,quote_var,&c_731677);

make_pair(c_731675,quote_cons,&c_731676);

make_pair(c_731679,quote_alist,NULL);

make_pair(c_731674,&c_731675,&c_731679);

make_pair(c_731673,quote_cons,&c_731674);

make_pair(c_731672,&c_731673,NULL);

make_pair(c_731668,&c_731669,&c_731672);

make_pair(c_731667,quote_equal,&c_731668);

make_pair(c_731685,quote_alist,NULL);

make_pair(c_731684,quote_var,&c_731685);

make_pair(c_731683,quote_assume_91false,&c_731684);

make_pair(c_731692,quote_f,NULL);

make_pair(c_731691,&c_731692,NULL);

make_pair(c_731690,quote_var,&c_731691);

make_pair(c_731689,quote_cons,&c_731690);

make_pair(c_731693,quote_alist,NULL);

make_pair(c_731688,&c_731689,&c_731693);

make_pair(c_731687,quote_cons,&c_731688);

make_pair(c_731686,&c_731687,NULL);

make_pair(c_731682,&c_731683,&c_731686);

make_pair(c_731681,quote_equal,&c_731682);

make_pair(c_731698,quote_x,NULL);

make_pair(c_731697,quote_tautology_91checker,&c_731698);

make_pair(c_731703,quote_x,NULL);

make_pair(c_731702,quote_normalize,&c_731703);

make_pair(c_731705,quote_nil,NULL);

make_pair(c_731704,&c_731705,NULL);

make_pair(c_731701,&c_731702,&c_731704);

make_pair(c_731700,quote_tautologyp,&c_731701);

make_pair(c_731699,&c_731700,NULL);

make_pair(c_731696,&c_731697,&c_731699);

make_pair(c_731695,quote_equal,&c_731696);

make_pair(c_731710,quote_x,NULL);

make_pair(c_731709,quote_falsify,&c_731710);

make_pair(c_731715,quote_x,NULL);

make_pair(c_731714,quote_normalize,&c_731715);

make_pair(c_731717,quote_nil,NULL);

make_pair(c_731716,&c_731717,NULL);

make_pair(c_731713,&c_731714,&c_731716);

make_pair(c_731712,quote_falsify1,&c_731713);

make_pair(c_731711,&c_731712,NULL);

make_pair(c_731708,&c_731709,&c_731711);

make_pair(c_731707,quote_equal,&c_731708);

make_pair(c_731722,quote_x,NULL);

make_pair(c_731721,quote_prime,&c_731722);

make_pair(c_731729,quote_x,NULL);

make_pair(c_731728,quote_zerop,&c_731729);

make_pair(c_731727,&c_731728,NULL);

make_pair(c_731726,quote_not,&c_731727);

make_pair(c_731738,quote_zero,NULL);

make_pair(c_731737,&c_731738,NULL);

make_pair(c_731736,quote_add1,&c_731737);

make_pair(c_731735,&c_731736,NULL);

make_pair(c_731734,quote_x,&c_731735);

make_pair(c_731733,quote_equal,&c_731734);

make_pair(c_731732,&c_731733,NULL);

make_pair(c_731731,quote_not,&c_731732);

make_pair(c_731744,quote_x,NULL);

make_pair(c_731743,quote__1911_91,&c_731744);

make_pair(c_731742,&c_731743,NULL);

make_pair(c_731741,quote_x,&c_731742);

make_pair(c_731740,quote_prime1,&c_731741);

make_pair(c_731739,&c_731740,NULL);

make_pair(c_731730,&c_731731,&c_731739);

make_pair(c_731725,&c_731726,&c_731730);

make_pair(c_731724,quote_and,&c_731725);

make_pair(c_731723,&c_731724,NULL);

make_pair(c_731720,&c_731721,&c_731723);

make_pair(c_731719,quote_equal,&c_731720);

make_pair(c_731750,quote_q,NULL);

make_pair(c_731749,quote_p,&c_731750);

make_pair(c_731748,quote_and,&c_731749);

make_pair(c_731758,quote_t,NULL);

make_pair(c_731760,quote_f,NULL);

make_pair(c_731759,&c_731760,NULL);

make_pair(c_731757,&c_731758,&c_731759);

make_pair(c_731756,quote_q,&c_731757);

make_pair(c_731755,quote__if,&c_731756);

make_pair(c_731762,quote_f,NULL);

make_pair(c_731761,&c_731762,NULL);

make_pair(c_731754,&c_731755,&c_731761);

make_pair(c_731753,quote_p,&c_731754);

make_pair(c_731752,quote__if,&c_731753);

make_pair(c_731751,&c_731752,NULL);

make_pair(c_731747,&c_731748,&c_731751);

make_pair(c_731746,quote_equal,&c_731747);

make_pair(c_731768,quote_q,NULL);

make_pair(c_731767,quote_p,&c_731768);

make_pair(c_731766,quote_or,&c_731767);

make_pair(c_731773,quote_t,NULL);

make_pair(c_731778,quote_t,NULL);

make_pair(c_731780,quote_f,NULL);

make_pair(c_731779,&c_731780,NULL);

make_pair(c_731777,&c_731778,&c_731779);

make_pair(c_731776,quote_q,&c_731777);

make_pair(c_731775,quote__if,&c_731776);

make_pair(c_731774,&c_731775,NULL);

make_pair(c_731772,&c_731773,&c_731774);

make_pair(c_731771,quote_p,&c_731772);

make_pair(c_731770,quote__if,&c_731771);

make_pair(c_731769,&c_731770,NULL);

make_pair(c_731765,&c_731766,&c_731769);

make_pair(c_731764,quote_equal,&c_731765);

make_pair(c_731785,quote_p,NULL);

make_pair(c_731784,quote_not,&c_731785);

make_pair(c_731790,quote_f,NULL);

make_pair(c_731792,quote_t,NULL);

make_pair(c_731791,&c_731792,NULL);

make_pair(c_731789,&c_731790,&c_731791);

make_pair(c_731788,quote_p,&c_731789);

make_pair(c_731787,quote__if,&c_731788);

make_pair(c_731786,&c_731787,NULL);

make_pair(c_731783,&c_731784,&c_731786);

make_pair(c_731782,quote_equal,&c_731783);

make_pair(c_731798,quote_q,NULL);

make_pair(c_731797,quote_p,&c_731798);

make_pair(c_731796,quote_implies,&c_731797);

make_pair(c_731806,quote_t,NULL);

make_pair(c_731808,quote_f,NULL);

make_pair(c_731807,&c_731808,NULL);

make_pair(c_731805,&c_731806,&c_731807);

make_pair(c_731804,quote_q,&c_731805);

make_pair(c_731803,quote__if,&c_731804);

make_pair(c_731810,quote_t,NULL);

make_pair(c_731809,&c_731810,NULL);

make_pair(c_731802,&c_731803,&c_731809);

make_pair(c_731801,quote_p,&c_731802);

make_pair(c_731800,quote__if,&c_731801);

make_pair(c_731799,&c_731800,NULL);

make_pair(c_731795,&c_731796,&c_731799);

make_pair(c_731794,quote_equal,&c_731795);

make_pair(c_731815,quote_x,NULL);

make_pair(c_731814,quote_fix,&c_731815);

make_pair(c_731820,quote_x,NULL);

make_pair(c_731819,quote_numberp,&c_731820);

make_pair(c_731823,quote_zero,NULL);

make_pair(c_731822,&c_731823,NULL);

make_pair(c_731821,quote_x,&c_731822);

make_pair(c_731818,&c_731819,&c_731821);

make_pair(c_731817,quote__if,&c_731818);

make_pair(c_731816,&c_731817,NULL);

make_pair(c_731813,&c_731814,&c_731816);

make_pair(c_731812,quote_equal,&c_731813);

make_pair(c_731832,quote_c,NULL);

make_pair(c_731831,quote_b,&c_731832);

make_pair(c_731830,quote_a,&c_731831);

make_pair(c_731829,quote__if,&c_731830);

make_pair(c_731834,quote_e,NULL);

make_pair(c_731833,quote_d,&c_731834);

make_pair(c_731828,&c_731829,&c_731833);

make_pair(c_731827,quote__if,&c_731828);

make_pair(c_731842,quote_e,NULL);

make_pair(c_731841,quote_d,&c_731842);

make_pair(c_731840,quote_b,&c_731841);

make_pair(c_731839,quote__if,&c_731840);

make_pair(c_731847,quote_e,NULL);

make_pair(c_731846,quote_d,&c_731847);

make_pair(c_731845,quote_c,&c_731846);

make_pair(c_731844,quote__if,&c_731845);

make_pair(c_731843,&c_731844,NULL);

make_pair(c_731838,&c_731839,&c_731843);

make_pair(c_731837,quote_a,&c_731838);

make_pair(c_731836,quote__if,&c_731837);

make_pair(c_731835,&c_731836,NULL);

make_pair(c_731826,&c_731827,&c_731835);

make_pair(c_731825,quote_equal,&c_731826);

make_pair(c_731852,quote_x,NULL);

make_pair(c_731851,quote_zerop,&c_731852);

make_pair(c_731859,quote_zero,NULL);

make_pair(c_731858,&c_731859,NULL);

make_pair(c_731857,quote_x,&c_731858);

make_pair(c_731856,quote_equal,&c_731857);

make_pair(c_731864,quote_x,NULL);

make_pair(c_731863,quote_numberp,&c_731864);

make_pair(c_731862,&c_731863,NULL);

make_pair(c_731861,quote_not,&c_731862);

make_pair(c_731860,&c_731861,NULL);

make_pair(c_731855,&c_731856,&c_731860);

make_pair(c_731854,quote_or,&c_731855);

make_pair(c_731853,&c_731854,NULL);

make_pair(c_731850,&c_731851,&c_731853);

make_pair(c_731849,quote_equal,&c_731850);

make_pair(c_731872,quote_y,NULL);

make_pair(c_731871,quote_x,&c_731872);

make_pair(c_731870,quote_plus,&c_731871);

make_pair(c_731873,quote_z,NULL);

make_pair(c_731869,&c_731870,&c_731873);

make_pair(c_731868,quote_plus,&c_731869);

make_pair(c_731880,quote_z,NULL);

make_pair(c_731879,quote_y,&c_731880);

make_pair(c_731878,quote_plus,&c_731879);

make_pair(c_731877,&c_731878,NULL);

make_pair(c_731876,quote_x,&c_731877);

make_pair(c_731875,quote_plus,&c_731876);

make_pair(c_731874,&c_731875,NULL);

make_pair(c_731867,&c_731868,&c_731874);

make_pair(c_731866,quote_equal,&c_731867);

make_pair(c_731888,quote_b,NULL);

make_pair(c_731887,quote_a,&c_731888);

make_pair(c_731886,quote_plus,&c_731887);

make_pair(c_731890,quote_zero,NULL);

make_pair(c_731889,&c_731890,NULL);

make_pair(c_731885,&c_731886,&c_731889);

make_pair(c_731884,quote_equal,&c_731885);

make_pair(c_731895,quote_a,NULL);

make_pair(c_731894,quote_zerop,&c_731895);

make_pair(c_731898,quote_b,NULL);

make_pair(c_731897,quote_zerop,&c_731898);

make_pair(c_731896,&c_731897,NULL);

make_pair(c_731893,&c_731894,&c_731896);

make_pair(c_731892,quote_and,&c_731893);

make_pair(c_731891,&c_731892,NULL);

make_pair(c_731883,&c_731884,&c_731891);

make_pair(c_731882,quote_equal,&c_731883);

make_pair(c_731904,quote_x,NULL);

make_pair(c_731903,quote_x,&c_731904);

make_pair(c_731902,quote_difference,&c_731903);

make_pair(c_731906,quote_zero,NULL);

make_pair(c_731905,&c_731906,NULL);

make_pair(c_731901,&c_731902,&c_731905);

make_pair(c_731900,quote_equal,&c_731901);

make_pair(c_731914,quote_b,NULL);

make_pair(c_731913,quote_a,&c_731914);

make_pair(c_731912,quote_plus,&c_731913);

make_pair(c_731918,quote_c,NULL);

make_pair(c_731917,quote_a,&c_731918);

make_pair(c_731916,quote_plus,&c_731917);

make_pair(c_731915,&c_731916,NULL);

make_pair(c_731911,&c_731912,&c_731915);

make_pair(c_731910,quote_equal,&c_731911);

make_pair(c_731923,quote_b,NULL);

make_pair(c_731922,quote_fix,&c_731923);

make_pair(c_731926,quote_c,NULL);

make_pair(c_731925,quote_fix,&c_731926);

make_pair(c_731924,&c_731925,NULL);

make_pair(c_731921,&c_731922,&c_731924);

make_pair(c_731920,quote_equal,&c_731921);

make_pair(c_731919,&c_731920,NULL);

make_pair(c_731909,&c_731910,&c_731919);

make_pair(c_731908,quote_equal,&c_731909);

make_pair(c_731932,quote_zero,NULL);

make_pair(c_731936,quote_y,NULL);

make_pair(c_731935,quote_x,&c_731936);

make_pair(c_731934,quote_difference,&c_731935);

make_pair(c_731933,&c_731934,NULL);

make_pair(c_731931,&c_731932,&c_731933);

make_pair(c_731930,quote_equal,&c_731931);

make_pair(c_731942,quote_x,NULL);

make_pair(c_731941,quote_y,&c_731942);

make_pair(c_731940,quote_lessp,&c_731941);

make_pair(c_731939,&c_731940,NULL);

make_pair(c_731938,quote_not,&c_731939);

make_pair(c_731937,&c_731938,NULL);

make_pair(c_731929,&c_731930,&c_731937);

make_pair(c_731928,quote_equal,&c_731929);

make_pair(c_731951,quote_y,NULL);

make_pair(c_731950,quote_x,&c_731951);

make_pair(c_731949,quote_difference,&c_731950);

make_pair(c_731948,&c_731949,NULL);

make_pair(c_731947,quote_x,&c_731948);

make_pair(c_731946,quote_equal,&c_731947);

make_pair(c_731956,quote_x,NULL);

make_pair(c_731955,quote_numberp,&c_731956);

make_pair(c_731963,quote_zero,NULL);

make_pair(c_731962,&c_731963,NULL);

make_pair(c_731961,quote_x,&c_731962);

make_pair(c_731960,quote_equal,&c_731961);

make_pair(c_731966,quote_y,NULL);

make_pair(c_731965,quote_zerop,&c_731966);

make_pair(c_731964,&c_731965,NULL);

make_pair(c_731959,&c_731960,&c_731964);

make_pair(c_731958,quote_or,&c_731959);

make_pair(c_731957,&c_731958,NULL);

make_pair(c_731954,&c_731955,&c_731957);

make_pair(c_731953,quote_and,&c_731954);

make_pair(c_731952,&c_731953,NULL);

make_pair(c_731945,&c_731946,&c_731952);

make_pair(c_731944,quote_equal,&c_731945);

make_pair(c_731976,quote_y,NULL);

make_pair(c_731975,quote_x,&c_731976);

make_pair(c_731974,quote_append,&c_731975);

make_pair(c_731973,&c_731974,NULL);

make_pair(c_731972,quote_plus_91tree,&c_731973);

make_pair(c_731977,quote_a,NULL);

make_pair(c_731971,&c_731972,&c_731977);

make_pair(c_731970,quote_meaning,&c_731971);

make_pair(c_731984,quote_x,NULL);

make_pair(c_731983,quote_plus_91tree,&c_731984);

make_pair(c_731985,quote_a,NULL);

make_pair(c_731982,&c_731983,&c_731985);

make_pair(c_731981,quote_meaning,&c_731982);

make_pair(c_731990,quote_y,NULL);

make_pair(c_731989,quote_plus_91tree,&c_731990);

make_pair(c_731991,quote_a,NULL);

make_pair(c_731988,&c_731989,&c_731991);

make_pair(c_731987,quote_meaning,&c_731988);

make_pair(c_731986,&c_731987,NULL);

make_pair(c_731980,&c_731981,&c_731986);

make_pair(c_731979,quote_plus,&c_731980);

make_pair(c_731978,&c_731979,NULL);

make_pair(c_731969,&c_731970,&c_731978);

make_pair(c_731968,quote_equal,&c_731969);

make_pair(c_732000,quote_x,NULL);

make_pair(c_731999,quote_plus_91fringe,&c_732000);

make_pair(c_731998,&c_731999,NULL);

make_pair(c_731997,quote_plus_91tree,&c_731998);

make_pair(c_732001,quote_a,NULL);

make_pair(c_731996,&c_731997,&c_732001);

make_pair(c_731995,quote_meaning,&c_731996);

make_pair(c_732007,quote_a,NULL);

make_pair(c_732006,quote_x,&c_732007);

make_pair(c_732005,quote_meaning,&c_732006);

make_pair(c_732004,&c_732005,NULL);

make_pair(c_732003,quote_fix,&c_732004);

make_pair(c_732002,&c_732003,NULL);

make_pair(c_731994,&c_731995,&c_732002);

make_pair(c_731993,quote_equal,&c_731994);

make_pair(c_732015,quote_y,NULL);

make_pair(c_732014,quote_x,&c_732015);

make_pair(c_732013,quote_append,&c_732014);

make_pair(c_732016,quote_z,NULL);

make_pair(c_732012,&c_732013,&c_732016);

make_pair(c_732011,quote_append,&c_732012);

make_pair(c_732023,quote_z,NULL);

make_pair(c_732022,quote_y,&c_732023);

make_pair(c_732021,quote_append,&c_732022);

make_pair(c_732020,&c_732021,NULL);

make_pair(c_732019,quote_x,&c_732020);

make_pair(c_732018,quote_append,&c_732019);

make_pair(c_732017,&c_732018,NULL);

make_pair(c_732010,&c_732011,&c_732017);

make_pair(c_732009,quote_equal,&c_732010);

make_pair(c_732031,quote_b,NULL);

make_pair(c_732030,quote_a,&c_732031);

make_pair(c_732029,quote_append,&c_732030);

make_pair(c_732028,&c_732029,NULL);

make_pair(c_732027,quote_reverse,&c_732028);

make_pair(c_732036,quote_b,NULL);

make_pair(c_732035,quote_reverse,&c_732036);

make_pair(c_732039,quote_a,NULL);

make_pair(c_732038,quote_reverse,&c_732039);

make_pair(c_732037,&c_732038,NULL);

make_pair(c_732034,&c_732035,&c_732037);

make_pair(c_732033,quote_append,&c_732034);

make_pair(c_732032,&c_732033,NULL);

make_pair(c_732026,&c_732027,&c_732032);

make_pair(c_732025,quote_equal,&c_732026);

make_pair(c_732048,quote_z,NULL);

make_pair(c_732047,quote_y,&c_732048);

make_pair(c_732046,quote_plus,&c_732047);

make_pair(c_732045,&c_732046,NULL);

make_pair(c_732044,quote_x,&c_732045);

make_pair(c_732043,quote_times,&c_732044);

make_pair(c_732054,quote_y,NULL);

make_pair(c_732053,quote_x,&c_732054);

make_pair(c_732052,quote_times,&c_732053);

make_pair(c_732058,quote_z,NULL);

make_pair(c_732057,quote_x,&c_732058);

make_pair(c_732056,quote_times,&c_732057);

make_pair(c_732055,&c_732056,NULL);

make_pair(c_732051,&c_732052,&c_732055);

make_pair(c_732050,quote_plus,&c_732051);

make_pair(c_732049,&c_732050,NULL);

make_pair(c_732042,&c_732043,&c_732049);

make_pair(c_732041,quote_equal,&c_732042);

make_pair(c_732066,quote_y,NULL);

make_pair(c_732065,quote_x,&c_732066);

make_pair(c_732064,quote_times,&c_732065);

make_pair(c_732067,quote_z,NULL);

make_pair(c_732063,&c_732064,&c_732067);

make_pair(c_732062,quote_times,&c_732063);

make_pair(c_732074,quote_z,NULL);

make_pair(c_732073,quote_y,&c_732074);

make_pair(c_732072,quote_times,&c_732073);

make_pair(c_732071,&c_732072,NULL);

make_pair(c_732070,quote_x,&c_732071);

make_pair(c_732069,quote_times,&c_732070);

make_pair(c_732068,&c_732069,NULL);

make_pair(c_732061,&c_732062,&c_732068);

make_pair(c_732060,quote_equal,&c_732061);

make_pair(c_732082,quote_y,NULL);

make_pair(c_732081,quote_x,&c_732082);

make_pair(c_732080,quote_times,&c_732081);

make_pair(c_732084,quote_zero,NULL);

make_pair(c_732083,&c_732084,NULL);

make_pair(c_732079,&c_732080,&c_732083);

make_pair(c_732078,quote_equal,&c_732079);

make_pair(c_732089,quote_x,NULL);

make_pair(c_732088,quote_zerop,&c_732089);

make_pair(c_732092,quote_y,NULL);

make_pair(c_732091,quote_zerop,&c_732092);

make_pair(c_732090,&c_732091,NULL);

make_pair(c_732087,&c_732088,&c_732090);

make_pair(c_732086,quote_or,&c_732087);

make_pair(c_732085,&c_732086,NULL);

make_pair(c_732077,&c_732078,&c_732085);

make_pair(c_732076,quote_equal,&c_732077);

make_pair(c_732100,quote_y,NULL);

make_pair(c_732099,quote_x,&c_732100);

make_pair(c_732098,quote_append,&c_732099);

make_pair(c_732102,quote_envrn,NULL);

make_pair(c_732101,quote_pds,&c_732102);

make_pair(c_732097,&c_732098,&c_732101);

make_pair(c_732096,quote_exec,&c_732097);

make_pair(c_732110,quote_envrn,NULL);

make_pair(c_732109,quote_pds,&c_732110);

make_pair(c_732108,quote_x,&c_732109);

make_pair(c_732107,quote_exec,&c_732108);

make_pair(c_732111,quote_envrn,NULL);

make_pair(c_732106,&c_732107,&c_732111);

make_pair(c_732105,quote_y,&c_732106);

make_pair(c_732104,quote_exec,&c_732105);

make_pair(c_732103,&c_732104,NULL);

make_pair(c_732095,&c_732096,&c_732103);

make_pair(c_732094,quote_equal,&c_732095);

make_pair(c_732117,quote_y,NULL);

make_pair(c_732116,quote_x,&c_732117);

make_pair(c_732115,quote_mc_91flatten,&c_732116);

make_pair(c_732122,quote_x,NULL);

make_pair(c_732121,quote_flatten,&c_732122);

make_pair(c_732123,quote_y,NULL);

make_pair(c_732120,&c_732121,&c_732123);

make_pair(c_732119,quote_append,&c_732120);

make_pair(c_732118,&c_732119,NULL);

make_pair(c_732114,&c_732115,&c_732118);

make_pair(c_732113,quote_equal,&c_732114);

make_pair(c_732132,quote_b,NULL);

make_pair(c_732131,quote_a,&c_732132);

make_pair(c_732130,quote_append,&c_732131);

make_pair(c_732129,&c_732130,NULL);

make_pair(c_732128,quote_x,&c_732129);

make_pair(c_732127,quote_member,&c_732128);

make_pair(c_732138,quote_a,NULL);

make_pair(c_732137,quote_x,&c_732138);

make_pair(c_732136,quote_member,&c_732137);

make_pair(c_732142,quote_b,NULL);

make_pair(c_732141,quote_x,&c_732142);

make_pair(c_732140,quote_member,&c_732141);

make_pair(c_732139,&c_732140,NULL);

make_pair(c_732135,&c_732136,&c_732139);

make_pair(c_732134,quote_or,&c_732135);

make_pair(c_732133,&c_732134,NULL);

make_pair(c_732126,&c_732127,&c_732133);

make_pair(c_732125,quote_equal,&c_732126);

make_pair(c_732150,quote_y,NULL);

make_pair(c_732149,quote_reverse,&c_732150);

make_pair(c_732148,&c_732149,NULL);

make_pair(c_732147,quote_x,&c_732148);

make_pair(c_732146,quote_member,&c_732147);

make_pair(c_732154,quote_y,NULL);

make_pair(c_732153,quote_x,&c_732154);

make_pair(c_732152,quote_member,&c_732153);

make_pair(c_732151,&c_732152,NULL);

make_pair(c_732145,&c_732146,&c_732151);

make_pair(c_732144,quote_equal,&c_732145);

make_pair(c_732161,quote_x,NULL);

make_pair(c_732160,quote_reverse,&c_732161);

make_pair(c_732159,&c_732160,NULL);

make_pair(c_732158,quote_length,&c_732159);

make_pair(c_732164,quote_x,NULL);

make_pair(c_732163,quote_length,&c_732164);

make_pair(c_732162,&c_732163,NULL);

make_pair(c_732157,&c_732158,&c_732162);

make_pair(c_732156,quote_equal,&c_732157);

make_pair(c_732173,quote_c,NULL);

make_pair(c_732172,quote_b,&c_732173);

make_pair(c_732171,quote_intersect,&c_732172);

make_pair(c_732170,&c_732171,NULL);

make_pair(c_732169,quote_a,&c_732170);

make_pair(c_732168,quote_member,&c_732169);

make_pair(c_732179,quote_b,NULL);

make_pair(c_732178,quote_a,&c_732179);

make_pair(c_732177,quote_member,&c_732178);

make_pair(c_732183,quote_c,NULL);

make_pair(c_732182,quote_a,&c_732183);

make_pair(c_732181,quote_member,&c_732182);

make_pair(c_732180,&c_732181,NULL);

make_pair(c_732176,&c_732177,&c_732180);

make_pair(c_732175,quote_and,&c_732176);

make_pair(c_732174,&c_732175,NULL);

make_pair(c_732167,&c_732168,&c_732174);

make_pair(c_732166,quote_equal,&c_732167);

make_pair(c_732189,quote_zero,NULL);

make_pair(c_732190,quote_i,NULL);

make_pair(c_732188,&c_732189,&c_732190);

make_pair(c_732187,quote_nth,&c_732188);

make_pair(c_732192,quote_zero,NULL);

make_pair(c_732191,&c_732192,NULL);

make_pair(c_732186,&c_732187,&c_732191);

make_pair(c_732185,quote_equal,&c_732186);

make_pair(c_732201,quote_k,NULL);

make_pair(c_732200,quote_j,&c_732201);

make_pair(c_732199,quote_plus,&c_732200);

make_pair(c_732198,&c_732199,NULL);

make_pair(c_732197,quote_i,&c_732198);

make_pair(c_732196,quote_exp,&c_732197);

make_pair(c_732207,quote_j,NULL);

make_pair(c_732206,quote_i,&c_732207);

make_pair(c_732205,quote_exp,&c_732206);

make_pair(c_732211,quote_k,NULL);

make_pair(c_732210,quote_i,&c_732211);

make_pair(c_732209,quote_exp,&c_732210);

make_pair(c_732208,&c_732209,NULL);

make_pair(c_732204,&c_732205,&c_732208);

make_pair(c_732203,quote_times,&c_732204);

make_pair(c_732202,&c_732203,NULL);

make_pair(c_732195,&c_732196,&c_732202);

make_pair(c_732194,quote_equal,&c_732195);

make_pair(c_732220,quote_k,NULL);

make_pair(c_732219,quote_j,&c_732220);

make_pair(c_732218,quote_times,&c_732219);

make_pair(c_732217,&c_732218,NULL);

make_pair(c_732216,quote_i,&c_732217);

make_pair(c_732215,quote_exp,&c_732216);

make_pair(c_732226,quote_j,NULL);

make_pair(c_732225,quote_i,&c_732226);

make_pair(c_732224,quote_exp,&c_732225);

make_pair(c_732227,quote_k,NULL);

make_pair(c_732223,&c_732224,&c_732227);

make_pair(c_732222,quote_exp,&c_732223);

make_pair(c_732221,&c_732222,NULL);

make_pair(c_732214,&c_732215,&c_732221);

make_pair(c_732213,quote_equal,&c_732214);

make_pair(c_732233,quote_y,NULL);

make_pair(c_732232,quote_x,&c_732233);

make_pair(c_732231,quote_reverse_91loop,&c_732232);

make_pair(c_732238,quote_x,NULL);

make_pair(c_732237,quote_reverse,&c_732238);

make_pair(c_732239,quote_y,NULL);

make_pair(c_732236,&c_732237,&c_732239);

make_pair(c_732235,quote_append,&c_732236);

make_pair(c_732234,&c_732235,NULL);

make_pair(c_732230,&c_732231,&c_732234);

make_pair(c_732229,quote_equal,&c_732230);

make_pair(c_732246,quote_nil,NULL);

make_pair(c_732245,&c_732246,NULL);

make_pair(c_732244,quote_x,&c_732245);

make_pair(c_732243,quote_reverse_91loop,&c_732244);

make_pair(c_732249,quote_x,NULL);

make_pair(c_732248,quote_reverse,&c_732249);

make_pair(c_732247,&c_732248,NULL);

make_pair(c_732242,&c_732243,&c_732247);

make_pair(c_732241,quote_equal,&c_732242);

make_pair(c_732258,quote_y,NULL);

make_pair(c_732257,quote_x,&c_732258);

make_pair(c_732256,quote_sort_91lp,&c_732257);

make_pair(c_732255,&c_732256,NULL);

make_pair(c_732254,quote_z,&c_732255);

make_pair(c_732253,quote_count_91list,&c_732254);

make_pair(c_732264,quote_x,NULL);

make_pair(c_732263,quote_z,&c_732264);

make_pair(c_732262,quote_count_91list,&c_732263);

make_pair(c_732268,quote_y,NULL);

make_pair(c_732267,quote_z,&c_732268);

make_pair(c_732266,quote_count_91list,&c_732267);

make_pair(c_732265,&c_732266,NULL);

make_pair(c_732261,&c_732262,&c_732265);

make_pair(c_732260,quote_plus,&c_732261);

make_pair(c_732259,&c_732260,NULL);

make_pair(c_732252,&c_732253,&c_732259);

make_pair(c_732251,quote_equal,&c_732252);

make_pair(c_732276,quote_b,NULL);

make_pair(c_732275,quote_a,&c_732276);

make_pair(c_732274,quote_append,&c_732275);

make_pair(c_732280,quote_c,NULL);

make_pair(c_732279,quote_a,&c_732280);

make_pair(c_732278,quote_append,&c_732279);

make_pair(c_732277,&c_732278,NULL);

make_pair(c_732273,&c_732274,&c_732277);

make_pair(c_732272,quote_equal,&c_732273);

make_pair(c_732284,quote_c,NULL);

make_pair(c_732283,quote_b,&c_732284);

make_pair(c_732282,quote_equal,&c_732283);

make_pair(c_732281,&c_732282,NULL);

make_pair(c_732271,&c_732272,&c_732281);

make_pair(c_732270,quote_equal,&c_732271);

make_pair(c_732292,quote_y,NULL);

make_pair(c_732291,quote_x,&c_732292);

make_pair(c_732290,quote_remainder,&c_732291);

make_pair(c_732299,quote_y,NULL);

make_pair(c_732298,quote_x,&c_732299);

make_pair(c_732297,quote_quotient,&c_732298);

make_pair(c_732296,&c_732297,NULL);

make_pair(c_732295,quote_y,&c_732296);

make_pair(c_732294,quote_times,&c_732295);

make_pair(c_732293,&c_732294,NULL);

make_pair(c_732289,&c_732290,&c_732293);

make_pair(c_732288,quote_plus,&c_732289);

make_pair(c_732302,quote_x,NULL);

make_pair(c_732301,quote_fix,&c_732302);

make_pair(c_732300,&c_732301,NULL);

make_pair(c_732287,&c_732288,&c_732300);

make_pair(c_732286,quote_equal,&c_732287);

make_pair(c_732311,quote_base,NULL);

make_pair(c_732310,quote_i,&c_732311);

make_pair(c_732309,quote_l,&c_732310);

make_pair(c_732308,quote_big_91plus1,&c_732309);

make_pair(c_732312,quote_base,NULL);

make_pair(c_732307,&c_732308,&c_732312);

make_pair(c_732306,quote_power_91eval,&c_732307);

make_pair(c_732318,quote_base,NULL);

make_pair(c_732317,quote_l,&c_732318);

make_pair(c_732316,quote_power_91eval,&c_732317);

make_pair(c_732319,quote_i,NULL);

make_pair(c_732315,&c_732316,&c_732319);

make_pair(c_732314,quote_plus,&c_732315);

make_pair(c_732313,&c_732314,NULL);

make_pair(c_732305,&c_732306,&c_732313);

make_pair(c_732304,quote_equal,&c_732305);

make_pair(c_732329,quote_base,NULL);

make_pair(c_732328,quote_i,&c_732329);

make_pair(c_732327,quote_y,&c_732328);

make_pair(c_732326,quote_x,&c_732327);

make_pair(c_732325,quote_big_91plus,&c_732326);

make_pair(c_732330,quote_base,NULL);

make_pair(c_732324,&c_732325,&c_732330);

make_pair(c_732323,quote_power_91eval,&c_732324);

make_pair(c_732339,quote_base,NULL);

make_pair(c_732338,quote_x,&c_732339);

make_pair(c_732337,quote_power_91eval,&c_732338);

make_pair(c_732343,quote_base,NULL);

make_pair(c_732342,quote_y,&c_732343);

make_pair(c_732341,quote_power_91eval,&c_732342);

make_pair(c_732340,&c_732341,NULL);

make_pair(c_732336,&c_732337,&c_732340);

make_pair(c_732335,quote_plus,&c_732336);

make_pair(c_732334,&c_732335,NULL);

make_pair(c_732333,quote_i,&c_732334);

make_pair(c_732332,quote_plus,&c_732333);

make_pair(c_732331,&c_732332,NULL);

make_pair(c_732322,&c_732323,&c_732331);

make_pair(c_732321,quote_equal,&c_732322);

make_pair(c_732349,obj_int2obj(1),NULL);

make_pair(c_732348,quote_y,&c_732349);

make_pair(c_732347,quote_remainder,&c_732348);

make_pair(c_732351,quote_zero,NULL);

make_pair(c_732350,&c_732351,NULL);

make_pair(c_732346,&c_732347,&c_732350);

make_pair(c_732345,quote_equal,&c_732346);

make_pair(c_732359,quote_y,NULL);

make_pair(c_732358,quote_x,&c_732359);

make_pair(c_732357,quote_remainder,&c_732358);

make_pair(c_732360,quote_y,NULL);

make_pair(c_732356,&c_732357,&c_732360);

make_pair(c_732355,quote_lessp,&c_732356);

make_pair(c_732365,quote_y,NULL);

make_pair(c_732364,quote_zerop,&c_732365);

make_pair(c_732363,&c_732364,NULL);

make_pair(c_732362,quote_not,&c_732363);

make_pair(c_732361,&c_732362,NULL);

make_pair(c_732354,&c_732355,&c_732361);

make_pair(c_732353,quote_equal,&c_732354);

make_pair(c_732371,quote_x,NULL);

make_pair(c_732370,quote_x,&c_732371);

make_pair(c_732369,quote_remainder,&c_732370);

make_pair(c_732373,quote_zero,NULL);

make_pair(c_732372,&c_732373,NULL);

make_pair(c_732368,&c_732369,&c_732372);

make_pair(c_732367,quote_equal,&c_732368);

make_pair(c_732381,quote_j,NULL);

make_pair(c_732380,quote_i,&c_732381);

make_pair(c_732379,quote_quotient,&c_732380);

make_pair(c_732382,quote_i,NULL);

make_pair(c_732378,&c_732379,&c_732382);

make_pair(c_732377,quote_lessp,&c_732378);

make_pair(c_732389,quote_i,NULL);

make_pair(c_732388,quote_zerop,&c_732389);

make_pair(c_732387,&c_732388,NULL);

make_pair(c_732386,quote_not,&c_732387);

make_pair(c_732394,quote_j,NULL);

make_pair(c_732393,quote_zerop,&c_732394);

make_pair(c_732400,obj_int2obj(1),NULL);

make_pair(c_732399,quote_j,&c_732400);

make_pair(c_732398,quote_equal,&c_732399);

make_pair(c_732397,&c_732398,NULL);

make_pair(c_732396,quote_not,&c_732397);

make_pair(c_732395,&c_732396,NULL);

make_pair(c_732392,&c_732393,&c_732395);

make_pair(c_732391,quote_or,&c_732392);

make_pair(c_732390,&c_732391,NULL);

make_pair(c_732385,&c_732386,&c_732390);

make_pair(c_732384,quote_and,&c_732385);

make_pair(c_732383,&c_732384,NULL);

make_pair(c_732376,&c_732377,&c_732383);

make_pair(c_732375,quote_equal,&c_732376);

make_pair(c_732408,quote_y,NULL);

make_pair(c_732407,quote_x,&c_732408);

make_pair(c_732406,quote_remainder,&c_732407);

make_pair(c_732409,quote_x,NULL);

make_pair(c_732405,&c_732406,&c_732409);

make_pair(c_732404,quote_lessp,&c_732405);

make_pair(c_732416,quote_y,NULL);

make_pair(c_732415,quote_zerop,&c_732416);

make_pair(c_732414,&c_732415,NULL);

make_pair(c_732413,quote_not,&c_732414);

make_pair(c_732421,quote_x,NULL);

make_pair(c_732420,quote_zerop,&c_732421);

make_pair(c_732419,&c_732420,NULL);

make_pair(c_732418,quote_not,&c_732419);

make_pair(c_732427,quote_y,NULL);

make_pair(c_732426,quote_x,&c_732427);

make_pair(c_732425,quote_lessp,&c_732426);

make_pair(c_732424,&c_732425,NULL);

make_pair(c_732423,quote_not,&c_732424);

make_pair(c_732422,&c_732423,NULL);

make_pair(c_732417,&c_732418,&c_732422);

make_pair(c_732412,&c_732413,&c_732417);

make_pair(c_732411,quote_and,&c_732412);

make_pair(c_732410,&c_732411,NULL);

make_pair(c_732403,&c_732404,&c_732410);

make_pair(c_732402,quote_equal,&c_732403);

make_pair(c_732435,quote_base,NULL);

make_pair(c_732434,quote_i,&c_732435);

make_pair(c_732433,quote_power_91rep,&c_732434);

make_pair(c_732436,quote_base,NULL);

make_pair(c_732432,&c_732433,&c_732436);

make_pair(c_732431,quote_power_91eval,&c_732432);

make_pair(c_732439,quote_i,NULL);

make_pair(c_732438,quote_fix,&c_732439);

make_pair(c_732437,&c_732438,NULL);

make_pair(c_732430,&c_732431,&c_732437);

make_pair(c_732429,quote_equal,&c_732430);

make_pair(c_732449,quote_base,NULL);

make_pair(c_732448,quote_i,&c_732449);

make_pair(c_732447,quote_power_91rep,&c_732448);

make_pair(c_732453,quote_base,NULL);

make_pair(c_732452,quote_j,&c_732453);

make_pair(c_732451,quote_power_91rep,&c_732452);

make_pair(c_732455,quote_zero,NULL);

make_pair(c_732456,quote_base,NULL);

make_pair(c_732454,&c_732455,&c_732456);

make_pair(c_732450,&c_732451,&c_732454);

make_pair(c_732446,&c_732447,&c_732450);

make_pair(c_732445,quote_big_91plus,&c_732446);

make_pair(c_732457,quote_base,NULL);

make_pair(c_732444,&c_732445,&c_732457);

make_pair(c_732443,quote_power_91eval,&c_732444);

make_pair(c_732461,quote_j,NULL);

make_pair(c_732460,quote_i,&c_732461);

make_pair(c_732459,quote_plus,&c_732460);

make_pair(c_732458,&c_732459,NULL);

make_pair(c_732442,&c_732443,&c_732458);

make_pair(c_732441,quote_equal,&c_732442);

make_pair(c_732467,quote_y,NULL);

make_pair(c_732466,quote_x,&c_732467);

make_pair(c_732465,quote_gcd,&c_732466);

make_pair(c_732471,quote_x,NULL);

make_pair(c_732470,quote_y,&c_732471);

make_pair(c_732469,quote_gcd,&c_732470);

make_pair(c_732468,&c_732469,NULL);

make_pair(c_732464,&c_732465,&c_732468);

make_pair(c_732463,quote_equal,&c_732464);

make_pair(c_732479,quote_b,NULL);

make_pair(c_732478,quote_a,&c_732479);

make_pair(c_732477,quote_append,&c_732478);

make_pair(c_732480,quote_i,NULL);

make_pair(c_732476,&c_732477,&c_732480);

make_pair(c_732475,quote_nth,&c_732476);

make_pair(c_732486,quote_i,NULL);

make_pair(c_732485,quote_a,&c_732486);

make_pair(c_732484,quote_nth,&c_732485);

make_pair(c_732495,quote_a,NULL);

make_pair(c_732494,quote_length,&c_732495);

make_pair(c_732493,&c_732494,NULL);

make_pair(c_732492,quote_i,&c_732493);

make_pair(c_732491,quote_difference,&c_732492);

make_pair(c_732490,&c_732491,NULL);

make_pair(c_732489,quote_b,&c_732490);

make_pair(c_732488,quote_nth,&c_732489);

make_pair(c_732487,&c_732488,NULL);

make_pair(c_732483,&c_732484,&c_732487);

make_pair(c_732482,quote_append,&c_732483);

make_pair(c_732481,&c_732482,NULL);

make_pair(c_732474,&c_732475,&c_732481);

make_pair(c_732473,quote_equal,&c_732474);

make_pair(c_732503,quote_y,NULL);

make_pair(c_732502,quote_x,&c_732503);

make_pair(c_732501,quote_plus,&c_732502);

make_pair(c_732504,quote_x,NULL);

make_pair(c_732500,&c_732501,&c_732504);

make_pair(c_732499,quote_difference,&c_732500);

make_pair(c_732507,quote_y,NULL);

make_pair(c_732506,quote_fix,&c_732507);

make_pair(c_732505,&c_732506,NULL);

make_pair(c_732498,&c_732499,&c_732505);

make_pair(c_732497,quote_equal,&c_732498);

make_pair(c_732515,quote_x,NULL);

make_pair(c_732514,quote_y,&c_732515);

make_pair(c_732513,quote_plus,&c_732514);

make_pair(c_732516,quote_x,NULL);

make_pair(c_732512,&c_732513,&c_732516);

make_pair(c_732511,quote_difference,&c_732512);

make_pair(c_732519,quote_y,NULL);

make_pair(c_732518,quote_fix,&c_732519);

make_pair(c_732517,&c_732518,NULL);

make_pair(c_732510,&c_732511,&c_732517);

make_pair(c_732509,quote_equal,&c_732510);

make_pair(c_732527,quote_y,NULL);

make_pair(c_732526,quote_x,&c_732527);

make_pair(c_732525,quote_plus,&c_732526);

make_pair(c_732531,quote_z,NULL);

make_pair(c_732530,quote_x,&c_732531);

make_pair(c_732529,quote_plus,&c_732530);

make_pair(c_732528,&c_732529,NULL);

make_pair(c_732524,&c_732525,&c_732528);

make_pair(c_732523,quote_difference,&c_732524);

make_pair(c_732535,quote_z,NULL);

make_pair(c_732534,quote_y,&c_732535);

make_pair(c_732533,quote_difference,&c_732534);

make_pair(c_732532,&c_732533,NULL);

make_pair(c_732522,&c_732523,&c_732532);

make_pair(c_732521,quote_equal,&c_732522);

make_pair(c_732544,quote_w,NULL);

make_pair(c_732543,quote_c,&c_732544);

make_pair(c_732542,quote_difference,&c_732543);

make_pair(c_732541,&c_732542,NULL);

make_pair(c_732540,quote_x,&c_732541);

make_pair(c_732539,quote_times,&c_732540);

make_pair(c_732550,quote_x,NULL);

make_pair(c_732549,quote_c,&c_732550);

make_pair(c_732548,quote_times,&c_732549);

make_pair(c_732554,quote_x,NULL);

make_pair(c_732553,quote_w,&c_732554);

make_pair(c_732552,quote_times,&c_732553);

make_pair(c_732551,&c_732552,NULL);

make_pair(c_732547,&c_732548,&c_732551);

make_pair(c_732546,quote_difference,&c_732547);

make_pair(c_732545,&c_732546,NULL);

make_pair(c_732538,&c_732539,&c_732545);

make_pair(c_732537,quote_equal,&c_732538);

make_pair(c_732562,quote_z,NULL);

make_pair(c_732561,quote_x,&c_732562);

make_pair(c_732560,quote_times,&c_732561);

make_pair(c_732563,quote_z,NULL);

make_pair(c_732559,&c_732560,&c_732563);

make_pair(c_732558,quote_remainder,&c_732559);

make_pair(c_732565,quote_zero,NULL);

make_pair(c_732564,&c_732565,NULL);

make_pair(c_732557,&c_732558,&c_732564);

make_pair(c_732556,quote_equal,&c_732557);

make_pair(c_732576,quote_c,NULL);

make_pair(c_732575,quote_a,&c_732576);

make_pair(c_732574,quote_plus,&c_732575);

make_pair(c_732573,&c_732574,NULL);

make_pair(c_732572,quote_b,&c_732573);

make_pair(c_732571,quote_plus,&c_732572);

make_pair(c_732577,quote_a,NULL);

make_pair(c_732570,&c_732571,&c_732577);

make_pair(c_732569,quote_difference,&c_732570);

make_pair(c_732581,quote_c,NULL);

make_pair(c_732580,quote_b,&c_732581);

make_pair(c_732579,quote_plus,&c_732580);

make_pair(c_732578,&c_732579,NULL);

make_pair(c_732568,&c_732569,&c_732578);

make_pair(c_732567,quote_equal,&c_732568);

make_pair(c_732591,quote_z,NULL);

make_pair(c_732590,quote_y,&c_732591);

make_pair(c_732589,quote_plus,&c_732590);

make_pair(c_732588,&c_732589,NULL);

make_pair(c_732587,quote_add1,&c_732588);

make_pair(c_732592,quote_z,NULL);

make_pair(c_732586,&c_732587,&c_732592);

make_pair(c_732585,quote_difference,&c_732586);

make_pair(c_732595,quote_y,NULL);

make_pair(c_732594,quote_add1,&c_732595);

make_pair(c_732593,&c_732594,NULL);

make_pair(c_732584,&c_732585,&c_732593);

make_pair(c_732583,quote_equal,&c_732584);

make_pair(c_732603,quote_y,NULL);

make_pair(c_732602,quote_x,&c_732603);

make_pair(c_732601,quote_plus,&c_732602);

make_pair(c_732607,quote_z,NULL);

make_pair(c_732606,quote_x,&c_732607);

make_pair(c_732605,quote_plus,&c_732606);

make_pair(c_732604,&c_732605,NULL);

make_pair(c_732600,&c_732601,&c_732604);

make_pair(c_732599,quote_lessp,&c_732600);

make_pair(c_732611,quote_z,NULL);

make_pair(c_732610,quote_y,&c_732611);

make_pair(c_732609,quote_lessp,&c_732610);

make_pair(c_732608,&c_732609,NULL);

make_pair(c_732598,&c_732599,&c_732608);

make_pair(c_732597,quote_equal,&c_732598);

make_pair(c_732619,quote_z,NULL);

make_pair(c_732618,quote_x,&c_732619);

make_pair(c_732617,quote_times,&c_732618);

make_pair(c_732623,quote_z,NULL);

make_pair(c_732622,quote_y,&c_732623);

make_pair(c_732621,quote_times,&c_732622);

make_pair(c_732620,&c_732621,NULL);

make_pair(c_732616,&c_732617,&c_732620);

make_pair(c_732615,quote_lessp,&c_732616);

make_pair(c_732630,quote_z,NULL);

make_pair(c_732629,quote_zerop,&c_732630);

make_pair(c_732628,&c_732629,NULL);

make_pair(c_732627,quote_not,&c_732628);

make_pair(c_732634,quote_y,NULL);

make_pair(c_732633,quote_x,&c_732634);

make_pair(c_732632,quote_lessp,&c_732633);

make_pair(c_732631,&c_732632,NULL);

make_pair(c_732626,&c_732627,&c_732631);

make_pair(c_732625,quote_and,&c_732626);

make_pair(c_732624,&c_732625,NULL);

make_pair(c_732614,&c_732615,&c_732624);

make_pair(c_732613,quote_equal,&c_732614);

make_pair(c_732643,quote_y,NULL);

make_pair(c_732642,quote_x,&c_732643);

make_pair(c_732641,quote_plus,&c_732642);

make_pair(c_732640,&c_732641,NULL);

make_pair(c_732639,quote_y,&c_732640);

make_pair(c_732638,quote_lessp,&c_732639);

make_pair(c_732648,quote_x,NULL);

make_pair(c_732647,quote_zerop,&c_732648);

make_pair(c_732646,&c_732647,NULL);

make_pair(c_732645,quote_not,&c_732646);

make_pair(c_732644,&c_732645,NULL);

make_pair(c_732637,&c_732638,&c_732644);

make_pair(c_732636,quote_equal,&c_732637);

make_pair(c_732656,quote_z,NULL);

make_pair(c_732655,quote_x,&c_732656);

make_pair(c_732654,quote_times,&c_732655);

make_pair(c_732660,quote_z,NULL);

make_pair(c_732659,quote_y,&c_732660);

make_pair(c_732658,quote_times,&c_732659);

make_pair(c_732657,&c_732658,NULL);

make_pair(c_732653,&c_732654,&c_732657);

make_pair(c_732652,quote_gcd,&c_732653);

make_pair(c_732667,quote_y,NULL);

make_pair(c_732666,quote_x,&c_732667);

make_pair(c_732665,quote_gcd,&c_732666);

make_pair(c_732664,&c_732665,NULL);

make_pair(c_732663,quote_z,&c_732664);

make_pair(c_732662,quote_times,&c_732663);

make_pair(c_732661,&c_732662,NULL);

make_pair(c_732651,&c_732652,&c_732661);

make_pair(c_732650,quote_equal,&c_732651);

make_pair(c_732674,quote_x,NULL);

make_pair(c_732673,quote_normalize,&c_732674);

make_pair(c_732675,quote_a,NULL);

make_pair(c_732672,&c_732673,&c_732675);

make_pair(c_732671,quote_value,&c_732672);

make_pair(c_732679,quote_a,NULL);

make_pair(c_732678,quote_x,&c_732679);

make_pair(c_732677,quote_value,&c_732678);

make_pair(c_732676,&c_732677,NULL);

make_pair(c_732670,&c_732671,&c_732676);

make_pair(c_732669,quote_equal,&c_732670);

make_pair(c_732686,quote_x,NULL);

make_pair(c_732685,quote_flatten,&c_732686);

make_pair(c_732691,quote_nil,NULL);

make_pair(c_732690,&c_732691,NULL);

make_pair(c_732689,quote_y,&c_732690);

make_pair(c_732688,quote_cons,&c_732689);

make_pair(c_732687,&c_732688,NULL);

make_pair(c_732684,&c_732685,&c_732687);

make_pair(c_732683,quote_equal,&c_732684);

make_pair(c_732696,quote_x,NULL);

make_pair(c_732695,quote_nlistp,&c_732696);

make_pair(c_732700,quote_y,NULL);

make_pair(c_732699,quote_x,&c_732700);

make_pair(c_732698,quote_equal,&c_732699);

make_pair(c_732697,&c_732698,NULL);

make_pair(c_732694,&c_732695,&c_732697);

make_pair(c_732693,quote_and,&c_732694);

make_pair(c_732692,&c_732693,NULL);

make_pair(c_732682,&c_732683,&c_732692);

make_pair(c_732681,quote_equal,&c_732682);

make_pair(c_732707,quote_x,NULL);

make_pair(c_732706,quote_gopher,&c_732707);

make_pair(c_732705,&c_732706,NULL);

make_pair(c_732704,quote_listp,&c_732705);

make_pair(c_732710,quote_x,NULL);

make_pair(c_732709,quote_listp,&c_732710);

make_pair(c_732708,&c_732709,NULL);

make_pair(c_732703,&c_732704,&c_732708);

make_pair(c_732702,quote_equal,&c_732703);

make_pair(c_732716,quote_y,NULL);

make_pair(c_732715,quote_x,&c_732716);

make_pair(c_732714,quote_samefringe,&c_732715);

make_pair(c_732721,quote_x,NULL);

make_pair(c_732720,quote_flatten,&c_732721);

make_pair(c_732724,quote_y,NULL);

make_pair(c_732723,quote_flatten,&c_732724);

make_pair(c_732722,&c_732723,NULL);

make_pair(c_732719,&c_732720,&c_732722);

make_pair(c_732718,quote_equal,&c_732719);

make_pair(c_732717,&c_732718,NULL);

make_pair(c_732713,&c_732714,&c_732717);

make_pair(c_732712,quote_equal,&c_732713);

make_pair(c_732732,quote_y,NULL);

make_pair(c_732731,quote_x,&c_732732);

make_pair(c_732730,quote_greatest_91factor,&c_732731);

make_pair(c_732734,quote_zero,NULL);

make_pair(c_732733,&c_732734,NULL);

make_pair(c_732729,&c_732730,&c_732733);

make_pair(c_732728,quote_equal,&c_732729);

make_pair(c_732741,quote_y,NULL);

make_pair(c_732740,quote_zerop,&c_732741);

make_pair(c_732745,obj_int2obj(1),NULL);

make_pair(c_732744,quote_y,&c_732745);

make_pair(c_732743,quote_equal,&c_732744);

make_pair(c_732742,&c_732743,NULL);

make_pair(c_732739,&c_732740,&c_732742);

make_pair(c_732738,quote_or,&c_732739);

make_pair(c_732750,quote_zero,NULL);

make_pair(c_732749,&c_732750,NULL);

make_pair(c_732748,quote_x,&c_732749);

make_pair(c_732747,quote_equal,&c_732748);

make_pair(c_732746,&c_732747,NULL);

make_pair(c_732737,&c_732738,&c_732746);

make_pair(c_732736,quote_and,&c_732737);

make_pair(c_732735,&c_732736,NULL);

make_pair(c_732727,&c_732728,&c_732735);

make_pair(c_732726,quote_equal,&c_732727);

make_pair(c_732758,quote_y,NULL);

make_pair(c_732757,quote_x,&c_732758);

make_pair(c_732756,quote_greatest_91factor,&c_732757);

make_pair(c_732759,obj_int2obj(1),NULL);

make_pair(c_732755,&c_732756,&c_732759);

make_pair(c_732754,quote_equal,&c_732755);

make_pair(c_732763,obj_int2obj(1),NULL);

make_pair(c_732762,quote_x,&c_732763);

make_pair(c_732761,quote_equal,&c_732762);

make_pair(c_732760,&c_732761,NULL);

make_pair(c_732753,&c_732754,&c_732760);

make_pair(c_732752,quote_equal,&c_732753);

make_pair(c_732771,quote_y,NULL);

make_pair(c_732770,quote_x,&c_732771);

make_pair(c_732769,quote_greatest_91factor,&c_732770);

make_pair(c_732768,&c_732769,NULL);

make_pair(c_732767,quote_numberp,&c_732768);

make_pair(c_732780,quote_y,NULL);

make_pair(c_732779,quote_zerop,&c_732780);

make_pair(c_732784,obj_int2obj(1),NULL);

make_pair(c_732783,quote_y,&c_732784);

make_pair(c_732782,quote_equal,&c_732783);

make_pair(c_732781,&c_732782,NULL);

make_pair(c_732778,&c_732779,&c_732781);

make_pair(c_732777,quote_or,&c_732778);

make_pair(c_732789,quote_x,NULL);

make_pair(c_732788,quote_numberp,&c_732789);

make_pair(c_732787,&c_732788,NULL);

make_pair(c_732786,quote_not,&c_732787);

make_pair(c_732785,&c_732786,NULL);

make_pair(c_732776,&c_732777,&c_732785);

make_pair(c_732775,quote_and,&c_732776);

make_pair(c_732774,&c_732775,NULL);

make_pair(c_732773,quote_not,&c_732774);

make_pair(c_732772,&c_732773,NULL);

make_pair(c_732766,&c_732767,&c_732772);

make_pair(c_732765,quote_equal,&c_732766);

make_pair(c_732797,quote_y,NULL);

make_pair(c_732796,quote_x,&c_732797);

make_pair(c_732795,quote_append,&c_732796);

make_pair(c_732794,&c_732795,NULL);

make_pair(c_732793,quote_times_91list,&c_732794);

make_pair(c_732802,quote_x,NULL);

make_pair(c_732801,quote_times_91list,&c_732802);

make_pair(c_732805,quote_y,NULL);

make_pair(c_732804,quote_times_91list,&c_732805);

make_pair(c_732803,&c_732804,NULL);

make_pair(c_732800,&c_732801,&c_732803);

make_pair(c_732799,quote_times,&c_732800);

make_pair(c_732798,&c_732799,NULL);

make_pair(c_732792,&c_732793,&c_732798);

make_pair(c_732791,quote_equal,&c_732792);

make_pair(c_732813,quote_y,NULL);

make_pair(c_732812,quote_x,&c_732813);

make_pair(c_732811,quote_append,&c_732812);

make_pair(c_732810,&c_732811,NULL);

make_pair(c_732809,quote_prime_91list,&c_732810);

make_pair(c_732818,quote_x,NULL);

make_pair(c_732817,quote_prime_91list,&c_732818);

make_pair(c_732821,quote_y,NULL);

make_pair(c_732820,quote_prime_91list,&c_732821);

make_pair(c_732819,&c_732820,NULL);

make_pair(c_732816,&c_732817,&c_732819);

make_pair(c_732815,quote_and,&c_732816);

make_pair(c_732814,&c_732815,NULL);

make_pair(c_732808,&c_732809,&c_732814);

make_pair(c_732807,quote_equal,&c_732808);

make_pair(c_732830,quote_z,NULL);

make_pair(c_732829,quote_w,&c_732830);

make_pair(c_732828,quote_times,&c_732829);

make_pair(c_732827,&c_732828,NULL);

make_pair(c_732826,quote_z,&c_732827);

make_pair(c_732825,quote_equal,&c_732826);

make_pair(c_732835,quote_z,NULL);

make_pair(c_732834,quote_numberp,&c_732835);

make_pair(c_732842,quote_zero,NULL);

make_pair(c_732841,&c_732842,NULL);

make_pair(c_732840,quote_z,&c_732841);

make_pair(c_732839,quote_equal,&c_732840);

make_pair(c_732846,obj_int2obj(1),NULL);

make_pair(c_732845,quote_w,&c_732846);

make_pair(c_732844,quote_equal,&c_732845);

make_pair(c_732843,&c_732844,NULL);

make_pair(c_732838,&c_732839,&c_732843);

make_pair(c_732837,quote_or,&c_732838);

make_pair(c_732836,&c_732837,NULL);

make_pair(c_732833,&c_732834,&c_732836);

make_pair(c_732832,quote_and,&c_732833);

make_pair(c_732831,&c_732832,NULL);

make_pair(c_732824,&c_732825,&c_732831);

make_pair(c_732823,quote_equal,&c_732824);

make_pair(c_732852,quote_y,NULL);

make_pair(c_732851,quote_x,&c_732852);

make_pair(c_732850,quote_greatereqp,&c_732851);

make_pair(c_732858,quote_y,NULL);

make_pair(c_732857,quote_x,&c_732858);

make_pair(c_732856,quote_lessp,&c_732857);

make_pair(c_732855,&c_732856,NULL);

make_pair(c_732854,quote_not,&c_732855);

make_pair(c_732853,&c_732854,NULL);

make_pair(c_732849,&c_732850,&c_732853);

make_pair(c_732848,quote_equal,&c_732849);

make_pair(c_732867,quote_y,NULL);

make_pair(c_732866,quote_x,&c_732867);

make_pair(c_732865,quote_times,&c_732866);

make_pair(c_732864,&c_732865,NULL);

make_pair(c_732863,quote_x,&c_732864);

make_pair(c_732862,quote_equal,&c_732863);

make_pair(c_732874,quote_zero,NULL);

make_pair(c_732873,&c_732874,NULL);

make_pair(c_732872,quote_x,&c_732873);

make_pair(c_732871,quote_equal,&c_732872);

make_pair(c_732879,quote_x,NULL);

make_pair(c_732878,quote_numberp,&c_732879);

make_pair(c_732883,obj_int2obj(1),NULL);

make_pair(c_732882,quote_y,&c_732883);

make_pair(c_732881,quote_equal,&c_732882);

make_pair(c_732880,&c_732881,NULL);

make_pair(c_732877,&c_732878,&c_732880);

make_pair(c_732876,quote_and,&c_732877);

make_pair(c_732875,&c_732876,NULL);

make_pair(c_732870,&c_732871,&c_732875);

make_pair(c_732869,quote_or,&c_732870);

make_pair(c_732868,&c_732869,NULL);

make_pair(c_732861,&c_732862,&c_732868);

make_pair(c_732860,quote_equal,&c_732861);

make_pair(c_732891,quote_x,NULL);

make_pair(c_732890,quote_y,&c_732891);

make_pair(c_732889,quote_times,&c_732890);

make_pair(c_732892,quote_y,NULL);

make_pair(c_732888,&c_732889,&c_732892);

make_pair(c_732887,quote_remainder,&c_732888);

make_pair(c_732894,quote_zero,NULL);

make_pair(c_732893,&c_732894,NULL);

make_pair(c_732886,&c_732887,&c_732893);

make_pair(c_732885,quote_equal,&c_732886);

make_pair(c_732902,quote_b,NULL);

make_pair(c_732901,quote_a,&c_732902);

make_pair(c_732900,quote_times,&c_732901);

make_pair(c_732903,obj_int2obj(1),NULL);

make_pair(c_732899,&c_732900,&c_732903);

make_pair(c_732898,quote_equal,&c_732899);

make_pair(c_732912,quote_zero,NULL);

make_pair(c_732911,&c_732912,NULL);

make_pair(c_732910,quote_a,&c_732911);

make_pair(c_732909,quote_equal,&c_732910);

make_pair(c_732908,&c_732909,NULL);

make_pair(c_732907,quote_not,&c_732908);

make_pair(c_732919,quote_zero,NULL);

make_pair(c_732918,&c_732919,NULL);

make_pair(c_732917,quote_b,&c_732918);

make_pair(c_732916,quote_equal,&c_732917);

make_pair(c_732915,&c_732916,NULL);

make_pair(c_732914,quote_not,&c_732915);

make_pair(c_732922,quote_a,NULL);

make_pair(c_732921,quote_numberp,&c_732922);

make_pair(c_732925,quote_b,NULL);

make_pair(c_732924,quote_numberp,&c_732925);

make_pair(c_732930,quote_a,NULL);

make_pair(c_732929,quote__1911_91,&c_732930);

make_pair(c_732932,quote_zero,NULL);

make_pair(c_732931,&c_732932,NULL);

make_pair(c_732928,&c_732929,&c_732931);

make_pair(c_732927,quote_equal,&c_732928);

make_pair(c_732937,quote_b,NULL);

make_pair(c_732936,quote__1911_91,&c_732937);

make_pair(c_732939,quote_zero,NULL);

make_pair(c_732938,&c_732939,NULL);

make_pair(c_732935,&c_732936,&c_732938);

make_pair(c_732934,quote_equal,&c_732935);

make_pair(c_732933,&c_732934,NULL);

make_pair(c_732926,&c_732927,&c_732933);

make_pair(c_732923,&c_732924,&c_732926);

make_pair(c_732920,&c_732921,&c_732923);

make_pair(c_732913,&c_732914,&c_732920);

make_pair(c_732906,&c_732907,&c_732913);

make_pair(c_732905,quote_and,&c_732906);

make_pair(c_732904,&c_732905,NULL);

make_pair(c_732897,&c_732898,&c_732904);

make_pair(c_732896,quote_equal,&c_732897);

make_pair(c_732949,quote_l,NULL);

make_pair(c_732948,quote_x,&c_732949);

make_pair(c_732947,quote_delete,&c_732948);

make_pair(c_732946,&c_732947,NULL);

make_pair(c_732945,quote_length,&c_732946);

make_pair(c_732952,quote_l,NULL);

make_pair(c_732951,quote_length,&c_732952);

make_pair(c_732950,&c_732951,NULL);

make_pair(c_732944,&c_732945,&c_732950);

make_pair(c_732943,quote_lessp,&c_732944);

make_pair(c_732956,quote_l,NULL);

make_pair(c_732955,quote_x,&c_732956);

make_pair(c_732954,quote_member,&c_732955);

make_pair(c_732953,&c_732954,NULL);

make_pair(c_732942,&c_732943,&c_732953);

make_pair(c_732941,quote_equal,&c_732942);

make_pair(c_732964,quote_l,NULL);

make_pair(c_732963,quote_x,&c_732964);

make_pair(c_732962,quote_delete,&c_732963);

make_pair(c_732961,&c_732962,NULL);

make_pair(c_732960,quote_sort2,&c_732961);

make_pair(c_732970,quote_l,NULL);

make_pair(c_732969,quote_sort2,&c_732970);

make_pair(c_732968,&c_732969,NULL);

make_pair(c_732967,quote_x,&c_732968);

make_pair(c_732966,quote_delete,&c_732967);

make_pair(c_732965,&c_732966,NULL);

make_pair(c_732959,&c_732960,&c_732965);

make_pair(c_732958,quote_equal,&c_732959);

make_pair(c_732975,quote_x,NULL);

make_pair(c_732974,quote_dsort,&c_732975);

make_pair(c_732978,quote_x,NULL);

make_pair(c_732977,quote_sort2,&c_732978);

make_pair(c_732976,&c_732977,NULL);

make_pair(c_732973,&c_732974,&c_732976);

make_pair(c_732972,quote_equal,&c_732973);

make_pair(c_733001,quote_x7,NULL);

make_pair(c_733000,quote_x6,&c_733001);

make_pair(c_732999,quote_cons,&c_733000);

make_pair(c_732998,&c_732999,NULL);

make_pair(c_732997,quote_x5,&c_732998);

make_pair(c_732996,quote_cons,&c_732997);

make_pair(c_732995,&c_732996,NULL);

make_pair(c_732994,quote_x4,&c_732995);

make_pair(c_732993,quote_cons,&c_732994);

make_pair(c_732992,&c_732993,NULL);

make_pair(c_732991,quote_x3,&c_732992);

make_pair(c_732990,quote_cons,&c_732991);

make_pair(c_732989,&c_732990,NULL);

make_pair(c_732988,quote_x2,&c_732989);

make_pair(c_732987,quote_cons,&c_732988);

make_pair(c_732986,&c_732987,NULL);

make_pair(c_732985,quote_x1,&c_732986);

make_pair(c_732984,quote_cons,&c_732985);

make_pair(c_732983,&c_732984,NULL);

make_pair(c_732982,quote_length,&c_732983);

make_pair(c_733007,quote_x7,NULL);

make_pair(c_733006,quote_length,&c_733007);

make_pair(c_733005,&c_733006,NULL);

make_pair(c_733004,obj_int2obj(6),&c_733005);

make_pair(c_733003,quote_plus,&c_733004);

make_pair(c_733002,&c_733003,NULL);

make_pair(c_732981,&c_732982,&c_733002);

make_pair(c_732980,quote_equal,&c_732981);

make_pair(c_733016,quote_x,NULL);

make_pair(c_733015,quote_add1,&c_733016);

make_pair(c_733014,&c_733015,NULL);

make_pair(c_733013,quote_add1,&c_733014);

make_pair(c_733017,obj_int2obj(2),NULL);

make_pair(c_733012,&c_733013,&c_733017);

make_pair(c_733011,quote_difference,&c_733012);

make_pair(c_733020,quote_x,NULL);

make_pair(c_733019,quote_fix,&c_733020);

make_pair(c_733018,&c_733019,NULL);

make_pair(c_733010,&c_733011,&c_733018);

make_pair(c_733009,quote_equal,&c_733010);

make_pair(c_733031,quote_y,NULL);

make_pair(c_733030,quote_x,&c_733031);

make_pair(c_733029,quote_plus,&c_733030);

make_pair(c_733028,&c_733029,NULL);

make_pair(c_733027,quote_x,&c_733028);

make_pair(c_733026,quote_plus,&c_733027);

make_pair(c_733032,obj_int2obj(2),NULL);

make_pair(c_733025,&c_733026,&c_733032);

make_pair(c_733024,quote_quotient,&c_733025);

make_pair(c_733039,obj_int2obj(2),NULL);

make_pair(c_733038,quote_y,&c_733039);

make_pair(c_733037,quote_quotient,&c_733038);

make_pair(c_733036,&c_733037,NULL);

make_pair(c_733035,quote_x,&c_733036);

make_pair(c_733034,quote_plus,&c_733035);

make_pair(c_733033,&c_733034,NULL);

make_pair(c_733023,&c_733024,&c_733033);

make_pair(c_733022,quote_equal,&c_733023);

make_pair(c_733045,quote_zero,NULL);

make_pair(c_733046,quote_i,NULL);

make_pair(c_733044,&c_733045,&c_733046);

make_pair(c_733043,quote_sigma,&c_733044);

make_pair(c_733054,quote_i,NULL);

make_pair(c_733053,quote_add1,&c_733054);

make_pair(c_733052,&c_733053,NULL);

make_pair(c_733051,quote_i,&c_733052);

make_pair(c_733050,quote_times,&c_733051);

make_pair(c_733055,obj_int2obj(2),NULL);

make_pair(c_733049,&c_733050,&c_733055);

make_pair(c_733048,quote_quotient,&c_733049);

make_pair(c_733047,&c_733048,NULL);

make_pair(c_733042,&c_733043,&c_733047);

make_pair(c_733041,quote_equal,&c_733042);

make_pair(c_733063,quote_y,NULL);

make_pair(c_733062,quote_add1,&c_733063);

make_pair(c_733061,&c_733062,NULL);

make_pair(c_733060,quote_x,&c_733061);

make_pair(c_733059,quote_plus,&c_733060);

make_pair(c_733068,quote_y,NULL);

make_pair(c_733067,quote_numberp,&c_733068);

make_pair(c_733074,quote_y,NULL);

make_pair(c_733073,quote_x,&c_733074);

make_pair(c_733072,quote_plus,&c_733073);

make_pair(c_733071,&c_733072,NULL);

make_pair(c_733070,quote_add1,&c_733071);

make_pair(c_733077,quote_x,NULL);

make_pair(c_733076,quote_add1,&c_733077);

make_pair(c_733075,&c_733076,NULL);

make_pair(c_733069,&c_733070,&c_733075);

make_pair(c_733066,&c_733067,&c_733069);

make_pair(c_733065,quote__if,&c_733066);

make_pair(c_733064,&c_733065,NULL);

make_pair(c_733058,&c_733059,&c_733064);

make_pair(c_733057,quote_equal,&c_733058);

make_pair(c_733085,quote_y,NULL);

make_pair(c_733084,quote_x,&c_733085);

make_pair(c_733083,quote_difference,&c_733084);

make_pair(c_733089,quote_y,NULL);

make_pair(c_733088,quote_z,&c_733089);

make_pair(c_733087,quote_difference,&c_733088);

make_pair(c_733086,&c_733087,NULL);

make_pair(c_733082,&c_733083,&c_733086);

make_pair(c_733081,quote_equal,&c_733082);

make_pair(c_733095,quote_y,NULL);

make_pair(c_733094,quote_x,&c_733095);

make_pair(c_733093,quote_lessp,&c_733094);

make_pair(c_733101,quote_z,NULL);

make_pair(c_733100,quote_y,&c_733101);

make_pair(c_733099,quote_lessp,&c_733100);

make_pair(c_733098,&c_733099,NULL);

make_pair(c_733097,quote_not,&c_733098);

make_pair(c_733107,quote_y,NULL);

make_pair(c_733106,quote_z,&c_733107);

make_pair(c_733105,quote_lessp,&c_733106);

make_pair(c_733113,quote_x,NULL);

make_pair(c_733112,quote_y,&c_733113);

make_pair(c_733111,quote_lessp,&c_733112);

make_pair(c_733110,&c_733111,NULL);

make_pair(c_733109,quote_not,&c_733110);

make_pair(c_733118,quote_x,NULL);

make_pair(c_733117,quote_fix,&c_733118);

make_pair(c_733121,quote_z,NULL);

make_pair(c_733120,quote_fix,&c_733121);

make_pair(c_733119,&c_733120,NULL);

make_pair(c_733116,&c_733117,&c_733119);

make_pair(c_733115,quote_equal,&c_733116);

make_pair(c_733114,&c_733115,NULL);

make_pair(c_733108,&c_733109,&c_733114);

make_pair(c_733104,&c_733105,&c_733108);

make_pair(c_733103,quote__if,&c_733104);

make_pair(c_733102,&c_733103,NULL);

make_pair(c_733096,&c_733097,&c_733102);

make_pair(c_733092,&c_733093,&c_733096);

make_pair(c_733091,quote__if,&c_733092);

make_pair(c_733090,&c_733091,NULL);

make_pair(c_733080,&c_733081,&c_733090);

make_pair(c_733079,quote_equal,&c_733080);

make_pair(c_733131,quote_y,NULL);

make_pair(c_733130,quote_x,&c_733131);

make_pair(c_733129,quote_delete,&c_733130);

make_pair(c_733128,&c_733129,NULL);

make_pair(c_733127,quote_plus_91tree,&c_733128);

make_pair(c_733132,quote_a,NULL);

make_pair(c_733126,&c_733127,&c_733132);

make_pair(c_733125,quote_meaning,&c_733126);

make_pair(c_733138,quote_y,NULL);

make_pair(c_733137,quote_x,&c_733138);

make_pair(c_733136,quote_member,&c_733137);

make_pair(c_733145,quote_y,NULL);

make_pair(c_733144,quote_plus_91tree,&c_733145);

make_pair(c_733146,quote_a,NULL);

make_pair(c_733143,&c_733144,&c_733146);

make_pair(c_733142,quote_meaning,&c_733143);

make_pair(c_733150,quote_a,NULL);

make_pair(c_733149,quote_x,&c_733150);

make_pair(c_733148,quote_meaning,&c_733149);

make_pair(c_733147,&c_733148,NULL);

make_pair(c_733141,&c_733142,&c_733147);

make_pair(c_733140,quote_difference,&c_733141);

make_pair(c_733155,quote_y,NULL);

make_pair(c_733154,quote_plus_91tree,&c_733155);

make_pair(c_733156,quote_a,NULL);

make_pair(c_733153,&c_733154,&c_733156);

make_pair(c_733152,quote_meaning,&c_733153);

make_pair(c_733151,&c_733152,NULL);

make_pair(c_733139,&c_733140,&c_733151);

make_pair(c_733135,&c_733136,&c_733139);

make_pair(c_733134,quote__if,&c_733135);

make_pair(c_733133,&c_733134,NULL);

make_pair(c_733124,&c_733125,&c_733133);

make_pair(c_733123,quote_equal,&c_733124);

make_pair(c_733164,quote_y,NULL);

make_pair(c_733163,quote_add1,&c_733164);

make_pair(c_733162,&c_733163,NULL);

make_pair(c_733161,quote_x,&c_733162);

make_pair(c_733160,quote_times,&c_733161);

make_pair(c_733169,quote_y,NULL);

make_pair(c_733168,quote_numberp,&c_733169);

make_pair(c_733176,quote_y,NULL);

make_pair(c_733175,quote_x,&c_733176);

make_pair(c_733174,quote_times,&c_733175);

make_pair(c_733173,&c_733174,NULL);

make_pair(c_733172,quote_x,&c_733173);

make_pair(c_733171,quote_plus,&c_733172);

make_pair(c_733179,quote_x,NULL);

make_pair(c_733178,quote_fix,&c_733179);

make_pair(c_733177,&c_733178,NULL);

make_pair(c_733170,&c_733171,&c_733177);

make_pair(c_733167,&c_733168,&c_733170);

make_pair(c_733166,quote__if,&c_733167);

make_pair(c_733165,&c_733166,NULL);

make_pair(c_733159,&c_733160,&c_733165);

make_pair(c_733158,quote_equal,&c_733159);

make_pair(c_733185,quote_nil,NULL);

make_pair(c_733186,quote_i,NULL);

make_pair(c_733184,&c_733185,&c_733186);

make_pair(c_733183,quote_nth,&c_733184);

make_pair(c_733191,quote_i,NULL);

make_pair(c_733190,quote_zerop,&c_733191);

make_pair(c_733193,quote_nil,NULL);

make_pair(c_733195,quote_zero,NULL);

make_pair(c_733194,&c_733195,NULL);

make_pair(c_733192,&c_733193,&c_733194);

make_pair(c_733189,&c_733190,&c_733192);

make_pair(c_733188,quote__if,&c_733189);

make_pair(c_733187,&c_733188,NULL);

make_pair(c_733182,&c_733183,&c_733187);

make_pair(c_733181,quote_equal,&c_733182);

make_pair(c_733203,quote_b,NULL);

make_pair(c_733202,quote_a,&c_733203);

make_pair(c_733201,quote_append,&c_733202);

make_pair(c_733200,&c_733201,NULL);

make_pair(c_733199,quote_last,&c_733200);

make_pair(c_733208,quote_b,NULL);

make_pair(c_733207,quote_listp,&c_733208);

make_pair(c_733211,quote_b,NULL);

make_pair(c_733210,quote_last,&c_733211);

make_pair(c_733216,quote_a,NULL);

make_pair(c_733215,quote_listp,&c_733216);

make_pair(c_733223,quote_a,NULL);

make_pair(c_733222,quote_last,&c_733223);

make_pair(c_733221,&c_733222,NULL);

make_pair(c_733220,quote_car,&c_733221);

make_pair(c_733224,quote_b,NULL);

make_pair(c_733219,&c_733220,&c_733224);

make_pair(c_733218,quote_cons,&c_733219);

make_pair(c_733225,quote_b,NULL);

make_pair(c_733217,&c_733218,&c_733225);

make_pair(c_733214,&c_733215,&c_733217);

make_pair(c_733213,quote__if,&c_733214);

make_pair(c_733212,&c_733213,NULL);

make_pair(c_733209,&c_733210,&c_733212);

make_pair(c_733206,&c_733207,&c_733209);

make_pair(c_733205,quote__if,&c_733206);

make_pair(c_733204,&c_733205,NULL);

make_pair(c_733198,&c_733199,&c_733204);

make_pair(c_733197,quote_equal,&c_733198);

make_pair(c_733233,quote_y,NULL);

make_pair(c_733232,quote_x,&c_733233);

make_pair(c_733231,quote_lessp,&c_733232);

make_pair(c_733234,quote_z,NULL);

make_pair(c_733230,&c_733231,&c_733234);

make_pair(c_733229,quote_equal,&c_733230);

make_pair(c_733240,quote_y,NULL);

make_pair(c_733239,quote_x,&c_733240);

make_pair(c_733238,quote_lessp,&c_733239);

make_pair(c_733244,quote_t,NULL);

make_pair(c_733245,quote_z,NULL);

make_pair(c_733243,&c_733244,&c_733245);

make_pair(c_733242,quote_equal,&c_733243);

make_pair(c_733249,quote_f,NULL);

make_pair(c_733250,quote_z,NULL);

make_pair(c_733248,&c_733249,&c_733250);

make_pair(c_733247,quote_equal,&c_733248);

make_pair(c_733246,&c_733247,NULL);

make_pair(c_733241,&c_733242,&c_733246);

make_pair(c_733237,&c_733238,&c_733241);

make_pair(c_733236,quote__if,&c_733237);

make_pair(c_733235,&c_733236,NULL);

make_pair(c_733228,&c_733229,&c_733235);

make_pair(c_733227,quote_equal,&c_733228);

make_pair(c_733259,quote_b,NULL);

make_pair(c_733258,quote_a,&c_733259);

make_pair(c_733257,quote_append,&c_733258);

make_pair(c_733256,&c_733257,NULL);

make_pair(c_733255,quote_x,&c_733256);

make_pair(c_733254,quote_assignment,&c_733255);

make_pair(c_733265,quote_a,NULL);

make_pair(c_733264,quote_x,&c_733265);

make_pair(c_733263,quote_assignedp,&c_733264);

make_pair(c_733269,quote_a,NULL);

make_pair(c_733268,quote_x,&c_733269);

make_pair(c_733267,quote_assignment,&c_733268);

make_pair(c_733273,quote_b,NULL);

make_pair(c_733272,quote_x,&c_733273);

make_pair(c_733271,quote_assignment,&c_733272);

make_pair(c_733270,&c_733271,NULL);

make_pair(c_733266,&c_733267,&c_733270);

make_pair(c_733262,&c_733263,&c_733266);

make_pair(c_733261,quote__if,&c_733262);

make_pair(c_733260,&c_733261,NULL);

make_pair(c_733253,&c_733254,&c_733260);

make_pair(c_733252,quote_equal,&c_733253);

make_pair(c_733280,quote_x,NULL);

make_pair(c_733279,quote_gopher,&c_733280);

make_pair(c_733278,&c_733279,NULL);

make_pair(c_733277,quote_car,&c_733278);

make_pair(c_733285,quote_x,NULL);

make_pair(c_733284,quote_listp,&c_733285);

make_pair(c_733290,quote_x,NULL);

make_pair(c_733289,quote_flatten,&c_733290);

make_pair(c_733288,&c_733289,NULL);

make_pair(c_733287,quote_car,&c_733288);

make_pair(c_733292,quote_zero,NULL);

make_pair(c_733291,&c_733292,NULL);

make_pair(c_733286,&c_733287,&c_733291);

make_pair(c_733283,&c_733284,&c_733286);

make_pair(c_733282,quote__if,&c_733283);

make_pair(c_733281,&c_733282,NULL);

make_pair(c_733276,&c_733277,&c_733281);

make_pair(c_733275,quote_equal,&c_733276);

make_pair(c_733301,quote_x,NULL);

make_pair(c_733300,quote_gopher,&c_733301);

make_pair(c_733299,&c_733300,NULL);

make_pair(c_733298,quote_cdr,&c_733299);

make_pair(c_733297,&c_733298,NULL);

make_pair(c_733296,quote_flatten,&c_733297);

make_pair(c_733306,quote_x,NULL);

make_pair(c_733305,quote_listp,&c_733306);

make_pair(c_733311,quote_x,NULL);

make_pair(c_733310,quote_flatten,&c_733311);

make_pair(c_733309,&c_733310,NULL);

make_pair(c_733308,quote_cdr,&c_733309);

make_pair(c_733315,quote_zero,NULL);

make_pair(c_733317,quote_nil,NULL);

make_pair(c_733316,&c_733317,NULL);

make_pair(c_733314,&c_733315,&c_733316);

make_pair(c_733313,quote_cons,&c_733314);

make_pair(c_733312,&c_733313,NULL);

make_pair(c_733307,&c_733308,&c_733312);

make_pair(c_733304,&c_733305,&c_733307);

make_pair(c_733303,quote__if,&c_733304);

make_pair(c_733302,&c_733303,NULL);

make_pair(c_733295,&c_733296,&c_733302);

make_pair(c_733294,quote_equal,&c_733295);

make_pair(c_733325,quote_x,NULL);

make_pair(c_733324,quote_y,&c_733325);

make_pair(c_733323,quote_times,&c_733324);

make_pair(c_733326,quote_y,NULL);

make_pair(c_733322,&c_733323,&c_733326);

make_pair(c_733321,quote_quotient,&c_733322);

make_pair(c_733331,quote_y,NULL);

make_pair(c_733330,quote_zerop,&c_733331);

make_pair(c_733333,quote_zero,NULL);

make_pair(c_733336,quote_x,NULL);

make_pair(c_733335,quote_fix,&c_733336);

make_pair(c_733334,&c_733335,NULL);

make_pair(c_733332,&c_733333,&c_733334);

make_pair(c_733329,&c_733330,&c_733332);

make_pair(c_733328,quote__if,&c_733329);

make_pair(c_733327,&c_733328,NULL);

make_pair(c_733320,&c_733321,&c_733327);

make_pair(c_733319,quote_equal,&c_733320);

make_pair(c_733346,quote_mem,NULL);

make_pair(c_733345,quote_val,&c_733346);

make_pair(c_733344,quote_i,&c_733345);

make_pair(c_733343,quote_set,&c_733344);

make_pair(c_733342,&c_733343,NULL);

make_pair(c_733341,quote_j,&c_733342);

make_pair(c_733340,quote_get,&c_733341);

make_pair(c_733352,quote_i,NULL);

make_pair(c_733351,quote_j,&c_733352);

make_pair(c_733350,quote_eqp,&c_733351);

make_pair(c_733357,quote_mem,NULL);

make_pair(c_733356,quote_j,&c_733357);

make_pair(c_733355,quote_get,&c_733356);

make_pair(c_733354,&c_733355,NULL);

make_pair(c_733353,quote_val,&c_733354);

make_pair(c_733349,&c_733350,&c_733353);

make_pair(c_733348,quote__if,&c_733349);

make_pair(c_733347,&c_733348,NULL);

make_pair(c_733339,&c_733340,&c_733347);

make_pair(c_733338,quote_equal,&c_733339);

make_pair(c_733337,&c_733338,NULL);

make_pair(c_733318,&c_733319,&c_733337);

make_pair(c_733293,&c_733294,&c_733318);

make_pair(c_733274,&c_733275,&c_733293);

make_pair(c_733251,&c_733252,&c_733274);

make_pair(c_733226,&c_733227,&c_733251);

make_pair(c_733196,&c_733197,&c_733226);

make_pair(c_733180,&c_733181,&c_733196);

make_pair(c_733157,&c_733158,&c_733180);

make_pair(c_733122,&c_733123,&c_733157);

make_pair(c_733078,&c_733079,&c_733122);

make_pair(c_733056,&c_733057,&c_733078);

make_pair(c_733040,&c_733041,&c_733056);

make_pair(c_733021,&c_733022,&c_733040);

make_pair(c_733008,&c_733009,&c_733021);

make_pair(c_732979,&c_732980,&c_733008);

make_pair(c_732971,&c_732972,&c_732979);

make_pair(c_732957,&c_732958,&c_732971);

make_pair(c_732940,&c_732941,&c_732957);

make_pair(c_732895,&c_732896,&c_732940);

make_pair(c_732884,&c_732885,&c_732895);

make_pair(c_732859,&c_732860,&c_732884);

make_pair(c_732847,&c_732848,&c_732859);

make_pair(c_732822,&c_732823,&c_732847);

make_pair(c_732806,&c_732807,&c_732822);

make_pair(c_732790,&c_732791,&c_732806);

make_pair(c_732764,&c_732765,&c_732790);

make_pair(c_732751,&c_732752,&c_732764);

make_pair(c_732725,&c_732726,&c_732751);

make_pair(c_732711,&c_732712,&c_732725);

make_pair(c_732701,&c_732702,&c_732711);

make_pair(c_732680,&c_732681,&c_732701);

make_pair(c_732668,&c_732669,&c_732680);

make_pair(c_732649,&c_732650,&c_732668);

make_pair(c_732635,&c_732636,&c_732649);

make_pair(c_732612,&c_732613,&c_732635);

make_pair(c_732596,&c_732597,&c_732612);

make_pair(c_732582,&c_732583,&c_732596);

make_pair(c_732566,&c_732567,&c_732582);

make_pair(c_732555,&c_732556,&c_732566);

make_pair(c_732536,&c_732537,&c_732555);

make_pair(c_732520,&c_732521,&c_732536);

make_pair(c_732508,&c_732509,&c_732520);

make_pair(c_732496,&c_732497,&c_732508);

make_pair(c_732472,&c_732473,&c_732496);

make_pair(c_732462,&c_732463,&c_732472);

make_pair(c_732440,&c_732441,&c_732462);

make_pair(c_732428,&c_732429,&c_732440);

make_pair(c_732401,&c_732402,&c_732428);

make_pair(c_732374,&c_732375,&c_732401);

make_pair(c_732366,&c_732367,&c_732374);

make_pair(c_732352,&c_732353,&c_732366);

make_pair(c_732344,&c_732345,&c_732352);

make_pair(c_732320,&c_732321,&c_732344);

make_pair(c_732303,&c_732304,&c_732320);

make_pair(c_732285,&c_732286,&c_732303);

make_pair(c_732269,&c_732270,&c_732285);

make_pair(c_732250,&c_732251,&c_732269);

make_pair(c_732240,&c_732241,&c_732250);

make_pair(c_732228,&c_732229,&c_732240);

make_pair(c_732212,&c_732213,&c_732228);

make_pair(c_732193,&c_732194,&c_732212);

make_pair(c_732184,&c_732185,&c_732193);

make_pair(c_732165,&c_732166,&c_732184);

make_pair(c_732155,&c_732156,&c_732165);

make_pair(c_732143,&c_732144,&c_732155);

make_pair(c_732124,&c_732125,&c_732143);

make_pair(c_732112,&c_732113,&c_732124);

make_pair(c_732093,&c_732094,&c_732112);

make_pair(c_732075,&c_732076,&c_732093);

make_pair(c_732059,&c_732060,&c_732075);

make_pair(c_732040,&c_732041,&c_732059);

make_pair(c_732024,&c_732025,&c_732040);

make_pair(c_732008,&c_732009,&c_732024);

make_pair(c_731992,&c_731993,&c_732008);

make_pair(c_731967,&c_731968,&c_731992);

make_pair(c_731943,&c_731944,&c_731967);

make_pair(c_731927,&c_731928,&c_731943);

make_pair(c_731907,&c_731908,&c_731927);

make_pair(c_731899,&c_731900,&c_731907);

make_pair(c_731881,&c_731882,&c_731899);

make_pair(c_731865,&c_731866,&c_731881);

make_pair(c_731848,&c_731849,&c_731865);

make_pair(c_731824,&c_731825,&c_731848);

make_pair(c_731811,&c_731812,&c_731824);

make_pair(c_731793,&c_731794,&c_731811);

make_pair(c_731781,&c_731782,&c_731793);

make_pair(c_731763,&c_731764,&c_731781);

make_pair(c_731745,&c_731746,&c_731763);

make_pair(c_731718,&c_731719,&c_731745);

make_pair(c_731706,&c_731707,&c_731718);

make_pair(c_731694,&c_731695,&c_731706);

make_pair(c_731680,&c_731681,&c_731694);

make_pair(c_731666,&c_731667,&c_731680);

make_pair(c_731654,&c_731655,&c_731666);

make_pair(c_731644,&c_731645,&c_731654);

make_pair(c_731635,&c_731636,&c_731644);

make_pair(c_731623,&c_731624,&c_731635);

make_pair(c_731606,&c_731607,&c_731623);

make_pair(c_731590,&c_731591,&c_731606);

make_pair(c_731573,&c_731574,&c_731590);

make_pair(c_731561,&c_731562,&c_731573);

make_pair(c_731549,&c_731550,&c_731561);

make_pair(c_731539,&c_731540,&c_731549);

make_pair(c_731525,&c_731526,&c_731539);

make_pair(c_731511,&c_731512,&c_731525);
return_closcall2(data,  car(((closureN)self_73953)->elements[0]),  ((closureN)self_73953)->elements[1], &c_731511);; 
}

static void __lambda_70(void *data, int argc, object self_73954, object r_73403) {
  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_69;
c_731459.num_args = 3;
c_731459.num_elements = 2;
c_731459.elements = (object *)alloca(sizeof(object) * 2);
c_731459.elements[0] = ((closureN)self_73954)->elements[0];
c_731459.elements[1] = ((closureN)self_73954)->elements[1];

return_direct1(data,__lambda_66,global_set(__glo_test_91boyer, &c_731459));; 
}

static void __lambda_69(void *data, int argc, object self_73955, object k_73405, object alist_73257, object term_73256, object n_73255) {
  
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_68;
c_731461.num_args = 1;
c_731461.num_elements = 6;
c_731461.elements = (object *)alloca(sizeof(object) * 6);
c_731461.elements[0] = alist_73257;
c_731461.elements[1] = k_73405;
c_731461.elements[2] = n_73255;
c_731461.elements[3] = ((closureN)self_73955)->elements[0];
c_731461.elements[4] = term_73256;
c_731461.elements[5] = ((closureN)self_73955)->elements[1];

return_closcall1(data,(closure)&c_731461,  Cyc_set_cell(data, ((closureN)self_73955)->elements[0], obj_int2obj(0)));; 
}

static void __lambda_68(void *data, int argc, object self_73956, object r_73406) {
  
closureN_type c_731466;
c_731466.hdr.mark = gc_color_red;
 c_731466.hdr.grayed = 0;
c_731466.tag = closureN_tag;
 c_731466.fn = (function_type)__lambda_67;
c_731466.num_args = 1;
c_731466.num_elements = 2;
c_731466.elements = (object *)alloca(sizeof(object) * 2);
c_731466.elements[0] = ((closureN)self_73956)->elements[1];
c_731466.elements[1] = ((closureN)self_73956)->elements[3];

return_closcall4(data,  car(((closureN)self_73956)->elements[5]),  &c_731466, ((closureN)self_73956)->elements[0], ((closureN)self_73956)->elements[4], ((closureN)self_73956)->elements[2]);; 
}

static void __lambda_67(void *data, int argc, object self_73957, object answer_73258) {
  if( (boolean_f != answer_73258) ){ 
  return_closcall1(data,  ((closureN)self_73957)->elements[0],  car(((closureN)self_73957)->elements[1]));
} else { 
  return_closcall1(data,  ((closureN)self_73957)->elements[0],  boolean_f);}
; 
}

static void __lambda_66(void *data, int argc, closure _,object r_73362) {
  return_closcall1(data,  __glo_main,  primitive__75halt);; 
}

static void __lambda_65(void *data, int argc, closure _,object k_73674) {
  Cyc_st_add(data, "sboyer.scm:this-scheme-implementation-name");

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_64;
c_731283.num_args = 1;
c_731283.num_elements = 1;
c_731283.elements = (object *)alloca(sizeof(object) * 1);
c_731283.elements[0] = k_73674;

return_closcall1(data,  __glo_Cyc_91version_scheme_base,  &c_731283);; 
}

static void __lambda_64(void *data, int argc, object self_73958, object r_73675) {
  
make_string(c_731289, "cyclone-");

object c_731288 = Cyc_string_append(data,  ((closureN)self_73958)->elements[0],2,&c_731289, r_73675);
return_closcall1(data,  ((closureN)self_73958)->elements[0],  c_731288);; 
}

static void __lambda_63(void *data, int argc, closure _,object k_73678, object name_73329, object count_73328, object thunk_73327, object ok_127_73326) {
  Cyc_st_add(data, "sboyer.scm:run-r7rs-benchmark");

closureN_type c_731097;
c_731097.hdr.mark = gc_color_red;
 c_731097.hdr.grayed = 0;
c_731097.tag = closureN_tag;
 c_731097.fn = (function_type)__lambda_62;
c_731097.num_args = 1;
c_731097.num_elements = 5;
c_731097.elements = (object *)alloca(sizeof(object) * 5);
c_731097.elements[0] = count_73328;
c_731097.elements[1] = k_73678;
c_731097.elements[2] = name_73329;
c_731097.elements[3] = ok_127_73326;
c_731097.elements[4] = thunk_73327;

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

static void __lambda_62(void *data, int argc, object self_73959, object rounded_73331) {
  
closureN_type c_731099;
c_731099.hdr.mark = gc_color_red;
 c_731099.hdr.grayed = 0;
c_731099.tag = closureN_tag;
 c_731099.fn = (function_type)__lambda_61;
c_731099.num_args = 1;
c_731099.num_elements = 5;
c_731099.elements = (object *)alloca(sizeof(object) * 5);
c_731099.elements[0] = ((closureN)self_73959)->elements[0];
c_731099.elements[1] = ((closureN)self_73959)->elements[1];
c_731099.elements[2] = ((closureN)self_73959)->elements[2];
c_731099.elements[3] = ((closureN)self_73959)->elements[3];
c_731099.elements[4] = ((closureN)self_73959)->elements[4];


make_cell(c_731280,rounded_73331);
return_closcall1(data,(closure)&c_731099,  &c_731280);; 
}

static void __lambda_61(void *data, int argc, object self_73960, object rounded_73331) {
  
closureN_type c_731101;
c_731101.hdr.mark = gc_color_red;
 c_731101.hdr.grayed = 0;
c_731101.tag = closureN_tag;
 c_731101.fn = (function_type)__lambda_59;
c_731101.num_args = 1;
c_731101.num_elements = 6;
c_731101.elements = (object *)alloca(sizeof(object) * 6);
c_731101.elements[0] = ((closureN)self_73960)->elements[0];
c_731101.elements[1] = ((closureN)self_73960)->elements[1];
c_731101.elements[2] = ((closureN)self_73960)->elements[2];
c_731101.elements[3] = ((closureN)self_73960)->elements[3];
c_731101.elements[4] = rounded_73331;
c_731101.elements[5] = ((closureN)self_73960)->elements[4];


mclosure0(c_731264, (function_type)__lambda_60);c_731264.num_args = 1;
return_closcall1(data,(closure)&c_731101,  Cyc_set_cell(data, rounded_73331, &c_731264));; 
}

static void __lambda_60(void *data, int argc, object self_73961, object k_73725, object x_73346) {
  
double_type local_731276; object c_731277 = Cyc_fast_mul(data,&local_731276,obj_int2obj(1000), x_73346);

double_type local_731272; object c_731273 = ((inline_function_type)
                   ((closure)__glo_round_191_191inline_191_191_scheme_base)->fn)(data,&local_731272,c_731277);

double_type local_731268; object c_731269 = Cyc_fast_div(data,&local_731268,c_731273, obj_int2obj(1000));
return_closcall1(data,  k_73725,  c_731269);; 
}

static void __lambda_59(void *data, int argc, object self_73962, object r_73679) {
  
closureN_type c_731103;
c_731103.hdr.mark = gc_color_red;
 c_731103.hdr.grayed = 0;
c_731103.tag = closureN_tag;
 c_731103.fn = (function_type)__lambda_58;
c_731103.num_args = 1;
c_731103.num_elements = 6;
c_731103.elements = (object *)alloca(sizeof(object) * 6);
c_731103.elements[0] = ((closureN)self_73962)->elements[0];
c_731103.elements[1] = ((closureN)self_73962)->elements[1];
c_731103.elements[2] = ((closureN)self_73962)->elements[2];
c_731103.elements[3] = ((closureN)self_73962)->elements[3];
c_731103.elements[4] = ((closureN)self_73962)->elements[4];
c_731103.elements[5] = ((closureN)self_73962)->elements[5];


make_string(c_731261, "Running ");
return_closcall2(data,  __glo_display_scheme_write,  &c_731103, &c_731261);; 
}

static void __lambda_58(void *data, int argc, object self_73963, object r_73680) {
  
closureN_type c_731105;
c_731105.hdr.mark = gc_color_red;
 c_731105.hdr.grayed = 0;
c_731105.tag = closureN_tag;
 c_731105.fn = (function_type)__lambda_57;
c_731105.num_args = 1;
c_731105.num_elements = 6;
c_731105.elements = (object *)alloca(sizeof(object) * 6);
c_731105.elements[0] = ((closureN)self_73963)->elements[0];
c_731105.elements[1] = ((closureN)self_73963)->elements[1];
c_731105.elements[2] = ((closureN)self_73963)->elements[2];
c_731105.elements[3] = ((closureN)self_73963)->elements[3];
c_731105.elements[4] = ((closureN)self_73963)->elements[4];
c_731105.elements[5] = ((closureN)self_73963)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_731105, ((closureN)self_73963)->elements[2]);; 
}

static void __lambda_57(void *data, int argc, object self_73964, object r_73681) {
  
closureN_type c_731107;
c_731107.hdr.mark = gc_color_red;
 c_731107.hdr.grayed = 0;
c_731107.tag = closureN_tag;
 c_731107.fn = (function_type)__lambda_56;
c_731107.num_args = 1;
c_731107.num_elements = 6;
c_731107.elements = (object *)alloca(sizeof(object) * 6);
c_731107.elements[0] = ((closureN)self_73964)->elements[0];
c_731107.elements[1] = ((closureN)self_73964)->elements[1];
c_731107.elements[2] = ((closureN)self_73964)->elements[2];
c_731107.elements[3] = ((closureN)self_73964)->elements[3];
c_731107.elements[4] = ((closureN)self_73964)->elements[4];
c_731107.elements[5] = ((closureN)self_73964)->elements[5];

return_closcall1(data,  __glo_newline_scheme_base,  &c_731107);; 
}

static void __lambda_56(void *data, int argc, object self_73965, object r_73682) {
  
closureN_type c_731109;
c_731109.hdr.mark = gc_color_red;
 c_731109.hdr.grayed = 0;
c_731109.tag = closureN_tag;
 c_731109.fn = (function_type)__lambda_55;
c_731109.num_args = 1;
c_731109.num_elements = 6;
c_731109.elements = (object *)alloca(sizeof(object) * 6);
c_731109.elements[0] = ((closureN)self_73965)->elements[0];
c_731109.elements[1] = ((closureN)self_73965)->elements[1];
c_731109.elements[2] = ((closureN)self_73965)->elements[2];
c_731109.elements[3] = ((closureN)self_73965)->elements[3];
c_731109.elements[4] = ((closureN)self_73965)->elements[4];
c_731109.elements[5] = ((closureN)self_73965)->elements[5];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_731109);; 
}

static void __lambda_55(void *data, int argc, object self_73966, object r_73723) {
  
closureN_type c_731111;
c_731111.hdr.mark = gc_color_red;
 c_731111.hdr.grayed = 0;
c_731111.tag = closureN_tag;
 c_731111.fn = (function_type)__lambda_54;
c_731111.num_args = 1;
c_731111.num_elements = 6;
c_731111.elements = (object *)alloca(sizeof(object) * 6);
c_731111.elements[0] = ((closureN)self_73966)->elements[0];
c_731111.elements[1] = ((closureN)self_73966)->elements[1];
c_731111.elements[2] = ((closureN)self_73966)->elements[2];
c_731111.elements[3] = ((closureN)self_73966)->elements[3];
c_731111.elements[4] = ((closureN)self_73966)->elements[4];
c_731111.elements[5] = ((closureN)self_73966)->elements[5];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_731111, r_73723);; 
}

static void __lambda_54(void *data, int argc, object self_73967, object r_73683) {
  
closureN_type c_731113;
c_731113.hdr.mark = gc_color_red;
 c_731113.hdr.grayed = 0;
c_731113.tag = closureN_tag;
 c_731113.fn = (function_type)__lambda_53;
c_731113.num_args = 1;
c_731113.num_elements = 6;
c_731113.elements = (object *)alloca(sizeof(object) * 6);
c_731113.elements[0] = ((closureN)self_73967)->elements[0];
c_731113.elements[1] = ((closureN)self_73967)->elements[1];
c_731113.elements[2] = ((closureN)self_73967)->elements[2];
c_731113.elements[3] = ((closureN)self_73967)->elements[3];
c_731113.elements[4] = ((closureN)self_73967)->elements[4];
c_731113.elements[5] = ((closureN)self_73967)->elements[5];

return_closcall1(data,  __glo_jiffies_91per_91second_scheme_time,  &c_731113);; 
}

static void __lambda_53(void *data, int argc, object self_73968, object j_95s_73333) {
  
closureN_type c_731115;
c_731115.hdr.mark = gc_color_red;
 c_731115.hdr.grayed = 0;
c_731115.tag = closureN_tag;
 c_731115.fn = (function_type)__lambda_52;
c_731115.num_args = 1;
c_731115.num_elements = 7;
c_731115.elements = (object *)alloca(sizeof(object) * 7);
c_731115.elements[0] = ((closureN)self_73968)->elements[0];
c_731115.elements[1] = j_95s_73333;
c_731115.elements[2] = ((closureN)self_73968)->elements[1];
c_731115.elements[3] = ((closureN)self_73968)->elements[2];
c_731115.elements[4] = ((closureN)self_73968)->elements[3];
c_731115.elements[5] = ((closureN)self_73968)->elements[4];
c_731115.elements[6] = ((closureN)self_73968)->elements[5];

return_closcall1(data,  __glo_current_91second_scheme_time,  &c_731115);; 
}

static void __lambda_52(void *data, int argc, object self_73969, object t0_73334) {
  
closureN_type c_731117;
c_731117.hdr.mark = gc_color_red;
 c_731117.hdr.grayed = 0;
c_731117.tag = closureN_tag;
 c_731117.fn = (function_type)__lambda_51;
c_731117.num_args = 1;
c_731117.num_elements = 8;
c_731117.elements = (object *)alloca(sizeof(object) * 8);
c_731117.elements[0] = ((closureN)self_73969)->elements[0];
c_731117.elements[1] = ((closureN)self_73969)->elements[1];
c_731117.elements[2] = ((closureN)self_73969)->elements[2];
c_731117.elements[3] = ((closureN)self_73969)->elements[3];
c_731117.elements[4] = ((closureN)self_73969)->elements[4];
c_731117.elements[5] = ((closureN)self_73969)->elements[5];
c_731117.elements[6] = t0_73334;
c_731117.elements[7] = ((closureN)self_73969)->elements[6];

return_closcall1(data,  __glo_current_91jiffy_scheme_time,  &c_731117);; 
}

static void __lambda_51(void *data, int argc, object self_73970, object j0_73335) {
  
closureN_type c_731119;
c_731119.hdr.mark = gc_color_red;
 c_731119.hdr.grayed = 0;
c_731119.tag = closureN_tag;
 c_731119.fn = (function_type)__lambda_50;
c_731119.num_args = 1;
c_731119.num_elements = 9;
c_731119.elements = (object *)alloca(sizeof(object) * 9);
c_731119.elements[0] = ((closureN)self_73970)->elements[0];
c_731119.elements[1] = ((closureN)self_73970)->elements[1];
c_731119.elements[2] = j0_73335;
c_731119.elements[3] = ((closureN)self_73970)->elements[2];
c_731119.elements[4] = ((closureN)self_73970)->elements[3];
c_731119.elements[5] = ((closureN)self_73970)->elements[4];
c_731119.elements[6] = ((closureN)self_73970)->elements[5];
c_731119.elements[7] = ((closureN)self_73970)->elements[6];
c_731119.elements[8] = ((closureN)self_73970)->elements[7];

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

static void __lambda_50(void *data, int argc, object self_73971, object loop_73338) {
  
closureN_type c_731121;
c_731121.hdr.mark = gc_color_red;
 c_731121.hdr.grayed = 0;
c_731121.tag = closureN_tag;
 c_731121.fn = (function_type)__lambda_49;
c_731121.num_args = 1;
c_731121.num_elements = 9;
c_731121.elements = (object *)alloca(sizeof(object) * 9);
c_731121.elements[0] = ((closureN)self_73971)->elements[0];
c_731121.elements[1] = ((closureN)self_73971)->elements[1];
c_731121.elements[2] = ((closureN)self_73971)->elements[2];
c_731121.elements[3] = ((closureN)self_73971)->elements[3];
c_731121.elements[4] = ((closureN)self_73971)->elements[4];
c_731121.elements[5] = ((closureN)self_73971)->elements[5];
c_731121.elements[6] = ((closureN)self_73971)->elements[6];
c_731121.elements[7] = ((closureN)self_73971)->elements[7];
c_731121.elements[8] = ((closureN)self_73971)->elements[8];


make_cell(c_731259,loop_73338);
return_closcall1(data,(closure)&c_731121,  &c_731259);; 
}

static void __lambda_49(void *data, int argc, object self_73972, object loop_73338) {
  
closureN_type c_731123;
c_731123.hdr.mark = gc_color_red;
 c_731123.hdr.grayed = 0;
c_731123.tag = closureN_tag;
 c_731123.fn = (function_type)__lambda_20;
c_731123.num_args = 1;
c_731123.num_elements = 2;
c_731123.elements = (object *)alloca(sizeof(object) * 2);
c_731123.elements[0] = ((closureN)self_73972)->elements[3];
c_731123.elements[1] = loop_73338;


closureN_type c_731131;
c_731131.hdr.mark = gc_color_red;
 c_731131.hdr.grayed = 0;
c_731131.tag = closureN_tag;
 c_731131.fn = (function_type)__lambda_48;
c_731131.num_args = 2;
c_731131.num_elements = 9;
c_731131.elements = (object *)alloca(sizeof(object) * 9);
c_731131.elements[0] = ((closureN)self_73972)->elements[0];
c_731131.elements[1] = ((closureN)self_73972)->elements[1];
c_731131.elements[2] = ((closureN)self_73972)->elements[2];
c_731131.elements[3] = loop_73338;
c_731131.elements[4] = ((closureN)self_73972)->elements[4];
c_731131.elements[5] = ((closureN)self_73972)->elements[5];
c_731131.elements[6] = ((closureN)self_73972)->elements[6];
c_731131.elements[7] = ((closureN)self_73972)->elements[7];
c_731131.elements[8] = ((closureN)self_73972)->elements[8];

return_closcall1(data,(closure)&c_731123,  Cyc_set_cell(data, loop_73338, &c_731131));; 
}

static void __lambda_48(void *data, int argc, object self_73973, object k_73689, object i_73340, object result_73339) {
    object c_731134 = Cyc_num_fast_lt_op(data,i_73340, ((closureN)self_73973)->elements[0]);
if( (boolean_f != c_731134) ){ 
  
closureN_type c_731138;
c_731138.hdr.mark = gc_color_red;
 c_731138.hdr.grayed = 0;
c_731138.tag = closureN_tag;
 c_731138.fn = (function_type)__lambda_21;
c_731138.num_args = 1;
c_731138.num_elements = 3;
c_731138.elements = (object *)alloca(sizeof(object) * 3);
c_731138.elements[0] = i_73340;
c_731138.elements[1] = k_73689;
c_731138.elements[2] = ((closureN)self_73973)->elements[3];

return_closcall1(data,  ((closureN)self_73973)->elements[8],  &c_731138);
} else { 
  
closureN_type c_731151;
c_731151.hdr.mark = gc_color_red;
 c_731151.hdr.grayed = 0;
c_731151.tag = closureN_tag;
 c_731151.fn = (function_type)__lambda_47;
c_731151.num_args = 1;
c_731151.num_elements = 7;
c_731151.elements = (object *)alloca(sizeof(object) * 7);
c_731151.elements[0] = ((closureN)self_73973)->elements[1];
c_731151.elements[1] = ((closureN)self_73973)->elements[2];
c_731151.elements[2] = k_73689;
c_731151.elements[3] = ((closureN)self_73973)->elements[4];
c_731151.elements[4] = result_73339;
c_731151.elements[5] = ((closureN)self_73973)->elements[6];
c_731151.elements[6] = ((closureN)self_73973)->elements[7];

return_closcall2(data,  ((closureN)self_73973)->elements[5],  &c_731151, result_73339);}
; 
}

static void __lambda_47(void *data, int argc, object self_73974, object r_73693) {
  if( (boolean_f != r_73693) ){ 
  
closureN_type c_731153;
c_731153.hdr.mark = gc_color_red;
 c_731153.hdr.grayed = 0;
c_731153.tag = closureN_tag;
 c_731153.fn = (function_type)__lambda_41;
c_731153.num_args = 1;
c_731153.num_elements = 7;
c_731153.elements = (object *)alloca(sizeof(object) * 7);
c_731153.elements[0] = ((closureN)self_73974)->elements[0];
c_731153.elements[1] = ((closureN)self_73974)->elements[1];
c_731153.elements[2] = ((closureN)self_73974)->elements[2];
c_731153.elements[3] = ((closureN)self_73974)->elements[3];
c_731153.elements[4] = ((closureN)self_73974)->elements[4];
c_731153.elements[5] = ((closureN)self_73974)->elements[5];
c_731153.elements[6] = ((closureN)self_73974)->elements[6];

return_closcall1(data,  __glo_current_91jiffy_scheme_time,  &c_731153);
} else { 
  
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_46;
c_731243.num_args = 1;
c_731243.num_elements = 2;
c_731243.elements = (object *)alloca(sizeof(object) * 2);
c_731243.elements[0] = ((closureN)self_73974)->elements[2];
c_731243.elements[1] = ((closureN)self_73974)->elements[4];


make_string(c_731256, "ERROR: returned incorrect result: ");
return_closcall2(data,  __glo_display_scheme_write,  &c_731243, &c_731256);}
; 
}

static void __lambda_46(void *data, int argc, object self_73975, object r_73718) {
  
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_45;
c_731245.num_args = 1;
c_731245.num_elements = 2;
c_731245.elements = (object *)alloca(sizeof(object) * 2);
c_731245.elements[0] = ((closureN)self_73975)->elements[0];
c_731245.elements[1] = ((closureN)self_73975)->elements[1];

return_closcall2(data,  __glo_write_scheme_write,  &c_731245, ((closureN)self_73975)->elements[1]);; 
}

static void __lambda_45(void *data, int argc, object self_73976, object r_73719) {
  
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_44;
c_731247.num_args = 1;
c_731247.num_elements = 2;
c_731247.elements = (object *)alloca(sizeof(object) * 2);
c_731247.elements[0] = ((closureN)self_73976)->elements[0];
c_731247.elements[1] = ((closureN)self_73976)->elements[1];

return_closcall1(data,  __glo_newline_scheme_base,  &c_731247);; 
}

static void __lambda_44(void *data, int argc, object self_73977, object r_73720) {
  
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_43;
c_731249.num_args = 1;
c_731249.num_elements = 2;
c_731249.elements = (object *)alloca(sizeof(object) * 2);
c_731249.elements[0] = ((closureN)self_73977)->elements[0];
c_731249.elements[1] = ((closureN)self_73977)->elements[1];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_731249);; 
}

static void __lambda_43(void *data, int argc, object self_73978, object r_73722) {
  
closureN_type c_731251;
c_731251.hdr.mark = gc_color_red;
 c_731251.hdr.grayed = 0;
c_731251.tag = closureN_tag;
 c_731251.fn = (function_type)__lambda_42;
c_731251.num_args = 1;
c_731251.num_elements = 2;
c_731251.elements = (object *)alloca(sizeof(object) * 2);
c_731251.elements[0] = ((closureN)self_73978)->elements[0];
c_731251.elements[1] = ((closureN)self_73978)->elements[1];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_731251, r_73722);; 
}

static void __lambda_42(void *data, int argc, object self_73979, object r_73721) {
  return_closcall1(data,  ((closureN)self_73979)->elements[0],  ((closureN)self_73979)->elements[1]);; 
}

static void __lambda_41(void *data, int argc, object self_73980, object j1_73341) {
  
closureN_type c_731155;
c_731155.hdr.mark = gc_color_red;
 c_731155.hdr.grayed = 0;
c_731155.tag = closureN_tag;
 c_731155.fn = (function_type)__lambda_40;
c_731155.num_args = 1;
c_731155.num_elements = 8;
c_731155.elements = (object *)alloca(sizeof(object) * 8);
c_731155.elements[0] = ((closureN)self_73980)->elements[0];
c_731155.elements[1] = ((closureN)self_73980)->elements[1];
c_731155.elements[2] = j1_73341;
c_731155.elements[3] = ((closureN)self_73980)->elements[2];
c_731155.elements[4] = ((closureN)self_73980)->elements[3];
c_731155.elements[5] = ((closureN)self_73980)->elements[4];
c_731155.elements[6] = ((closureN)self_73980)->elements[5];
c_731155.elements[7] = ((closureN)self_73980)->elements[6];

return_closcall1(data,  __glo_current_91second_scheme_time,  &c_731155);; 
}

static void __lambda_40(void *data, int argc, object self_73981, object t1_73342) {
  
closureN_type c_731160;
c_731160.hdr.mark = gc_color_red;
 c_731160.hdr.grayed = 0;
c_731160.tag = closureN_tag;
 c_731160.fn = (function_type)__lambda_39;
c_731160.num_args = 1;
c_731160.num_elements = 6;
c_731160.elements = (object *)alloca(sizeof(object) * 6);
c_731160.elements[0] = ((closureN)self_73981)->elements[0];
c_731160.elements[1] = ((closureN)self_73981)->elements[1];
c_731160.elements[2] = ((closureN)self_73981)->elements[2];
c_731160.elements[3] = ((closureN)self_73981)->elements[3];
c_731160.elements[4] = ((closureN)self_73981)->elements[4];
c_731160.elements[5] = ((closureN)self_73981)->elements[5];


double_type local_731239; object c_731240 = Cyc_fast_sub(data,&local_731239,t1_73342, ((closureN)self_73981)->elements[7]);
return_closcall2(data,  car(((closureN)self_73981)->elements[6]),  &c_731160, c_731240);; 
}

static void __lambda_39(void *data, int argc, object self_73982, object secs2_73345) {
  
closureN_type c_731162;
c_731162.hdr.mark = gc_color_red;
 c_731162.hdr.grayed = 0;
c_731162.tag = closureN_tag;
 c_731162.fn = (function_type)__lambda_38;
c_731162.num_args = 1;
c_731162.num_elements = 7;
c_731162.elements = (object *)alloca(sizeof(object) * 7);
c_731162.elements[0] = ((closureN)self_73982)->elements[0];
c_731162.elements[1] = ((closureN)self_73982)->elements[1];
c_731162.elements[2] = ((closureN)self_73982)->elements[2];
c_731162.elements[3] = ((closureN)self_73982)->elements[3];
c_731162.elements[4] = ((closureN)self_73982)->elements[4];
c_731162.elements[5] = ((closureN)self_73982)->elements[5];
c_731162.elements[6] = secs2_73345;


make_string(c_731236, "Elapsed time: ");
return_closcall2(data,  __glo_display_scheme_write,  &c_731162, &c_731236);; 
}

static void __lambda_38(void *data, int argc, object self_73983, object r_73700) {
  
closureN_type c_731164;
c_731164.hdr.mark = gc_color_red;
 c_731164.hdr.grayed = 0;
c_731164.tag = closureN_tag;
 c_731164.fn = (function_type)__lambda_37;
c_731164.num_args = 1;
c_731164.num_elements = 7;
c_731164.elements = (object *)alloca(sizeof(object) * 7);
c_731164.elements[0] = ((closureN)self_73983)->elements[0];
c_731164.elements[1] = ((closureN)self_73983)->elements[1];
c_731164.elements[2] = ((closureN)self_73983)->elements[2];
c_731164.elements[3] = ((closureN)self_73983)->elements[3];
c_731164.elements[4] = ((closureN)self_73983)->elements[4];
c_731164.elements[5] = ((closureN)self_73983)->elements[5];
c_731164.elements[6] = ((closureN)self_73983)->elements[6];


double_type local_731231; object c_731232 = Cyc_fast_sub(data,&local_731231,((closureN)self_73983)->elements[2], ((closureN)self_73983)->elements[1]);

double_type local_731227; object c_731228 = Cyc_fast_div(data,&local_731227,c_731232, ((closureN)self_73983)->elements[0]);

double_type local_731223; object c_731224 = ((inline_function_type)
                   ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_731223,c_731228);
return_closcall2(data,  __glo_write_scheme_write,  &c_731164, c_731224);; 
}

static void __lambda_37(void *data, int argc, object self_73984, object r_73701) {
  
closureN_type c_731166;
c_731166.hdr.mark = gc_color_red;
 c_731166.hdr.grayed = 0;
c_731166.tag = closureN_tag;
 c_731166.fn = (function_type)__lambda_36;
c_731166.num_args = 1;
c_731166.num_elements = 7;
c_731166.elements = (object *)alloca(sizeof(object) * 7);
c_731166.elements[0] = ((closureN)self_73984)->elements[0];
c_731166.elements[1] = ((closureN)self_73984)->elements[1];
c_731166.elements[2] = ((closureN)self_73984)->elements[2];
c_731166.elements[3] = ((closureN)self_73984)->elements[3];
c_731166.elements[4] = ((closureN)self_73984)->elements[4];
c_731166.elements[5] = ((closureN)self_73984)->elements[5];
c_731166.elements[6] = ((closureN)self_73984)->elements[6];


make_string(c_731220, " seconds (");
return_closcall2(data,  __glo_display_scheme_write,  &c_731166, &c_731220);; 
}

static void __lambda_36(void *data, int argc, object self_73985, object r_73702) {
  
closureN_type c_731168;
c_731168.hdr.mark = gc_color_red;
 c_731168.hdr.grayed = 0;
c_731168.tag = closureN_tag;
 c_731168.fn = (function_type)__lambda_35;
c_731168.num_args = 1;
c_731168.num_elements = 6;
c_731168.elements = (object *)alloca(sizeof(object) * 6);
c_731168.elements[0] = ((closureN)self_73985)->elements[0];
c_731168.elements[1] = ((closureN)self_73985)->elements[1];
c_731168.elements[2] = ((closureN)self_73985)->elements[2];
c_731168.elements[3] = ((closureN)self_73985)->elements[3];
c_731168.elements[4] = ((closureN)self_73985)->elements[4];
c_731168.elements[5] = ((closureN)self_73985)->elements[5];

return_closcall2(data,  __glo_write_scheme_write,  &c_731168, ((closureN)self_73985)->elements[6]);; 
}

static void __lambda_35(void *data, int argc, object self_73986, object r_73703) {
  
closureN_type c_731170;
c_731170.hdr.mark = gc_color_red;
 c_731170.hdr.grayed = 0;
c_731170.tag = closureN_tag;
 c_731170.fn = (function_type)__lambda_34;
c_731170.num_args = 1;
c_731170.num_elements = 6;
c_731170.elements = (object *)alloca(sizeof(object) * 6);
c_731170.elements[0] = ((closureN)self_73986)->elements[0];
c_731170.elements[1] = ((closureN)self_73986)->elements[1];
c_731170.elements[2] = ((closureN)self_73986)->elements[2];
c_731170.elements[3] = ((closureN)self_73986)->elements[3];
c_731170.elements[4] = ((closureN)self_73986)->elements[4];
c_731170.elements[5] = ((closureN)self_73986)->elements[5];


make_string(c_731218, ") for ");
return_closcall2(data,  __glo_display_scheme_write,  &c_731170, &c_731218);; 
}

static void __lambda_34(void *data, int argc, object self_73987, object r_73704) {
  
closureN_type c_731172;
c_731172.hdr.mark = gc_color_red;
 c_731172.hdr.grayed = 0;
c_731172.tag = closureN_tag;
 c_731172.fn = (function_type)__lambda_33;
c_731172.num_args = 1;
c_731172.num_elements = 6;
c_731172.elements = (object *)alloca(sizeof(object) * 6);
c_731172.elements[0] = ((closureN)self_73987)->elements[0];
c_731172.elements[1] = ((closureN)self_73987)->elements[1];
c_731172.elements[2] = ((closureN)self_73987)->elements[2];
c_731172.elements[3] = ((closureN)self_73987)->elements[3];
c_731172.elements[4] = ((closureN)self_73987)->elements[4];
c_731172.elements[5] = ((closureN)self_73987)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_731172, ((closureN)self_73987)->elements[4]);; 
}

static void __lambda_33(void *data, int argc, object self_73988, object r_73705) {
  
closureN_type c_731174;
c_731174.hdr.mark = gc_color_red;
 c_731174.hdr.grayed = 0;
c_731174.tag = closureN_tag;
 c_731174.fn = (function_type)__lambda_32;
c_731174.num_args = 1;
c_731174.num_elements = 6;
c_731174.elements = (object *)alloca(sizeof(object) * 6);
c_731174.elements[0] = ((closureN)self_73988)->elements[0];
c_731174.elements[1] = ((closureN)self_73988)->elements[1];
c_731174.elements[2] = ((closureN)self_73988)->elements[2];
c_731174.elements[3] = ((closureN)self_73988)->elements[3];
c_731174.elements[4] = ((closureN)self_73988)->elements[4];
c_731174.elements[5] = ((closureN)self_73988)->elements[5];

return_closcall1(data,  __glo_newline_scheme_base,  &c_731174);; 
}

static void __lambda_32(void *data, int argc, object self_73989, object r_73706) {
  
closureN_type c_731176;
c_731176.hdr.mark = gc_color_red;
 c_731176.hdr.grayed = 0;
c_731176.tag = closureN_tag;
 c_731176.fn = (function_type)__lambda_31;
c_731176.num_args = 1;
c_731176.num_elements = 6;
c_731176.elements = (object *)alloca(sizeof(object) * 6);
c_731176.elements[0] = ((closureN)self_73989)->elements[0];
c_731176.elements[1] = ((closureN)self_73989)->elements[1];
c_731176.elements[2] = ((closureN)self_73989)->elements[2];
c_731176.elements[3] = ((closureN)self_73989)->elements[3];
c_731176.elements[4] = ((closureN)self_73989)->elements[4];
c_731176.elements[5] = ((closureN)self_73989)->elements[5];


make_string(c_731216, "+!CSVLINE!+");
return_closcall2(data,  __glo_display_scheme_write,  &c_731176, &c_731216);; 
}

static void __lambda_31(void *data, int argc, object self_73990, object r_73707) {
  
closureN_type c_731178;
c_731178.hdr.mark = gc_color_red;
 c_731178.hdr.grayed = 0;
c_731178.tag = closureN_tag;
 c_731178.fn = (function_type)__lambda_30;
c_731178.num_args = 1;
c_731178.num_elements = 6;
c_731178.elements = (object *)alloca(sizeof(object) * 6);
c_731178.elements[0] = ((closureN)self_73990)->elements[0];
c_731178.elements[1] = ((closureN)self_73990)->elements[1];
c_731178.elements[2] = ((closureN)self_73990)->elements[2];
c_731178.elements[3] = ((closureN)self_73990)->elements[3];
c_731178.elements[4] = ((closureN)self_73990)->elements[4];
c_731178.elements[5] = ((closureN)self_73990)->elements[5];

return_closcall1(data,  __glo_this_91scheme_91implementation_91name,  &c_731178);; 
}

static void __lambda_30(void *data, int argc, object self_73991, object r_73715) {
  
closureN_type c_731180;
c_731180.hdr.mark = gc_color_red;
 c_731180.hdr.grayed = 0;
c_731180.tag = closureN_tag;
 c_731180.fn = (function_type)__lambda_29;
c_731180.num_args = 1;
c_731180.num_elements = 6;
c_731180.elements = (object *)alloca(sizeof(object) * 6);
c_731180.elements[0] = ((closureN)self_73991)->elements[0];
c_731180.elements[1] = ((closureN)self_73991)->elements[1];
c_731180.elements[2] = ((closureN)self_73991)->elements[2];
c_731180.elements[3] = ((closureN)self_73991)->elements[3];
c_731180.elements[4] = ((closureN)self_73991)->elements[4];
c_731180.elements[5] = ((closureN)self_73991)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_731180, r_73715);; 
}

static void __lambda_29(void *data, int argc, object self_73992, object r_73708) {
  
closureN_type c_731182;
c_731182.hdr.mark = gc_color_red;
 c_731182.hdr.grayed = 0;
c_731182.tag = closureN_tag;
 c_731182.fn = (function_type)__lambda_28;
c_731182.num_args = 1;
c_731182.num_elements = 6;
c_731182.elements = (object *)alloca(sizeof(object) * 6);
c_731182.elements[0] = ((closureN)self_73992)->elements[0];
c_731182.elements[1] = ((closureN)self_73992)->elements[1];
c_731182.elements[2] = ((closureN)self_73992)->elements[2];
c_731182.elements[3] = ((closureN)self_73992)->elements[3];
c_731182.elements[4] = ((closureN)self_73992)->elements[4];
c_731182.elements[5] = ((closureN)self_73992)->elements[5];


make_string(c_731215, ",");
return_closcall2(data,  __glo_display_scheme_write,  &c_731182, &c_731215);; 
}

static void __lambda_28(void *data, int argc, object self_73993, object r_73709) {
  
closureN_type c_731184;
c_731184.hdr.mark = gc_color_red;
 c_731184.hdr.grayed = 0;
c_731184.tag = closureN_tag;
 c_731184.fn = (function_type)__lambda_27;
c_731184.num_args = 1;
c_731184.num_elements = 5;
c_731184.elements = (object *)alloca(sizeof(object) * 5);
c_731184.elements[0] = ((closureN)self_73993)->elements[0];
c_731184.elements[1] = ((closureN)self_73993)->elements[1];
c_731184.elements[2] = ((closureN)self_73993)->elements[2];
c_731184.elements[3] = ((closureN)self_73993)->elements[3];
c_731184.elements[4] = ((closureN)self_73993)->elements[5];

return_closcall2(data,  __glo_display_scheme_write,  &c_731184, ((closureN)self_73993)->elements[4]);; 
}

static void __lambda_27(void *data, int argc, object self_73994, object r_73710) {
  
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_26;
c_731186.num_args = 1;
c_731186.num_elements = 5;
c_731186.elements = (object *)alloca(sizeof(object) * 5);
c_731186.elements[0] = ((closureN)self_73994)->elements[0];
c_731186.elements[1] = ((closureN)self_73994)->elements[1];
c_731186.elements[2] = ((closureN)self_73994)->elements[2];
c_731186.elements[3] = ((closureN)self_73994)->elements[3];
c_731186.elements[4] = ((closureN)self_73994)->elements[4];


make_string(c_731213, ",");
return_closcall2(data,  __glo_display_scheme_write,  &c_731186, &c_731213);; 
}

static void __lambda_26(void *data, int argc, object self_73995, object r_73711) {
  
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_25;
c_731188.num_args = 1;
c_731188.num_elements = 2;
c_731188.elements = (object *)alloca(sizeof(object) * 2);
c_731188.elements[0] = ((closureN)self_73995)->elements[3];
c_731188.elements[1] = ((closureN)self_73995)->elements[4];


double_type local_731208; object c_731209 = Cyc_fast_sub(data,&local_731208,((closureN)self_73995)->elements[2], ((closureN)self_73995)->elements[1]);

double_type local_731204; object c_731205 = Cyc_fast_div(data,&local_731204,c_731209, ((closureN)self_73995)->elements[0]);

double_type local_731200; object c_731201 = ((inline_function_type)
                   ((closure)__glo_inexact_191_191inline_191_191_scheme_base)->fn)(data,&local_731200,c_731205);
return_closcall2(data,  __glo_display_scheme_write,  &c_731188, c_731201);; 
}

static void __lambda_25(void *data, int argc, object self_73996, object r_73712) {
  
closureN_type c_731190;
c_731190.hdr.mark = gc_color_red;
 c_731190.hdr.grayed = 0;
c_731190.tag = closureN_tag;
 c_731190.fn = (function_type)__lambda_24;
c_731190.num_args = 1;
c_731190.num_elements = 2;
c_731190.elements = (object *)alloca(sizeof(object) * 2);
c_731190.elements[0] = ((closureN)self_73996)->elements[0];
c_731190.elements[1] = ((closureN)self_73996)->elements[1];

return_closcall1(data,  __glo_newline_scheme_base,  &c_731190);; 
}

static void __lambda_24(void *data, int argc, object self_73997, object r_73713) {
  
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_23;
c_731192.num_args = 1;
c_731192.num_elements = 2;
c_731192.elements = (object *)alloca(sizeof(object) * 2);
c_731192.elements[0] = ((closureN)self_73997)->elements[0];
c_731192.elements[1] = ((closureN)self_73997)->elements[1];

return_closcall1(data,  __glo_current_91output_91port_scheme_base,  &c_731192);; 
}

static void __lambda_23(void *data, int argc, object self_73998, object r_73714) {
  
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_22;
c_731194.num_args = 1;
c_731194.num_elements = 2;
c_731194.elements = (object *)alloca(sizeof(object) * 2);
c_731194.elements[0] = ((closureN)self_73998)->elements[0];
c_731194.elements[1] = ((closureN)self_73998)->elements[1];

return_closcall2(data,  __glo_flush_91output_91port_scheme_base,  &c_731194, r_73714);; 
}

static void __lambda_22(void *data, int argc, object self_73999, object r_73694) {
  return_closcall1(data,  ((closureN)self_73999)->elements[0],  ((closureN)self_73999)->elements[1]);; 
}

static void __lambda_21(void *data, int argc, object self_731000, object r_73692) {
  
double_type local_731146; object c_731147 = Cyc_fast_sum(data,&local_731146,((closureN)self_731000)->elements[0], obj_int2obj(1));
return_closcall3(data,  car(((closureN)self_731000)->elements[2]),  ((closureN)self_731000)->elements[1], c_731147, r_73692);; 
}

static void __lambda_20(void *data, int argc, object self_731001, object r_73687) {
  return_closcall3(data,  car(((closureN)self_731001)->elements[1]),  ((closureN)self_731001)->elements[0], obj_int2obj(0), boolean_f);; 
}

static void __lambda_19(void *data, int argc, closure _,object k_73730, object r_73348, object x_73347) {
  Cyc_st_add(data, "sboyer.scm:hide");

closureN_type c_731073;
c_731073.hdr.mark = gc_color_red;
 c_731073.hdr.grayed = 0;
c_731073.tag = closureN_tag;
 c_731073.fn = (function_type)__lambda_17;
c_731073.num_args = 0;
c_731073.num_elements = 1;
c_731073.elements = (object *)alloca(sizeof(object) * 1);
c_731073.elements[0] = r_73348;


closureN_type c_731090;
c_731090.hdr.mark = gc_color_red;
 c_731090.hdr.grayed = 0;
c_731090.tag = closureN_tag;
 c_731090.fn = (function_type)__lambda_18;
c_731090.num_args = 2;
c_731090.num_elements = 1;
c_731090.elements = (object *)alloca(sizeof(object) * 1);
c_731090.elements[0] = x_73347;

return_closcall3(data,  __glo_call_91with_91values_scheme_base,  k_73730, &c_731073, &c_731090);; 
}

static void __lambda_18(void *data, int argc, object self_731002, object k_73733, object v_73350, object i_73349) {
  return_closcall2(data,  Cyc_vector_ref(data, v_73350, i_73349),  k_73733, ((closureN)self_731002)->elements[0]);; 
}

static void __lambda_17(void *data, int argc, object self_731003, object k_73735) {
  
closureN_type c_731075;
c_731075.hdr.mark = gc_color_red;
 c_731075.hdr.grayed = 0;
c_731075.tag = closureN_tag;
 c_731075.fn = (function_type)__lambda_15;
c_731075.num_args = 1;
c_731075.num_elements = 2;
c_731075.elements = (object *)alloca(sizeof(object) * 2);
c_731075.elements[0] = k_73735;
c_731075.elements[1] = ((closureN)self_731003)->elements[0];


mclosure0(c_731088, (function_type)__lambda_16);c_731088.num_args = 1;
return_closcall3(data,  __glo_vector_scheme_base,  &c_731075, __glo_values_scheme_base, &c_731088);; 
}

static void __lambda_16(void *data, int argc, object self_731004, object k_73741, object x_73351) {
  return_closcall1(data,  k_73741,  x_73351);; 
}

static void __lambda_15(void *data, int argc, object self_731005, object r_73736) {
  
closureN_type c_731077;
c_731077.hdr.mark = gc_color_red;
 c_731077.hdr.grayed = 0;
c_731077.tag = closureN_tag;
 c_731077.fn = (function_type)__lambda_13;
c_731077.num_args = 0;
c_731077.num_elements = 1;
c_731077.elements = (object *)alloca(sizeof(object) * 1);
c_731077.elements[0] = ((closureN)self_731005)->elements[1];


closureN_type c_731084;
c_731084.hdr.mark = gc_color_red;
 c_731084.hdr.grayed = 0;
c_731084.tag = closureN_tag;
 c_731084.fn = (function_type)__lambda_14;
c_731084.num_args = 1;
c_731084.num_elements = 2;
c_731084.elements = (object *)alloca(sizeof(object) * 2);
c_731084.elements[0] = ((closureN)self_731005)->elements[0];
c_731084.elements[1] = r_73736;

return_closcall1(data,(closure)&c_731077,  &c_731084);; 
}

static void __lambda_14(void *data, int argc, object self_731006, object r_73737) {
  return_closcall3(data,  __glo_values_scheme_base,  ((closureN)self_731006)->elements[0], ((closureN)self_731006)->elements[1], r_73737);; 
}

static void __lambda_13(void *data, int argc, object self_731007, object k_73738) {
    object c_731080 = Cyc_num_fast_lt_op(data,((closureN)self_731007)->elements[0], obj_int2obj(100));
if( (boolean_f != c_731080) ){ 
  return_closcall1(data,  k_73738,  obj_int2obj(0));
} else { 
  return_closcall1(data,  k_73738,  obj_int2obj(1));}
; 
}

static void __lambda_12(void *data, int argc, closure _,object k_73744) {
  Cyc_st_add(data, "sboyer.scm:test-boyer");
return_closcall1(data,  k_73744,  boolean_t);; 
}

static void __lambda_11(void *data, int argc, closure _,object k_73747) {
  Cyc_st_add(data, "sboyer.scm:setup-boyer");
return_closcall1(data,  k_73747,  boolean_t);; 
}

static void __lambda_10(void *data, int argc, closure _,object k_73754) {
  Cyc_st_add(data, "sboyer.scm:main");

closureN_type c_731020;
c_731020.hdr.mark = gc_color_red;
 c_731020.hdr.grayed = 0;
c_731020.tag = closureN_tag;
 c_731020.fn = (function_type)__lambda_9;
c_731020.num_args = 1;
c_731020.num_elements = 1;
c_731020.elements = (object *)alloca(sizeof(object) * 1);
c_731020.elements[0] = k_73754;

return_closcall1(data,  __glo_read_scheme_read,  &c_731020);; 
}

static void __lambda_9(void *data, int argc, object self_731008, object count_73352) {
  
closureN_type c_731022;
c_731022.hdr.mark = gc_color_red;
 c_731022.hdr.grayed = 0;
c_731022.tag = closureN_tag;
 c_731022.fn = (function_type)__lambda_8;
c_731022.num_args = 1;
c_731022.num_elements = 2;
c_731022.elements = (object *)alloca(sizeof(object) * 2);
c_731022.elements[0] = count_73352;
c_731022.elements[1] = ((closureN)self_731008)->elements[0];

return_closcall1(data,  __glo_read_scheme_read,  &c_731022);; 
}

static void __lambda_8(void *data, int argc, object self_731009, object input_73353) {
  
closureN_type c_731024;
c_731024.hdr.mark = gc_color_red;
 c_731024.hdr.grayed = 0;
c_731024.tag = closureN_tag;
 c_731024.fn = (function_type)__lambda_7;
c_731024.num_args = 1;
c_731024.num_elements = 3;
c_731024.elements = (object *)alloca(sizeof(object) * 3);
c_731024.elements[0] = ((closureN)self_731009)->elements[0];
c_731024.elements[1] = input_73353;
c_731024.elements[2] = ((closureN)self_731009)->elements[1];

return_closcall1(data,  __glo_read_scheme_read,  &c_731024);; 
}

static void __lambda_7(void *data, int argc, object self_731010, object output_73354) {
  
closureN_type c_731026;
c_731026.hdr.mark = gc_color_red;
 c_731026.hdr.grayed = 0;
c_731026.tag = closureN_tag;
 c_731026.fn = (function_type)__lambda_6;
c_731026.num_args = 1;
c_731026.num_elements = 4;
c_731026.elements = (object *)alloca(sizeof(object) * 4);
c_731026.elements[0] = ((closureN)self_731010)->elements[0];
c_731026.elements[1] = ((closureN)self_731010)->elements[1];
c_731026.elements[2] = ((closureN)self_731010)->elements[2];
c_731026.elements[3] = output_73354;


object c_731065 = Cyc_number2string2(data,(closure)&c_731026,1,((closureN)self_731010)->elements[0]);
return_closcall1(data,(closure)&c_731026,  c_731065);; 
}

static void __lambda_6(void *data, int argc, object self_731011, object s2_73355) {
  
closureN_type c_731028;
c_731028.hdr.mark = gc_color_red;
 c_731028.hdr.grayed = 0;
c_731028.tag = closureN_tag;
 c_731028.fn = (function_type)__lambda_5;
c_731028.num_args = 1;
c_731028.num_elements = 5;
c_731028.elements = (object *)alloca(sizeof(object) * 5);
c_731028.elements[0] = ((closureN)self_731011)->elements[0];
c_731028.elements[1] = ((closureN)self_731011)->elements[1];
c_731028.elements[2] = ((closureN)self_731011)->elements[2];
c_731028.elements[3] = ((closureN)self_731011)->elements[3];
c_731028.elements[4] = s2_73355;


object c_731061 = Cyc_number2string2(data,(closure)&c_731028,1,((closureN)self_731011)->elements[1]);
return_closcall1(data,(closure)&c_731028,  c_731061);; 
}

static void __lambda_5(void *data, int argc, object self_731012, object s1_73356) {
  
closureN_type c_731030;
c_731030.hdr.mark = gc_color_red;
 c_731030.hdr.grayed = 0;
c_731030.tag = closureN_tag;
 c_731030.fn = (function_type)__lambda_4;
c_731030.num_args = 1;
c_731030.num_elements = 4;
c_731030.elements = (object *)alloca(sizeof(object) * 4);
c_731030.elements[0] = ((closureN)self_731012)->elements[0];
c_731030.elements[1] = ((closureN)self_731012)->elements[1];
c_731030.elements[2] = ((closureN)self_731012)->elements[2];
c_731030.elements[3] = ((closureN)self_731012)->elements[3];


make_string(c_731055, "sboyer");

make_string(c_731056, ":");

make_string(c_731057, ":");

object c_731054 = Cyc_string_append(data,(closure)&c_731030,5,&c_731055, &c_731056, s1_73356, &c_731057, ((closureN)self_731012)->elements[4]);
return_closcall1(data,(closure)&c_731030,  c_731054);; 
}

static void __lambda_4(void *data, int argc, object self_731013, object r_73760) {
  
closureN_type c_731034;
c_731034.hdr.mark = gc_color_red;
 c_731034.hdr.grayed = 0;
c_731034.tag = closureN_tag;
 c_731034.fn = (function_type)__lambda_2;
c_731034.num_args = 0;
c_731034.num_elements = 2;
c_731034.elements = (object *)alloca(sizeof(object) * 2);
c_731034.elements[0] = ((closureN)self_731013)->elements[0];
c_731034.elements[1] = ((closureN)self_731013)->elements[1];


closureN_type c_731043;
c_731043.hdr.mark = gc_color_red;
 c_731043.hdr.grayed = 0;
c_731043.tag = closureN_tag;
 c_731043.fn = (function_type)__lambda_3;
c_731043.num_args = 1;
c_731043.num_elements = 1;
c_731043.elements = (object *)alloca(sizeof(object) * 1);
c_731043.elements[0] = ((closureN)self_731013)->elements[3];

return_closcall5(data,  __glo_run_91r7rs_91benchmark,  ((closureN)self_731013)->elements[2], r_73760, ((closureN)self_731013)->elements[0], &c_731034, &c_731043);; 
}

static void __lambda_3(void *data, int argc, object self_731014, object k_73763, object rewrites_73358) {
  if( (boolean_f != Cyc_is_number(rewrites_73358)) ){ 
  
object c_731049 = Cyc_num_fast_eq_op(data,rewrites_73358, ((closureN)self_731014)->elements[0]);
return_closcall1(data,  k_73763,  c_731049);
} else { 
  return_closcall1(data,  k_73763,  boolean_f);}
; 
}

static void __lambda_2(void *data, int argc, object self_731015, object k_73765) {
  
closureN_type c_731036;
c_731036.hdr.mark = gc_color_red;
 c_731036.hdr.grayed = 0;
c_731036.tag = closureN_tag;
 c_731036.fn = (function_type)__lambda_1;
c_731036.num_args = 1;
c_731036.num_elements = 3;
c_731036.elements = (object *)alloca(sizeof(object) * 3);
c_731036.elements[0] = ((closureN)self_731015)->elements[0];
c_731036.elements[1] = ((closureN)self_731015)->elements[1];
c_731036.elements[2] = k_73765;

return_closcall1(data,  __glo_setup_91boyer,  &c_731036);; 
}

static void __lambda_1(void *data, int argc, object self_731016, object r_73766) {
  
closureN_type c_731038;
c_731038.hdr.mark = gc_color_red;
 c_731038.hdr.grayed = 0;
c_731038.tag = closureN_tag;
 c_731038.fn = (function_type)__lambda_0;
c_731038.num_args = 1;
c_731038.num_elements = 1;
c_731038.elements = (object *)alloca(sizeof(object) * 1);
c_731038.elements[0] = ((closureN)self_731016)->elements[2];

return_closcall3(data,  __glo_hide,  &c_731038, ((closureN)self_731016)->elements[0], ((closureN)self_731016)->elements[1]);; 
}

static void __lambda_0(void *data, int argc, object self_731017, object r_73767) {
  return_closcall4(data,  __glo_test_91boyer,  ((closureN)self_731017)->elements[0], __glo_alist, __glo_term, r_73767);; 
}

static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value);
extern void c_schemecyclonecommon_entry_pt(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_schemewrite_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_schemecxr_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; { 
Cyc_set_globals_changed((gc_thread_data *)data);
  quote_u = find_or_add_symbol("u");
  quote_lemmas = find_or_add_symbol("lemmas");
  quote__85 = find_or_add_symbol("*");
  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__if = find_or_add_symbol("if");
  quote_even1 = find_or_add_symbol("even1");
  quote_implies = find_or_add_symbol("implies");
  quote_and = find_or_add_symbol("and");
  quote_iff = find_or_add_symbol("iff");
  quote_f = find_or_add_symbol("f");
  quote_t = find_or_add_symbol("t");
  quote_or = find_or_add_symbol("or");
  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_equal = find_or_add_symbol("equal");

  add_global((object *) &__glo_this_91scheme_91implementation_91name);
  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_lemmas);
  add_symbol(quote__85);
  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__if);
  add_symbol(quote_even1);
  add_symbol(quote_implies);
  add_symbol(quote_and);
  add_symbol(quote_iff);
  add_symbol(quote_f);
  add_symbol(quote_t);
  add_symbol(quote_or);
  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_equal);
  mclosure0(c_731281, (function_type)__lambda_65);c_731281.num_args = 0; 
  __glo_this_91scheme_91implementation_91name = &c_731281; 
  mclosure0(c_731095, (function_type)__lambda_63);c_731095.num_args = 4; 
  __glo_run_91r7rs_91benchmark = &c_731095; 
  mclosure0(c_731071, (function_type)__lambda_19);c_731071.num_args = 2; 
  __glo_hide = &c_731071; 
  mclosure0(c_731069, (function_type)__lambda_12);c_731069.num_args = 0; 
  __glo_test_91boyer = &c_731069; 
  mclosure0(c_731067, (function_type)__lambda_11);c_731067.num_args = 0; 
  __glo_setup_91boyer = &c_731067; 
  mclosure0(c_731018, (function_type)__lambda_10);c_731018.num_args = 0; 
  __glo_main = &c_731018; 
  __glo_term = boolean_f; 
  __glo_alist = boolean_f; 

  make_cvar(cvar_736491, (object *)&__glo_this_91scheme_91implementation_91name);make_pair(pair_736492, find_or_add_symbol("this-scheme-implementation-name"), &cvar_736491);
  make_cvar(cvar_736493, (object *)&__glo_run_91r7rs_91benchmark);make_pair(pair_736494, find_or_add_symbol("run-r7rs-benchmark"), &cvar_736493);
  make_cvar(cvar_736495, (object *)&__glo_hide);make_pair(pair_736496, find_or_add_symbol("hide"), &cvar_736495);
  make_cvar(cvar_736497, (object *)&__glo_test_91boyer);make_pair(pair_736498, find_or_add_symbol("test-boyer"), &cvar_736497);
  make_cvar(cvar_736499, (object *)&__glo_setup_91boyer);make_pair(pair_736500, find_or_add_symbol("setup-boyer"), &cvar_736499);
  make_cvar(cvar_736501, (object *)&__glo_term);make_pair(pair_736502, find_or_add_symbol("term"), &cvar_736501);
  make_cvar(cvar_736503, (object *)&__glo_alist);make_pair(pair_736504, find_or_add_symbol("alist"), &cvar_736503);
  make_cvar(cvar_736505, (object *)&__glo_main);make_pair(pair_736506, find_or_add_symbol("main"), &cvar_736505);
make_pair(c_736507, &pair_736492,Cyc_global_variables);
make_pair(c_736508, &pair_736494, &c_736507);
make_pair(c_736509, &pair_736496, &c_736508);
make_pair(c_736510, &pair_736498, &c_736509);
make_pair(c_736511, &pair_736500, &c_736510);
make_pair(c_736512, &pair_736502, &c_736511);
make_pair(c_736513, &pair_736504, &c_736512);
make_pair(c_736514, &pair_736506, &c_736513);
Cyc_global_variables = &c_736514;
mclosure1(c_done, c_entry_pt_first_lambda, &c_done);
mclosure1(c_736515, c_schemecxr_entry_pt, &c_done);
mclosure1(c_736516, c_schemeread_entry_pt, &c_736515);
mclosure1(c_736517, c_scheme_char_entry_pt, &c_736516);
mclosure1(c_736518, c_schemewrite_entry_pt, &c_736517);
mclosure1(c_736519, c_schemetime_entry_pt, &c_736518);
mclosure1(c_736520, c_schemebase_entry_pt, &c_736519);
mclosure1(c_736521, c_schemecyclonecommon_entry_pt, &c_736520);
(c_736521.fn)(data, 0, &c_736521, &c_736521);
}
static void c_entry_pt_first_lambda(void *data, int argc, closure cont, object value) {
  
    
    
    
    
    
    
    
    make_pair(c_736435,quote_b,NULL);
make_pair(c_736434,quote_a,&c_736435);
make_pair(c_736433,quote_plus,&c_736434);
make_pair(c_736440,quote_zero,NULL);
make_pair(c_736439,&c_736440,NULL);
make_pair(c_736438,quote_c,&c_736439);
make_pair(c_736437,quote_plus,&c_736438);
make_pair(c_736436,&c_736437,NULL);
make_pair(c_736432,&c_736433,&c_736436);
make_pair(c_736431,quote_plus,&c_736432);
make_pair(c_736430,&c_736431,NULL);
make_pair(c_736429,quote_f,&c_736430);
make_pair(c_736428,quote_x,&c_736429);
make_pair(c_736449,quote_b,NULL);
make_pair(c_736448,quote_a,&c_736449);
make_pair(c_736447,quote_times,&c_736448);
make_pair(c_736453,quote_d,NULL);
make_pair(c_736452,quote_c,&c_736453);
make_pair(c_736451,quote_plus,&c_736452);
make_pair(c_736450,&c_736451,NULL);
make_pair(c_736446,&c_736447,&c_736450);
make_pair(c_736445,quote_times,&c_736446);
make_pair(c_736444,&c_736445,NULL);
make_pair(c_736443,quote_f,&c_736444);
make_pair(c_736442,quote_y,&c_736443);
make_pair(c_736464,quote_b,NULL);
make_pair(c_736463,quote_a,&c_736464);
make_pair(c_736462,quote_append,&c_736463);
make_pair(c_736466,quote_nil,NULL);
make_pair(c_736465,&c_736466,NULL);
make_pair(c_736461,&c_736462,&c_736465);
make_pair(c_736460,quote_append,&c_736461);
make_pair(c_736459,&c_736460,NULL);
make_pair(c_736458,quote_reverse,&c_736459);
make_pair(c_736457,&c_736458,NULL);
make_pair(c_736456,quote_f,&c_736457);
make_pair(c_736455,quote_z,&c_736456);
make_pair(c_736473,quote_b,NULL);
make_pair(c_736472,quote_a,&c_736473);
make_pair(c_736471,quote_plus,&c_736472);
make_pair(c_736477,quote_y,NULL);
make_pair(c_736476,quote_x,&c_736477);
make_pair(c_736475,quote_difference,&c_736476);
make_pair(c_736474,&c_736475,NULL);
make_pair(c_736470,&c_736471,&c_736474);
make_pair(c_736469,quote_equal,&c_736470);
make_pair(c_736468,quote_u,&c_736469);
make_pair(c_736484,quote_b,NULL);
make_pair(c_736483,quote_a,&c_736484);
make_pair(c_736482,quote_remainder,&c_736483);
make_pair(c_736490,quote_b,NULL);
make_pair(c_736489,quote_length,&c_736490);
make_pair(c_736488,&c_736489,NULL);
make_pair(c_736487,quote_a,&c_736488);
make_pair(c_736486,quote_member,&c_736487);
make_pair(c_736485,&c_736486,NULL);
make_pair(c_736481,&c_736482,&c_736485);
make_pair(c_736480,quote_lessp,&c_736481);
make_pair(c_736479,quote_w,&c_736480);
make_pair(c_736478,&c_736479,NULL);
make_pair(c_736467,&c_736468,&c_736478);
make_pair(c_736454,&c_736455,&c_736467);
make_pair(c_736441,&c_736442,&c_736454);
make_pair(c_736427,&c_736428,&c_736441);
return_direct1(data,__lambda_259,global_set(__glo_alist, &c_736427));
;
}
int main(int argc, char **argv, char **envp)
{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;
 set_env_variables(envp);
 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;
 thd->thread_id = pthread_self();
 gc_add_mutator(thd);
 Cyc_heap_init(heap_size);
 thd->thread_state = CYC_THREAD_STATE_RUNNABLE;
 Cyc_start_trampoline(thd);
 return 0;}
